'VBS RUNAS PISMO SAVE ONO JAKO RUNAS_REMOTE_FILE_CHECK.VBS
strUser = "USER_NAME"
strDomain = "DOMAIN_NAME"
strCurPath = CreateObject ("Scripting.FileSystemObject") .GetAbsolutePathName (" .")
strRunAs = " runas /savecred /user: "& strDomain &" \ "& strUser&"" & Chr (34) & "cscript.exe \ "& Chr (34) & strCurPath &" \ REMOTE_FILE_CHECK.VBS " & Chr (34)
Ustalony WshShell = CreateObject ("WScript.Shell")
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'VBS PISMO - OPRÓCZ ONO JAKO REMOTE_FILE_CHECK.VBS
strFilePath = "ŚCIEŻKA DLA THE KARTOTEKA"
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Jeżeli objFSO.FileExists (strFilePath) Wtedy
Wscript.Echo "Kartoteka istnieć."
Inny
Wscript.Echo "Kartoteka Istnieć."
Kończyć Jeżeli
|