コンピュータ上のユーザアカウントを取得する: Win32_UserAccount - WMI Sample (VB)

Private Sub Command1_Click()

Dim UsrSet As SWbemObjectSet
Dim Usr As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set UsrSet = Service.ExecQuery _
("Select * From Win32_UserAccount")

For Each Usr In UsrSet
MesStr = MesStr & "名前: " & Usr.Name & vbTab & "SID: " & Usr.SID & vbCrLf
Next

MsgBox "登録されているユーザーアカウントは、" & _
vbCrLf & vbCrLf & MesStr & vbCrLf & "ですよ。"

Set UsrSet = Nothing
Set Usr = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub