在BGInfo中使用VBScript时出错“变量未定义:'WScript'”

时间:2013-05-23 23:11:14

标签: windows vbscript

我是业余的VB脚本编写者。我正在制作一个脚本来检查是否存在两个文件中的一个,如果存在,则给出一个标记为“已安装”的标记。如果两个文件都不存在,则标记“未安装”。这是我的剧本......

Option Explicit
DIM fso    
Set fso = CreateObject("Scripting.FileSystemObject")
CreateObject("WScript.Shell") 

If (fso.FileExists("C:\Program Files (x86)\Dell\KACE\AMPAgent.exe")) OR (fso.FileExists("C:\Program Files\Dell\KACE\AMPAgent.exe")) Then
  WScript.Echo("Installed")
  WScript.Quit()
Else
  WScript.Echo("Not Installed")
  WScript.Quit()

End If

当我在Windows 7中运行它时,它可以工作。当我将它添加到BGInfo时,它会抛出此错误......

  

评估脚本字段“KACE”

时出错      

Microsoft VBScript运行时错误

     

第7行,第2位

     

变量未定义:'WScript'

     

[OK]

我认为我只需要一种方法来定义或调用WScript来执行操作,因为它显然不是通过BGInfo自行完成的,而我所做的并不起作用。我还没有看到任何有关StackOverflow上此特定问题的帮助。

有什么想法?

1 个答案:

答案 0 :(得分:6)

BGInfo实现了自己的脚本主机,似乎不会模拟WScript对象。浏览some snippets我在互联网上发现,它看起来就像是在BGInfo内部简单的Echo。一个片段:

On Error Resume Next
    call WScript.Echo(strReturn)    'for cmd line
    call Echo(strReturn)    'for BGInfo
on error goto 0

注意On Error如何帮助它以任何方式工作。