Per remote ein vbscript auf entferneten pc ausführen

Dim objFSO, objFileCopy, objGuyFile
Dim strFilePath, strDestination 
strComputer = "sexpw193"  
strUser = "remotepc\username"  
strPassword = "password"  
strProcessKill = "'POWERPNT.EXE'"  
strFilePath = "d:\H\PowerPoint\presentation.pps"  
strDestination ="\\remotepc\PPT$\"  
 
  'Kill powerpoint show  
    Set wbemLocator = CreateObject("WbemScripting.SWbemLocator")  
    Set wbemServices = wbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)  
    Set wbemObjectSet = wbemServices.ExecQuery("Select * from Win32_Process where Name = " & strProcessKill)  
 
    For Each wbemObject In wbemObjectSet
        wbemObject.Terminate
    Next
 
		
	'code to copy ppt to dest  
	Set objFSO = CreateObject("Scripting.FileSystemObject")  
	Set objFileCopy = objFSO.GetFile(strFilePath)
	objFileCopy.Copy (strDestination)
	
	
 
  
  'Restart show  
	'Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")  
	'strCommand = "wscript " & Chr(34) & "D:\PPT\pp.vbs" & Chr(34)  
	'objProcess.Create strCommand,null,null,intProcessID  
	
	
	
	
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")   
Error = objWMIService.Create("d:\PPT\pp.vbs", null, null,intProcessID)   
 
If Error = 0 Then 
MsgBox (strProcess & " was started with a process ID of " & intProcessID & ".")   
 
Else 
MsgBox (strProcess & " could not be started due to error " & _   
errReturn & ".")   
 
End If
	
REM Dim objWMIService, objProcess
REM Dim strShell, objProgram, strVBS
 
REM strVBS = "wscript.exe d:\PPT\pp.vbs"  
REM ' Connect to WMI  
REM set objWMIService = getobject("winmgmts://"_  
REM & strComputer & "/root/cimv2")   
 
REM ' Obtain the Win32_Process class of object.  
REM Set objProcess = objWMIService.Get("Win32_Process")  
REM Set objProgram = objProcess.Methods_( _
REM "Create").InParameters.SpawnInstance_  
REM objProgram.CommandLine = strVBS
 
REM 'Execute the program now at the command line.  
REM Set strShell = objWMIService.ExecMethod( _
REM "Win32_Process", "Create", objProgram)   
 
REM WScript.echo "Created: " & strVBS & " on " & strComputer  
 
 
	Wscript.Quit

start d:\pstools\psexec.exe \\pcname -u domain/username -w c:\windows\system32\calc.exe

strComputer = InputBox("Bitte IP-Adresse des PC's eingeben:")  
strUsername = InputBox("Bitte Username eines Administrators des Remotesystems eingeben:")  
strPassword = InputBox("Bitte Password des Administrators eingeben:"  

strCommand = "notepad.exe"  


Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer, strUsername, strPassword & "\root\cimv2")  
Set objProcess = objWMIService.Get("Win32_Process")  


errReturn = objProcess.Create(strCommand, null, null, intProcessID)


If errReturn = 0 Then
Wscript.Echo "notepad.exe was started with a process ID: " & intProcessID  
Else
Wscript.Echo "notepad.exe could not be started due to error: " & errReturn  
End If