' 01 輸入計算機編號 strIP = InputBox("Enter IP Name",title,"", 3200, 3200)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _
??? ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("100.100.1."&strIP)
strSubnetMask = Array("255.255.0.0")
strGateway = Array("100.100.100.1")
strGatewayMetric = Array(1)
?
For Each objNetAdapter in colNetAdapters
??? errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
??? errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
???
Next
? ' 02 修改固定DNS strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _
??? ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards
??? arrDNSServers = Array("100.100.11.1")
??? objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
?
' 03 修改固定winsserver strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _
??? ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards
??? strPrimaryServer = "100.100.11.1"
??? strSecondaryServer = " "
??? objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer
Next ' 04 修改計算機名為PCxxx Name = "PC"&strIP
Password = "ppp"
Username = "administrator"
Set objWMIService = GetObject("Winmgmts:root\cimv2") ' Call always gets only one Win32_ComputerSystem object.
For Each objComputer in _
??? objWMIService.InstancesOf("Win32_ComputerSystem") Return = objComputer.rename(Name,Password,User)
Next ' 05 修改計算機名后綴 const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_
??? strComputer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\ControlSet001\Services\Tcpip\Parameters"
strValueName = "NV Domain"
strValue = "dns name" Return = objReg.SetStringValue( _
??????? HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue)
??? If (Return = 0) And (Err.Number = 0) Then
???????
? End If
' 06 修改dns后綴 strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
arrDNSSuffixes = Array("global.test.com", "global.arup.com")
objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes) ' 07 修改dns名 strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _
??? ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objNetCard in colNetCards
??? objNetCard.SetDNSDomain("test.com")
Next
' 08 strComputer = "."
Set ooReg=GetObject( _
??? "winmgmts:{impersonationLevel=impersonate}!\\" &_
??? strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\ControlSet001\Services\Tcpip\Parameters"
strValueName = "SyncDomainWithMembership"
ooReg.SetDWORDValue _
??? HKEY_LOCAL_MACHINE,strKeyPath,strValueName,0
If Err = 0 Then
?? ooReg.GetDWORDValue _
?????? HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
??
End If ' 09 strComputer = "."
Set oooReg=GetObject( _
??? "winmgmts:{impersonationLevel=impersonate}!\\" &_
??? strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\ControlSet001\Services\Tcpip\Parameters"
strValueName = "SyncDomainWithMembership"
oooReg.SetDWORDValue _
??? HKEY_LOCAL_MACHINE,strKeyPath,strValueName,0
If Err = 0 Then
??
End If ' 10
?
strComputer = "."
Set ooooReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
?strKeyPath = "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces"
ooooReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
?For Each subkey In arrSubKeys
' subkey就是目錄名字
?strKeyPath2 = "SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\" & subkey
strValueName2 = "RegisterAdapterName"
ooooReg.SetDWORDValue _
??? HKEY_LOCAL_MACHINE,strKeyPath2,strValueName2,1 Next
' 11 wait WScript.Sleep(90000) ' 12 create regedit
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_
??? strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
strValueName = "BAT"
strValue = "C:\temp\1.5.vbs" Return = objReg.SetStringValue( _
??????? HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue) ' 13 restart
Set objWMIService = GetObject("winmgmts:" _
??? & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
??????? strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _
??? ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems
??? objOperatingSystem.Reboot()
Next

轉載于:https://blog.51cto.com/bjyizhang/505169

總結

以上是生活随笔為你收集整理的用WMI修改计算机名和IP的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。