'LO SCRITTO DI VBS RUNAS LA CONSERVA COME 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)
Regolare WshShell = CreateObject (“WScript.Shell„)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'SCRITTO DI VBS - SALVO ESSO COME REMOTE_FILE_CHECK.VBS
strFilePath = “PERCORSO PER LA LIMA„
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Se objFSO.FileExists (strFilePath) allora
Wscript.Echo “lima esiste.„
Altrimenti
Wscript.Echo “lima non esiste.„
Concluder se
|