[VB] 利用 WMI 抓取登入網域某一台電腦使用者帳號

利用 WMI 抓取登入網域某一台電腦使用者帳號，在網管上是一個方便的小工具

在Form 中隨便新增一個 Command Button 即可，但在對方電腦若沒啟動 RPC 服務或開啟防火牆，則會失敗!

程式碼如下，請參考：

Private Sub Command1_Click()

On Error Resume Next

strComputer = "computername.domain"

strComputer = "192.168.1.3"

strLoggedOnUser = ""

strUser = "domain\administrator"

strPassword = "12345678"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)

objSWbemServices.Security_.ImpersonationLevel = 3

Set objectSet = objSWbemServices.InstancesOf("Win32_ComputerSystem")

For Each object In objectSet
strLoggedOnUser = object.UserName
Next

If strLoggedOnUser <> "" Then
Debug.Print " 登入電腦：" & strComputer & " 之使用者為：" & strLoggedOnUser
End If
End Sub