[Wu-Tang]

amel27,
Отлично, все пашет.
А не могли вы добавить комментарии в vbs, также как и выше:

Код:

strComputer = "."
strIP = Array("192.168.0.1")
strMask = Array("255.255.255.0")
strGateway = Array("")
strDNS = Array("")

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colCON = objWMI.ExecQuery("Select * " & _
                            " From Win32_NetworkAdapterConfiguration " & _
                            " Where IPENabled=TRUE") 
For Each objCON In colCON
  objCON.EnableStatic strIP,strMask
  objCON.SetGateways strGateway
  objCON.SetDNSServerSearchOrder strDNS

  Exit For
Next