vivis,
I use this. It executes a remote command on another server. So if you have a script yoou want to execute. Copy it to that server first.
fengshui_1998
' ****************************************
Function Remote_Cmd(Server, accnt, pwd, strCmd)
' ****************************************
On Error Resume Next
Set Locator = CreateObject("WbemScripting.SWbemLocator"

user = server & "\" & accnt
Set Service = Locator.ConnectServer(Server, "root\cimv2", user, pwd)
Service.Security_.impersonationlevel = 3
Set Process = Service.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