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

'#############################################  
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
'##################################################