Hallo zusammen,
ich habe folgendes vor. Ich möchte über VBA und PsExec ein Programm auf einen anderen PC im Netzwerk installieren. Das funktioniert soweit auch. Nun kommt das Problem das ich das Errorlevel nicht abfangen kann. Weil er beim Errorlevel ja nur feststellt ob die CMD erfolgreich gelaufen ist und nicht ob der Code der CMD erfolgreich gelaufen ist. Ist es Möglich eventuell die Ausgabe der CMD in eine Varabile zu schreiben ?
Hier mein Code
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNTInfo = CreateObject("WinNTSystemInfo")
strPSExec = "C:\temp\PSExec.exe"
strPSExec = objFSO.GetFile(strPSExec).ShortPath
strUser = "Administrator"
strPass = "1234Test"
strCmdPSE = "cmd /c " & strPSExec & " \\PC0001 " & " -u " & strUser & " -p " & strPass & " c:\windows\system32\msiexec.exe /i C:\Software\Sun125.msi"
strRealCmd = strCmdPSE & " & echo %ERRORLEVEL% & pause"
objShell.Run strRealCmd
Danke schonmal
Grüße Uwe
|