[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

posted by へっぽ at 21:53 | TrackBack(0) | Windows | このブログの読者になる | 更新情報をチェックする

この記事へのトラックバック