'VBS RUNAS INDEX SPEICHERN SIE ALS RUNAS_REMOTE_FILE_CHECK.VBS
strUser = „USER_NAME“
strDomain = „DOMAIN_NAME“
strCurPath = CreateObject („Scripting.FileSystemObject“) .GetAbsolutePathName (“ .")
strRunAs = " runas /savecred /user: „u. strDomain u.“ \ „u. strUser&““ u. Chr (34) u. „cscript.exe \ „u. Chr (34) u. strCurPath u.“ \ REMOTE_FILE_CHECK.VBS " u. Chr (34)
WshShell = CreateObject („WScript.Shell“) einstellen
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'VBS INDEX - AUSSER IHM ALS REMOTE_FILE_CHECK.VBS
strFilePath = „WEG FÜR DIE AKTE“
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
Wenn objFSO.FileExists (strFilePath) dann
Wscript.Echo „Akte existiert.“
Sonst
Wscript.Echo „Akte existiert NICHT.“
Beenden wenn
|