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

Topics

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

VBS (WSH) 版のサンプルコードはこちらで公開しています。

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 クラスを併用すれば同じことが出来ますがそこまでする必要はないでしょう。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


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

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

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

Topics

Sample Code

Comment

Recommended book