LE 'MANUSCRIT DE VBS RUNAS LE SAUVENT COMME RUNAS_REMOTE_FILE_CHECK.VBS
strUser = « USER_NAME »
strDomain = « DOMAIN_NAME »
strCurPath = CreateObject (« Scripting.FileSystemObject ») .GetAbsolutePathName ( » .")
strRunAs = " runas /savecred /user : « et strDomain et » \ « et strUser& » » et Chr (34) et « cscript.exe \ « et Chr (34) et strCurPath et » \ REMOTE_FILE_CHECK.VBS " et Chr (34)
Placer WshShell = CreateObject (« WScript.Shell »)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'MANUSCRIT DE VBS - SAUF LUI COMME REMOTE_FILE_CHECK.VBS
strFilePath = « CHEMIN POUR LE DOSSIER »
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Si objFSO.FileExists (strFilePath) puis
Wscript.Echo « dossier existe. »
Autrement
Wscript.Echo « dossier n'existe pas. »
Finir si
|