DIM IP, SubNetMask, Ergebnis
DIM objServ, objAdapter
 
IP = InputBox("IP Adresse?","Eingabefenster","192.168.")
SubNetz = InputBox("SubNetz Maske?","Eingabefenster","255.255.255.0")
 
ip = Array(IP)
SubNetMask = Array(Subnetz)
 
Set objServ = GetObject("winmgmts:")
Set objAdapter = objServ.Get("Win32_NetworkAdapterConfiguration=1")
Ergebnis = objAdapter.EnableStatic(IP,SubNetMask)
 
If Ergebnis = 0 THEN
     MsgBox "Erfolgreich eingestellt."
Else
     MsgBox "Fehler: " & Ergebnis
End If