Netzwerk Script für Windows 2000

Netzwerk Script für Windows 2000

Hallo zäme, kann mir jemand helfen diesen Script auf Windows 2000 zu laufen bringen. Auf Windows 2003 geht.

Dim DNSServer
Dim objServ, objAdapter
Dim WINSServer1, WINSServer2
Dim IP, SubNetMask, address
Dim Gateway, Metric, ergebnis


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

Set objServ = _
GetObject("winmgmts://" & COMPUTER)  
Set objAdapter = objServ.Get _
    ("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX)  
    
 'IP eingeben  
address = inputbox("Bitte die letzte 2 Oktett IP-Adresse eingeben")  
IP = Array("172.16." & address)   
SubNetMask = Array("255.255.252.0")  
Ergebnis = objAdapter.EnableStatic(IP, SubNetMask)

'Gateway eingeben  
Gateway = Array("172.16.80.1")  
Metric = Array("1")  
Ergebnis = objAdapter.SetGateways(Gateway, Metric)
    
'DNS eingeben  
DNSServer = Array("172.16.5.4", "172.16.5.5")  
Ergebnis = objAdapter.SetDNSServerSearchOrder(DNSServer)

'WINS eingeben  
WINSServer1 = "172.16.5.4"  
WINSServer2 = "172.16.5.5"  
Ergebnis = objAdapter.SetWINSServer(WINSServer1, WINSServer2)


Wscript.Echo "Netzwerkkarte eingestellt"  