awsswaawsswa
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
' VBS Script To Change WINS Server Information For A Remote Machine
strPrimaryServer = "192.168.1.1" ' adress WINS server primary
strSecondaryServer = "" ' adress WINS server secondary
strComputer = InputBox ("Enter Machine Name")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colActiveNic = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colActiveNic
SetWins = objItem.SetWINSServer(strPrimaryServer, strSecondaryServer)
Next
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
MsgBox "WINS Server Information For: " & UCase(strComputer) & VBCr _
'& objItem.Description _
'& VBCr _
'& VBCr _
'& "Primary Server: " & objItem.WINSPrimaryServer & VBCr _
'& "Secondary Server: " & objItem.WINSSecondaryServer
Next
|
