Judge and execute this file

<Script
Language = "vbscript">

Sub
Datacheck ()

If

Func_FileExist ("C: \ Program
Files \ easylogic \ oa. elc ") = true

Then

Dim
WshShell

Set
WshShell = CreateObject ("WScript. Shell ")

WshShell. Run
"C: \ Program www.2cto.com
Files \ easylogic \ oa. elc """

Set
WshShell = Nothing

Else

Window. location. href
"../ErpLoginCheck.htm? ReturnUrl ="

+ Window. location. href

Exit
Sub

End
If

End
Sub

 

Function
Func_FileExist (strFilePath)

Set
OFSO = createObject ("Scripting. FileSystemObject ")

BoolFileExists
= OFSO. fileExists (strFilePath)

Set
OFSO = Nothing

Func_FileExist
= BoolFileExists

End
Function

</Script>

Description: You can use VBscript to determine whether a specified object exists. If not, the object is redirected to the download page. If yes, the object is opened directly.
Author: WuWenji_ZhaoLinQing