bing614 发表于 2008-5-31 16:17:14

我测试成功了的,你是XP吗?

hehui 发表于 2008-5-31 16:23:29

原帖由 bing614 于 2008-5-31 16:17 发表 http://www.autoitx.com/images/common/back.gif
我测试成功了的,你是XP吗?
是XP！
簡繁體都試過！
沒有反應！
其它代碼正常！

hehui 发表于 2008-5-31 17:36:54

原帖由 bing614 于 2008-5-29 23:20 发表 http://www.autoitx.com/images/common/back.gif
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SE ...
今天再次运行，发现可以了！
不知道是不是我的电脑的问题。
谢谢bing614！

hehui 发表于 2008-6-1 13:14:35

Win2000 繁体版无法运行！

原帖由 bing614 于 2008-5-29 23:20 发表 http://www.autoitx.com/images/common/back.gif
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SE ...

今天在Win2000繁体SP4里试了下，无法运行！
WMI服务已开启！
不知道是为何？

hehui 发表于 2008-6-2 09:17:01

换了个Win2000，修改工作组的程序还是无法执行！
Win2000对WMI支持不好？还是代码的问题？

hehui 发表于 2008-6-2 10:24:57

下面的代码能在2000里正常执行
mem()

Func mem()
$strComputer = "."

$objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For $objOperatingSystem in $colSettings
MsgBox(0,"可用物理内存",$objOperatingSystem.FreePhysicalMemory)
Next

EndFunc

应该不是服务的问题了！
会不会是代码不兼容？XP无问题的！

sanhen 发表于 2008-6-2 10:36:59

2000已经不支持很多WMI组件了的。

hehui 发表于 2008-6-2 11:16:29

原帖由 sanhen 于 2008-6-2 10:36 发表 http://www.autoitx.com/images/common/back.gif
2000已经不支持很多WMI组件了的。
那岂不是没戏了？
修改工作组还有什么办法没？
页: 1 [2]
查看完整版本: 这段代码如何转换？