au3 改IP地址出现错误提示，错误如下，请教
>"D:\autoit3\SciTE\ACNWrapper\ACNWrapper.exe" /run /ErrorStdOut /in "C:\Users\Administrator\Desktop\abc\first.au3" /autoit3dir "D:\autoit3" /UserParams+>23:36:01 开始执行 ACNWrapper v.1.0.0.4
+>执行环境:
+> 系统语言: 0804
+> 键盘布局: 00000804
+> 操作系统: WIN_7/
+> 系统构架: X86
+> CPU构架: X64
+> AU3版本: 3.3.1.1
+> IP地址: 192.168.1.101
>运行 AU3Check (1.54.16.0)开始目录:D:\autoit3
+>23:36:01 AU3Check 结束:0
>运行:(3.3.1.1):D:\autoit3\autoit3.exe "C:\Users\Administrator\Desktop\abc\first.au3"
C:\Users\Administrator\Desktop\abc\first.au3 (225) : ==> ???????????("Object").:
$colComputers = $objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
$colComputers = $objWMIService^ ERROR
->23:36:05 AutoIT3.exe 完成::1
+>23:36:06 ACNWrapper 完成!
>退出代码: 1 时间: 5.691
运行以下代码是出错
Func _SetComputerName($_computername)
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\cimv2")
$colComputers = $objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For $objComputer In $colComputers
$objComputer.Rename ($_computername)
Next
EndFunc
Func _SetIpAddress($_ip, $_netmask, $_gateway)
$objWMIService = ObjGet("winmgmts:\" & "." & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("Select * FROM Win32_NetworkAdapterConfiguration Where IPEnabled =TRUE")
$_IP = _ArrayCreate($_IP)
$_netmask = _ArrayCreate($_netmask)
$_gateway = _ArrayCreate($_gateway)
$GatewayMetric = _ArrayCreate("1")
For $objItem In $colItems
$errEnable = $objItem.EnableStatic($_ip, $_netmask)
$errGateways = $objItem.SetGateways($_gateway, $GatewayMetric)
Next
EndFunc
Func _DNS($_dns1, $_dns2)
$objWMIService = ObjGet("winmgmts:\" & "." & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("Select * FROM Win32_NetworkAdapterConfiguration Where IPEnabled =TRUE")
$DNS = _ArrayCreate($_dns1, $_dns2)
For $objItem In $colItems
$strDNSServerSearchOrder = $objItem.SetDNSServerSearchOrder($dns)
Next
EndFunc
页:
[1]