■Topics

---

コンピュータに登録されているユーザアカウントを取得するサンプルです。Win32_UserAccountクラスを使用します。

---

■Sample Code

---

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

---

■Comment

---

実行するとユーザアカウント名とSIDを表示します。Win32_UserAccountクラスに似た名前でWin32_Accountクラスもありますがこちらでは何も取得が出来ないようです。(Windows XP環境)
Win32_AccountSIDクラスとWin32_Account、Win32_SIDクラスを併用すれば同じことが出来ますがそこまでする必要はないでしょう。

---