QTP的那些事--通过WMI获取session中的用户信息的验证码

 
代码如下:获取相应的session中的值
strComputer = "."   
Set objWMI = GetObject("winmgmts:" _
              & "{impersonationLevel=impersonate}!\\" _
              & strComputer & "\root\cimv2")


Set colSessions = objWMI.ExecQuery _
    ("Select * from Win32_LogonSession Where LogonType = 10")


If colSessions.Count = 0 Then
   Wscript.Echo "No interactive users found"
Else
   WScript.Echo "RDP Sessions:"
   For Each objSession in colSessions

     Set colList = objWMI.ExecQuery("Associators of " _
         & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _
         & "Where AssocClass=Win32_LoggedOnUser Role=Dependent" )
     For Each objItem in colList
       WScript.Echo "Username: " & objItem.Name & " FullName: " & objItem.FullName
     Next
   Next
End If
 
 
参考链接:http://*.com/questions/898757/vb-using-wmi-get-logged-in-users


本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/05/15/2501886.html,如需转载请自行联系原作者。
上一篇:手工打造一把锁


下一篇:原来add指令可以直接对内存进行加法操作