PDFCreator - PsExec - RDP

On Error Resume Next

Const WbemAuthenticationLevelPktPrivacy = 6



strUser = "Domain\Administrator"  
strPassword = "*****"  
strNamespace = "root\cimv2"    
strFile = Wscript.Arguments("0")  
strComputer = Wscript.Arguments("1")  
strImport = "\\Server\xxx\xxx\xxx.exe Archive Import Dokument"  


'Wiederholt so lange Host erreichbar ist bzw nicht unbekannter host als Meldung erscheint!  
do

If strComputer = "" Then  
do
strComputer = InputBox("Please enter correct Computername: ")  

loop until strComputer <> "" OR strComputer = False  
End If

'Erreichbarkeit des PC's testen - Ping==================  

Set objShell = CreateObject("WScript.Shell")  
strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & "" 'Ping ausführen  
Set objExecObject = objShell.Exec(strCommand)
'=======================================================  
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
If Instr(strText, "Anforderung") > 0 Then  
objshell.popup "Host " & strComputer & " nicht erreichbar!",3  
elseif Instr(strText, "Unbekannter Host " & strComputer & ".") <> 0 then  
objshell.popup "Host " & strComputer & " nicht erreichbar!",3  
end if
loop
loop while Instr(strText, "Unbekannter Host " & strComputer & ".")<>0 OR Instr(strText, "Anforderung") > 0  
'=======================================================  

'Verbindung zum WMI Namespace herstellen================  
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objWMIService = objwbemLocator.ConnectServer (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
'=======================================================  

Function GetWMIServices()
Set GetWMIServices = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" & strComputer & strNamespace)  
End Function


Set objWMIService = GetWMIServices()
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")  

Set objShell = WScript.CreateObject("WScript.Shell")  
retval = objshell.run("C:\PDFCreatorImport\sleep.bat",0,True)  

For Each objItem In colItems
OSBuild = (objItem.BuildNumber)


if OSBuild = "2600" Then  

'Windows XP=============================================  

Set WSHShell = CreateObject("WScript.Shell")  
WSHShell.run ("C:\PDFCreatorImport\PsExec.exe \\"& strComputer &" -u "& strUser &" -p "& strPassword &" -e -i 0 "& strImport & " " & Chr(34) & strFile & Chr(34))  

'Windows 7 RC===========================================  

elseif OSBuild >= "7600" Then  

Set WSHShell = CreateObject("WScript.Shell")  
WSHShell.run ("C:\PDFCreatorImport\PsExec.exe \\"& strComputer &" -u "& strUser &" -p "& strPassword &" -e -i 1 "& strImport & " " & Chr(34) & strFile & Chr(34))  


End if

'Sleep.bat aufrufen=====================================  

Set objShell = WScript.CreateObject("WScript.Shell")  
retval = objshell.run("C:\PDFCreatorImport\sleep.bat",0,True)  

'xxx.pdf löschen========================================  

'Datei löschen  
Set fso = CreateObject("Scripting.FileSystemObject")  
fso.GetFile(strFile).Delete

Next