サーバのメモリ使用量とかを確認したい

strComputer = "atl-dc-01"

Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each wbemObject In wbemObjectSet
WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory
Next

こういったプログラムを見つけたのですが・・・Getobjectで書き込みが出来ないエラーが出ます。
調べた結果おそらく権限がないことがいけないかと思いますが・・・どうやって結果を得られるのかわかりません。
あとコミットチャージとかも取得で切ればいいのですが・・・よろしくお願いします。

No.1 ベストアンサー 回答者： end-u 回答日時： 2009/02/17 23:14

ちょっと勘違いしてるかもしれませんが

Dim svc
Dim sv
Dim msg

On Error Resume Next
Set svc = CreateObject("WbemScripting.SWbemLocator") _
　　　　　.ConnectServer("servername", , "administrator", "password") _
　　　　　.ExecQuery("Select * from Win32_OperatingSystem")
If Err.Number <> 0 Then
　　msg = Err.Number & ":" & Err.Description
Else
　　For Each sv In svc
　　　　msg = sv.TotalVisibleMemorySize & "/" & sv.FreePhysicalMemory
　　Next
End If
WScript.Echo msg

こんな感じでどうでしょう？

この回答へのお礼

ありがとうございました！

お礼日時：2009/03/11 21:48