怎么更改计算机wmi配置,用WMI修改计算机名和IP

' 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

本文出自 “Johnny” 博客，谢绝转载！