LA 'ESCRITURA DE VBS RUNAS LO AHORRA COMO RUNAS_REMOTE_FILE_CHECK.VBS
strUser = “USER_NAME”
strDomain = “DOMAIN_NAME”
strCurPath = CreateObject (“Scripting.FileSystemObject”) .GetAbsolutePathName (” .")
strRunAs = " runas /savecred /user: “y strDomain y” \ “y strUser&”” y Chr (34) y “cscript.exe \ “y Chr (34) y strCurPath y” \ REMOTE_FILE_CHECK.VBS " y Chr (34)
Fijar WshShell = CreateObject (“WScript.Shell”)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'ESCRITURA DE VBS - EXCEPTO ELLA COMO REMOTE_FILE_CHECK.VBS
strFilePath = “TRAYECTORIA PARA EL ARCHIVO”
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Si objFSO.FileExists (strFilePath) entonces
Wscript.Echo “archivo existe.”
Wscript.Echo “archivo no existe.”
Terminar si
|