这段代码如何转换？

bing614

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

hehui

原帖由 bing614 于 2008-5-31 16:17 发表
我测试成功了的,你是XP吗?

是XP！
簡繁體都試過！
沒有反應！
其它代碼正常！

hehui

原帖由 bing614 于 2008-5-29 23:20 发表
[au3]$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SE ...

今天再次运行，发现可以了！
不知道是不是我的电脑的问题。
谢谢bing614！

hehui

原帖由 bing614 于 2008-5-29 23:20 发表
[au3]$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SE ...

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

hehui

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

hehui

下面的代码能在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

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

hehui

原帖由 sanhen 于 2008-6-2 10:36 发表
2000已经不支持很多WMI组件了的。

那岂不是没戏了？
修改工作组还有什么办法没？