Någon som vet hur man ändrar gateway i win2000 från ett VB program???
Om ni vet hur man ändrar via kommandotolken i win2000 hade de vart bra om nån kunde säga det så att man kan gå den vägen...

Skall göra ett program till en bärbar data som frågar var man är och sen ändrar gateway och sen lägger till de "network drives" man vill ha när man är just där...och jag hittar ingen information om hur man ändrar gateway utan att gå in i nätverks anslutningarna...


MVH Gabriel Medina

fortfarande ingen?

Man kanske kan köra en registerfil från VB-programmet och ändra på det sättet??

/ David

Hej.

Du måste först söka upp den adapter som du vill ändra på.

Sedan manipulerar den och W2k funkar det direkt utan omboot.

Jag har gjort så här:
Jag söker upp den adapter som har en macadddress som finns i strMACAddress.

<code>
Function getAdapterIX() As String
Dim NICs
Dim n
Dim nic
Set NICs = GetObject("winmgmts:").instancesOf("Win32_NetworkAdapterConfiguration")
ReDim arrNICs(3, 0)
n = 0
For Each nic In NICs
If nic.IPEnabled Then
If nic.macaddress = strMACAddress Then
strSUBnet = nic.IPsubnet(0)
strGateWay = nic.defaultipgateway(0)
strDNSServer = nic.dnsserversearchorder(0)
intCostMetric = nic.GateWayCostMetric(0)
getAdapterIX = nic.Index
End If
End If
Next

End Function
</code>

Sedan använder jag det indexet för att modifiera.
strDNSServer innehåller det DNS servrar som skall anges.
strGateWay innehåller den GateWay som skall användas.
newIP innehåller den IP som dator skall få.
Funtionen getSubnet hämtar hem det sunbät som gäller för detta IP.

Du behöver bara bry dig om strGateWay, resten är grädde på moset.

<code>
Function setIP() As Boolean
Dim strAIX As String
Dim adapter
Dim intres
strAIX = getAdapterIX

Set adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & strAIX)
intres = adapter.SetDNSServerSearchOrder(Array(strDNSServer))
intres = adapter.SetGateWays(Array(strGateWay))
intres = adapter.EnableStatic(Array(newIP), Array(getSubnet()))

If intres = 0 Then
setIP = True
Else
setIP = False
setError "BC 007. " & intres, with_event
End If

End Function
</code>

I detta fall sätter jag om DNS servrar; Gateways samt IP adressen.

Lycka till.

/Stefan