chris,
I wrote this as a function. You can pass the server, account, password and the command you want to execute to the target server.
Cheers,
fengshui_1998
'****************************************
Function Remote_Cmd(Server, accnt, pwd, strCmd)
'****************************************
On Error Resume Next
Set Locator = CreateObject("WbemScripting.SWbemLocator"

user = server & "\" & accnt
Set Svc = Locator.ConnectServer(Server, "root\cimv2", user, pwd)
Svc.Security_.impersonationlevel = 3
Set Process = Svc.Get("Win32_Process"
intStatus = Process.Create("cmd /C " & strCmd, null, null, intProcessId)
' response.write err.number & " " & err.description
If err.number <> 0 then
Remote_Cmd = err.number
Else
Remote_Cmd = 0
End If
End Function
'