VBScriptでサーバのコミットチャージを取得したいと思っていますが・・・

どうしてもエラーが解決しません

SWbemLocatorがアクセス拒否 80070005のエラーが出てしまいます。
いろいろ調べてみたのですがよくわかりません。
サーバのサービスでRPCが有効ではないのでは？というようなのを見つけたりしましたが・・・そんなことはありませんでした。
何がいけないのでしょうか？

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