WMI タスク: アカウントとドメイン

[アーティクル]
06/29/2023

アカウントとドメインの管理タスクを実行して、コンピュータードメインや現在ログオンしているユーザーなどの情報を取得します。これらのタスクの多くは、実行時に ADSI スクリプトを使用するのが最適です。詳細と他の例については、TechNet ScriptCenter スクリプトリポジトリに関するページを参照してください。

このトピックに示したスクリプト例では、ローカルコンピューターからのみデータを取得します。スクリプトを使用してリモートコンピューターからデータを取得する方法の詳細については、「リモートコンピューター上の WMI への接続」を参照してください。

以下の手順では、スクリプトの実行方法を説明します。

スクリプトを実行するには

コードをコピーし、拡張子 .vbs を付けたファイル (filename.vbs など) に保存します。テキストエディターによってファイルに .txt 拡張子が追加されていないことを確認します。
コマンドプロンプトウィンドウを開き、ファイルを保存したディレクトリに移動します。
コマンドプロンプトで「cscript filename.vbs」と入力します。
イベントログにアクセスできない場合は、管理者特権でのコマンドプロンプトから実行しているかどうかを確認します。セキュリティイベントログなどの一部のイベントログは、ユーザーアクセス制御 (UAC) によって保護されている場合があります。

注意

既定では、cscript により、コマンドプロンプトウィンドウにスクリプトの出力が表示されます。 WMI スクリプトでは大量の出力が生成される可能性があるため、出力をファイルにリダイレクトすることが必要になる場合があります。コマンドプロンプトで「cscript filename.vbs > outfile.txt」と入力し、filename.vbs スクリプトの出力を outfile.txt にリダイレクトします。

次の表に、ローカルコンピューターからさまざまな種類のデータを取得するために使用できるスクリプトの例の一覧を示します。

操作方法 WMI のクラスまたはメソッド

...コンピューターが属しているドメインを判断する

Win32_ComputerSystem クラスを使用し、Domain プロパティの値を確認します。また、Win32_NetworkAdapterConfiguration の DNSDomain プロパティも使用できます。

              
              strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colSettings
Wscript.Echo "System Name: " & objComputer.Name
Wscript.Echo "Domain: " & objComputer.Domain
Next

PowerShell
`$computer = Get-WmiObject -Class Win32_ComputerSystem "System Name: {0}" -f $computer.name "Domain : {0}" -f $computer.domain`

              
              using Microsoft.Management.Infrastructure; ... CimSession session = CimSession.Create("localHost"); IEnumerable<CimInstance> queryInstance = session.QueryInstances(@"root\cimv2", "WQL", "SELECT * FROM Win32_ComputerSystem"); foreach (CimInstance cimObj in queryInstance)
{
Console.WriteLine(cimObj.CimInstanceProperties["Name"].ToString());
Console.WriteLine(cimObj.CimInstanceProperties["Domain"].ToString());
}

...コンピューターがサーバーかワークステーションかを判断する

Win32_ComputerSystem クラスと DomainRole プロパティを使用します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select DomainRole from Win32_ComputerSystem")
For Each objComputer in colComputers
    Select Case objComputer.DomainRole 
        Case 0 
            strComputerRole = "Standalone Workstation"
        Case 1        
            strComputerRole = "Member Workstation"
        Case 2
            strComputerRole = "Standalone Server"
        Case 3
            strComputerRole = "Member Server"
        Case 4
            strComputerRole = "Backup Domain Controller"
        Case 5
            strComputerRole = "Primary Domain Controller"
    End Select
    Wscript.Echo strComputerRole
Next

PowerShell

              
              $Computer = Get-WmiObject -Class Win32_ComputerSystem "Computer &quot;{0}.{1}" is a: "-f $Computer.Name,$computer.domain
switch  ($computer.DomainRole) {
0 {"Standalone Workstation"}
1 {"Member Workstation"}
2 {"Standalone Server"}
3 {"Member Server"}
4 {"Backup Domain Controller"}
5 {"Primary Domain Controller"}
}

...コンピューター名を決定する

Win32_ComputerSystem クラスと Name プロパティを使用します。また、Win32_NetworkAdapterConfiguration の DNSHostName プロパティも使用できます。

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
    Wscript.Echo "Computer Name: " & objItem.Name
Next

PowerShell
`$Computer = Get-WmiObject -Class Win32_ComputerSystem "Computer Name is: {0}" -f $Computer.Name`

              
              using Microsoft.Management.Infrastructure; ... CimSession session = CimSession.Create("localHost"); IEnumerable<CimInstance> queryInstance = session.QueryInstances(@"root\cimv2", "WQL", "SELECT * FROM Win32_ComputerSystem"); foreach (CimInstance cimObj in queryInstance)
{
Console.WriteLine(cimObj.CimInstanceProperties["Name"].ToString());
}

...現在コンピューターにログオンしているユーザーの名前を検索する

Win32_ComputerSystem クラスと UserName プロパティを使用します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
 
For Each objComputer in colComputer
    Wscript.Echo "User Name = " & objComputer.UserName & VBNewLine & "Computer Name = " & objComputer.Name
WScript.Echo objComputer.UserName
Next

PowerShell
`$computers = Get-WmiObject -Class Win32_ComputerSystem "Logged on user(s):" foreach($computer in $computers) { "User: {0}" -f $computer.UserName }`

              
              using Microsoft.Management.Infrastructure; ... CimSession session = CimSession.Create("localHost"); IEnumerable<CimInstance> queryInstance = session.QueryInstances(@"root\cimv2", "WQL", "SELECT * FROM Win32_ComputerSystem"); foreach (CimInstance cimObj in queryInstance)
{
Console.WriteLine("User Name: " + cimObj.CimInstanceProperties["UserName"].ToString());
}

...コンピューターの名前を変更する

Win32_ComputerSystem クラスと Rename メソッドを使用します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
    errReturn = ObjComputer.Rename("NewName")
    WScript.Echo "Computer name is now " & objComputer.Name
Next

PowerShell

              
              param ( [$String] $NewName = 'NewName', [$string] $Comp = "." } 
              <# Get computer object #> $Computer = Get-WmiObject -Class Win32_ComputerSystem -ComputerName $comp

              <# Rename the Computer #> $Return = $Computer.Rename($NewName)
if ($return.ReturnValue -eq 0) {
"Computer name is now: $NewName"
" but you need to reboot first"
} else {
"  RenameFailed, return code: {0}" -f $return.ReturnValue
}

...WMI を使用してローカルグループのみを取得する

Win32_Group クラスを使用して、WQL クエリに次の WHERE 句を含めます。

Where LocalAccount = True

strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_Group  Where LocalAccount = True")
For Each objItem in colItems
    Wscript.Echo "Local Account: " & objItem.LocalAccount & VBNewLine _
        & "Name: " & objItem.Name & VBNewLine _
        & "SID: " & objItem.SID & VBNewLine _
        & "SID Type: " & objItem.SIDType & VBNewLine _
        & "Status: " & objItem.Status & VBNewLine
Next

PowerShell
`$Accts=Get-WMIObjectWin32_Group\|where {$_.LocalAccount} $accts \|ftName, Sid, SidType, Status-autosize`

スクリプトおよびアプリケーション用の WMI タスク
WMI C++ アプリケーションの例
TechNet ScriptCenter

次の方法で共有

WMI タスク: アカウントとドメイン

フィードバック

その他のリソース

次の方法で共有

WMI タスク: アカウントとドメイン

関連トピック

フィードバック

その他のリソース