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.
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"
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 157595
Url: https://administrator.de/forum/netzwerk-script-fuer-windows-2000-157595.html
Ausgedruckt am: 08.04.2025 um 14:04 Uhr
5 Kommentare
Neuester Kommentar