'O CERTIFICADO DE VBS RUNAS CONSERVA-A COMO 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)
Ajustar WshShell = CreateObject (“WScript.Shell”)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'CERTIFICADO DE VBS - EXCEPTO ELE COMO REMOTE_FILE_CHECK.VBS
strFilePath = “TRAJETO PARA A LIMA”
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Se objFSO.FileExists (strFilePath) então
Wscript.Echo “lima existe.”
Mais
Wscript.Echo “lima não existe.”
Terminar se
|