vbs转au3,对象为什么不能获取?vbs可以,au3就不能获取了

wszhov

下面是vbs,能正常运行,用的是vbsedit里面的样本改了下

' List Home Networking ICS Settings

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & _
"\root\microsoft\homenet")

Set colItems = objWMIService.ExecQuery _
("Select * from HNet_ConnectionProperties")
Dim net
For Each objItem In colItems
WScript.Echo "_________________________"
        If objItem.IsICSPrivate Then
                WScript.Echo "Is ICS Private: " & objItem.IsICSPrivate                 
        End If
        If objItem.IsICSPublic Then
                WScript.Echo "Is ICS Public: " & objItem.IsICSPublic
        End If
        
        WScript.Echo "Connection: " & objItem.Connection
        '    Wscript.Echo "Is Bridge: " & objItem.IsBridge
        '    Wscript.Echo "Is Bridge Member: " & objItem.IsBridgeMember
        '    Wscript.Echo "Is Firewalled: " & objItem.IsFirewalled
        '    Wscript.Echo "Is ICS Private: " & objItem.IsICSPrivate    
        '    'private专用连接 一般是有线网卡?不知道能不能显示拨号连接
        '    Wscript.Echo "Is ICS Public: " & objItem.IsICSPublic
        '    'public公用连接 一般是无线网卡?
Next'  List Home Networking Connections

用vbs没问题,下面是au3代码,

Local $meige
$strComputer = "."
$netstr = ObjGet("winmgmts:{impersonationLevel=impersonate}!\" & $strComputer & "\root\microsoft\homenet")
$colItems = $netstr.ExecQuery("Select * from HNet_ConnectionProperties")
;If IsObj($colItems) Then
        For $meige In $colItems
                ConsoleWrite($meige.Connection)
                ConsoleWrite($meige.IsICSPrivate)
                ConsoleWrite($meige.IsICSPublic)
        Next
;EndIf

Variable must be of type "Object"............
For $meige In $colItems
For $meige In $colItems^ ERROR
为毛获取不了$colItems对象,这个应该没问题啊,难道差代码?

user3000

回复 1# wszhov

给出的AU3代码可以输出内容，无错。

代码运行环境:
操作系统:        WIN_7/Service Pack 1
AU3版本:        3.3.9.4

wszhov

回复 2# user3000


    额,我的
系统:   win_7 /64 sp1
au3:   3.3.9.21
这个版本到底改了多少了?部分com都失效了

wszhov

回复 2# user3000


    能否给个3.3.9.4这个版本的AutoIt3_x64.exe和AutoIt3.exe给我?

wszhov

回复 2# user3000


    准备换系统了,o(︶︿︶)o 唉,都没用,版本无问题了