［VBScript/WMI］ CPU使用率をリモート監視

リモートコンピュータのCPU使用率を監視する必要があり、見よう見まねでスクリプトを書いてみたのでメモ。

ネット中を探し回り、諸先輩方のサンプルをつぎはぎしてやっとこさできたのが↓


CPU使用率取得のためのVBScript（リモート監視も可）／WMI使用


'変数定義

Dim HostName 'ログインするマシン

Dim User 'ユーザ名

Dim Password 'パスワード

Dim Percent 'CPU使用率

Dim TmpStr '一時変数


HostName = "localhost" 'ローカルマシンに接続する場合

User = "" 'ローカルマシンに接続する場合は空欄にする

Password = "" 'ローカルマシンに接続する場合は空欄にする

Percent = 0


Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objWMIService = objSWbemLocator.ConnectServer(strComputer, , strUser, strPassword)


'標準出力インスタンスの作成

Set objStdOut = WScript.StdOut

'10回取得してみる

For i=1 to 10

　　TmpStr = ""

　　Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")


　　'状態取得

　　For Each objItem in colItems

　　　　'objStdOut.WriteLine objItem.Description & vbCrLf & objItem.LoadPercentage & vbCrLf

　　　　TmpStr = TmpStr & "[" & objItem.Description & "]" & ":" & objItem.LoadPercentage & "% "

　　Next

　　objStdOut.WriteLine TmpStr

Next