'VBS RUNAS SKRIVAR RÄDDNING DET SOM 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)
Fastställda WshShell = CreateObject (”WScript.Shell”)
strRunPath = strRunAs
WshShell.Run (strRunPath)
'========================================================================================================
'VBS SKRIVAR - RÄDDNING DET SOM REMOTE_FILE_CHECK.VBS
strFilePath = ”BANA FÖR SPARA”,
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Om objFSO.FileExists (strFilePath) därefter
Wscript.Echo ”sparar finns.”,
Annars
Wscript.Echo ”sparar finns INTE.”,
Avsluta om
|