WSH/Win32_ComputerSystemのサンプルスクリプト
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* Win32_ComputerSystemのサンプルスクリプト [#t4af56ba]
WMIを使ったWin32_ComputerSystem内のコンピュータ名、ユーザ...
#contents
#htmlinsertpcsp(win-top.html,win-sp.html)
* 関連記事 [#p8fe9672]
-[[PowerShellでWMIを使用するサンプル>PowerShell/PowerShel...
-[[Win32_ComputerSystemのサンプルスクリプト>WSH/Win32_Com...
-[[Win32_ComputerSystemProductのサンプルスクリプト>WSH/Wi...
-[[Win32_OperatingSystemのサンプルスクリプト>WSH/Win32_Op...
-[[Win32_BIOSのサンプルスクリプト>WSH/Win32_BIOSのサンプ...
-[[Win32_LogicalDiskのサンプルスクリプト>WSH/Win32_Logica...
-[[Win32_Processorのサンプルスクリプト>WSH/Win32_Processo...
-[[Win32_NetworkAdapterConfigurationのサンプルスクリプト>...
-[[Win32_DiskDriveのサンプルスクリプト>WSH/Win32_DiskDriv...
* Win32_ComputerSystemを使ったサンプルスクリプト [#f6efaf...
以下にWin32_ComputerSystemを使用したサンプルスクリプトを...
本サンプルスクリプトでは、以下の5つの値を表示しています。
-コンピュータ名
-ユーザ名
-ドメイン名
-プロセッサ数
-ドメインのロール
** サンプルスクリプト [#f321adeb]
#ref(comsys.vbs)
hostname="." ' dotは自機を示す
' uid = "username"
' pwd = "password"
Set oLocater = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocater.ConnectServer(hostname, "root/ci...
' Set oService = oLocater.ConnectServer(hostname, "root/...
oService.Security_.ImpersonationLevel = 3 ' デフォルト値...
Set items = oService.ExecQuery("Select * From Win32_Comp...
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/ee1987...
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
** 実行例 [#xc437100]
cscriptを使用して実行した時の出力です。
PS C:\Users\sakura\Desktop> cscript .\comsys.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.
コンピュータ名: THINKPAD
ユーザ名: THINKPAD\sakura
ドメイン名: WORKGROUP
プロセッサ数: 1
ドメインのロール: Stand-alone workstation
以上、Win32_ComputerSystemを使ったサンプルスクリプトでし...
#htmlinsertpcsp(win-btm.html,win-sp.html)
終了行:
#navi(../)
* Win32_ComputerSystemのサンプルスクリプト [#t4af56ba]
WMIを使ったWin32_ComputerSystem内のコンピュータ名、ユーザ...
#contents
#htmlinsertpcsp(win-top.html,win-sp.html)
* 関連記事 [#p8fe9672]
-[[PowerShellでWMIを使用するサンプル>PowerShell/PowerShel...
-[[Win32_ComputerSystemのサンプルスクリプト>WSH/Win32_Com...
-[[Win32_ComputerSystemProductのサンプルスクリプト>WSH/Wi...
-[[Win32_OperatingSystemのサンプルスクリプト>WSH/Win32_Op...
-[[Win32_BIOSのサンプルスクリプト>WSH/Win32_BIOSのサンプ...
-[[Win32_LogicalDiskのサンプルスクリプト>WSH/Win32_Logica...
-[[Win32_Processorのサンプルスクリプト>WSH/Win32_Processo...
-[[Win32_NetworkAdapterConfigurationのサンプルスクリプト>...
-[[Win32_DiskDriveのサンプルスクリプト>WSH/Win32_DiskDriv...
* Win32_ComputerSystemを使ったサンプルスクリプト [#f6efaf...
以下にWin32_ComputerSystemを使用したサンプルスクリプトを...
本サンプルスクリプトでは、以下の5つの値を表示しています。
-コンピュータ名
-ユーザ名
-ドメイン名
-プロセッサ数
-ドメインのロール
** サンプルスクリプト [#f321adeb]
#ref(comsys.vbs)
hostname="." ' dotは自機を示す
' uid = "username"
' pwd = "password"
Set oLocater = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocater.ConnectServer(hostname, "root/ci...
' Set oService = oLocater.ConnectServer(hostname, "root/...
oService.Security_.ImpersonationLevel = 3 ' デフォルト値...
Set items = oService.ExecQuery("Select * From Win32_Comp...
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/ee1987...
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
** 実行例 [#xc437100]
cscriptを使用して実行した時の出力です。
PS C:\Users\sakura\Desktop> cscript .\comsys.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.
コンピュータ名: THINKPAD
ユーザ名: THINKPAD\sakura
ドメイン名: WORKGROUP
プロセッサ数: 1
ドメインのロール: Stand-alone workstation
以上、Win32_ComputerSystemを使ったサンプルスクリプトでし...
#htmlinsertpcsp(win-btm.html,win-sp.html)
ページ名: