Wie kann ich über VB-Script das Gateway ändern?

Hallo,

wie oben der Titel schon sagt, möchte ich über ein VB-Script das Gateway ändern.
Hab auch schon was zusammengebastelt. Die IP-Adressen stellt er mir ja ein, nur der Gateway will nicht.

'#############################################  
Dim IP, SubNetMask, Gateway, Metric, Ergebnis
Dim objServ, objAdapter

Const COMPUTER = "."  
Const ADAPTERINDEX = "1"  

Set objServ = _
GetObject("winmgmts://" & COMPUTER)  
Set objAdapter = objServ.Get _
    ("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX)  

IP = Array("192.168.0.1")  
SubNetMask = Array("255.255.255.0")  

Ergebnis = objAdapter.EnableStatic(IP, SubNetMask)

If Ergebnis = 0 Then
    Gateway = Array("192.168.0.254")  
    Metric = Array("1")  
    Ergebnis = objAdapter.SetGateway(Gateway, Metric)

    If Ergebnis = 0 Then
        MsgBox "IP-Adresse(n) und Gateway(s) erfolgreich eingestellt."  
    Else
        MsgBox "Fehler bei der Einstellung des Gateways: " & Ergebnis  
    End If
Else
    MsgBox "Fehler bei der Einstellung der IP-Adresse: " & Ergebnis  
End If
'##################################################  

Leider bekomme ich die Meldung. Das object unterstützt diese Eigenschaft oder Methode nicht: SetGateway.

Ich komme hier nicht weiter. kann mir einer helfen?

Gruß Spyder

[Edit Biber] Nur Codetags nachgezogen [/Edit]

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 38014

Url: https://administrator.de/forum/wie-kann-ich-ueber-vb-script-das-gateway-aendern-38014.html

Ausgedruckt am: 22.12.2024 um 16:12 Uhr

2 Kommentare

Neuester Kommentar

Vielleicht hilft dir das weiter:

http://www.cruto.com/resources/vbscript/vbscript-examples/network/clien ...

//edit

Ich glaub ich hab deinen Fehler gefunden: Es heißt nicht "SetGateway", sondern "SetGateways". Mehrzahl, nicht Einzahl.

Gruß,
Denis