'СЦЕНАРИЙ VBS RUNAS СОХРАНЯЕТ ЕГО КАК 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)
Установите WshShell = CreateObject («WScript.Shell»)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'СЦЕНАРИЙ VBS - ЗА ИСКЛЮЧЕНИЕМ ЕГО КАК REMOTE_FILE_CHECK.VBS
strFilePath = «КУРС ДЛЯ АРХИВА»
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Если objFSO.FileExists (strFilePath) после этого
Wscript.Echo «архив существует.»
Еще
Wscript.Echo «архив не существует.»
Закончитесь если
|