spyder
Goto Top

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]

Content-Key: 38014

Url: https://administrator.de/contentid/38014

Printed on: April 16, 2024 at 05:04 o'clock

Member: MonsterX
MonsterX Aug 15, 2006 at 10:54:13 (UTC)
Goto Top
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
Member: Spyder
Spyder Aug 15, 2006 at 12:19:14 (UTC)
Goto Top
Danke!!!! Das wars! Prima. *freu*
Dann steht das in dem sch Buch falsch drinne

Gruß Spyder