代码如下
strComputer="xxpc"
Set wbemServices=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
set colWin32Product =wbemServices.ExecQuery("select * from Win32_Product where Name='IIS 8.0 Express'")
For each objWin32Product in colWin32Product
msgbox objWin32Product.Version
next
大概一分钟才能返回结果。
有大神知道原因么
strComputer="xxpc"
Set wbemServices=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
set colWin32Product =wbemServices.ExecQuery("select * from Win32_Product where Name='IIS 8.0 Express'")
For each objWin32Product in colWin32Product
msgbox objWin32Product.Version
next
大概一分钟才能返回结果。
有大神知道原因么