VBScript,如果是,则尝试使用参数运行exe

VBScript,如果是,则尝试使用参数运行exe,vbscript,if-statement,Vbscript,If Statement,我的代码在上面。我在运行vbs时出错。第13行char 1变量未定义。“WSHShell” 目标是让此vbs检查文件。如果文件存在,则结束。如果找不到该文件,请使用参数运行安装程序,然后创建该文件 任何帮助都会很好 谢谢,如果您使用“Option Explicit”-您应该这样做-所有变量都必须(重新)Dim-ed。因此,将WshShell添加到Dim语句中 Option Explicit Dim oFSO, oTxtFile Set oFSO = CreateObject("Script

我的代码在上面。我在运行vbs时出错。第13行char 1变量未定义。“WSHShell”

目标是让此vbs检查文件。如果文件存在,则结束。如果找不到该文件,请使用参数运行安装程序,然后创建该文件

任何帮助都会很好

谢谢,

如果您使用“Option Explicit”-您应该这样做-所有变量都必须(重新)Dim-ed。因此,将WshShell添加到Dim语句中

Option Explicit 

Dim oFSO, oTxtFile

Set oFSO = CreateObject("Scripting.FileSystemObject") 

If oFSO.FileExists("c:\users\Installed.txt")  Then
  WScript.Quit
Else 
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.Exec("\\1.1.1.1\software\1.exe -s /s -a ns=1.5.3.2")   

  Set oTxtFile = oFSO.CreateTextFile("c:\users\Installed.txt") 
End If