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

質問

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

回答No.1

temtecomai2 · ベストアンサー

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