论坛 › 『 提问交流 』 › 用objWMIService改不了计算机名，请大家帮忙看看

gyuwlsz 发表于 2009-11-9 13:06:32

用objWMIService改不了计算机名，请大家帮忙看看

Func _SetComputerName($_computername)

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")      
            
For $objNetAdapter in $colComputers
   $objNetAdapter.Rename($_computername)
Next
EndFunc

gyuwlsz 发表于 2009-11-9 13:07:30

$_computername这个是绝对可以取得到值的如Y0031

cxckx 发表于 2010-2-15 12:45:30

俺是调用dos命令
RunWait(@COMSPEC & " /c wmic useraccount where name='新计算机名' call rename name=旧计算机名")

bing614 发表于 2010-2-15 13:00:59

用API$_ComputerName="MyComputer"
$_Return=DllCall("Kernel32.dll","int","SetComputerNameEx","int",5,"str",$_ComputerName)
If $_Return<>0 ThenMsgBox(0,"","修改成功,重启后生效!")

查看完整版本: 用objWMIService改不了计算机名，请大家帮忙看看