VBで指定先端末のログインユーザ取得

VB2010の環境で指定したIPのログインユーザーを取得する方法を
ご教授下さい。ローカルのユーザー名は取得できるのですが・・・

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2011/08/06 13:56

System.Management への参照を追加しておいてください。

相手の PC に対して十分な権限を持つユーザー名とパスワードを使っています。


Imports System.Management

Module Module1
　　Sub Main()
　　　　Dim opt As New ConnectionOptions()
　　　　opt.Username = "administrator@domain"
　　　　opt.Password = "password"
　　　　
　　　　Dim scope As New ManagementScope("\\192.168.1.1\root\cimv2", opt)
　　　　Dim query As New ObjectQuery("SELECT * FROM Win32_ComputerSystem")
　　　　Dim serchar As New ManagementObjectSearcher(scope, query)
　　　　Dim moc As ManagementObjectCollection = serchar.Get()
　　　　
　　　　For Each mo As ManagementObject In moc
　　　　 Console.WriteLine(mo("Name")) ' PC 名
　　　　 Console.WriteLine(mo("UserName")) ' ユーザー名
　　　　Next
　　End Sub
End module