WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > コンピュータ上のユーザアカウントを取得する |
コンピュータ上のユーザアカウントを取得する: Win32_UserAccount - WMI Sample (VB)Topics
コンピュータに登録されているユーザアカウントを取得するサンプルプログラムです。
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 環境) ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |