hostname="." ' dotは自機を示す ' uid = "username" ' pwd = "password" Set oLocater = CreateObject("WbemScripting.SWbemLocator") Set oService = oLocater.ConnectServer(hostname, "root/cimv2") ' Set oService = oLocater.ConnectServer(hostname, "root/cimv2", uid, pwd) 'ユーザ、パスワード設定をする場合 oService.Security_.ImpersonationLevel = 3 ' デフォルト値は3のため省略可能 Set items = oService.ExecQuery("Select * From Win32_ComputerSystem", , 48) For Each item In items WScript.Echo("コンピュータ名: " & item.Name) WScript.Echo("ユーザ名: " & item.UserName) WScript.Echo("ドメイン名: " & item.Domain) WScript.Echo("プロセッサ数: " & item.NumberOfProcessors) Select Case item.DomainRole ' https://technet.microsoft.com/en-us/library/ee198796.aspx Case 0 desc = "Stand-alone workstation" Case 1 desc = "Member workstation" Case 2 desc = "Stand-alone server" Case 3 desc = "Member server" Case 4 desc = "Backup domain controller" Case 5 desc = "Primary domain controller" End Select WScript.Echo("ドメインのロール: " & desc) Next Set item = Nothing Set oService = Nothing Set oLocater = Nothing