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"
Please also mark the comments that contributed to the solution of the article
Content-Key: 157595
Url: https://administrator.de/contentid/157595
Printed on: April 23, 2024 at 16:04 o'clock
5 Comments
Latest comment