Fehler mithilfe von VBScript in BGInfo "Variable ist nicht definiert: 'WScript'"

Ich bin ein amateur-VB-scripter. Ich mache ein Skript zu überprüfen, um zu sehen, ob eine der beiden Dateien vorhanden ist, und wenn dem so ist, geben sich eine Flagge, die sagt "Installiert". Wenn weder Datei existiert flag "Nicht Installiert". Hier ist mein script...

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

Funktioniert es wenn ich es in Windows 7. Wenn ich es BGInfo, es wirft diese Fehlermeldung...

Fehler auswerten scripted Feld 'KACE'

Microsoft VBScript runtime error

Zeile 7, position 2

Variable ist nicht definiert: 'WScript'

[OK]

Ich glaube, ich muss nur einen Weg zu definieren oder aufrufen WScript zum handeln da ist es natürlich nicht tun, es durch BGInfo auf seine eigene, und was ich getan habe, nicht funktioniert. Ich habe nicht gesehen, nichts zu helfen, mit diesem problem auf StackOverflow schon.

Irgendwelche Gedanken?

  • Wäre hilfreich zu erwähnen, was BGinfo ist, für uns, die nicht wissen. Info hier: technet.microsoft.com/en-us/sysinternals/bb897557.aspx. Guter Erster post!!!
  • Danke für den Tipp! Ich hab gestern gemerkt, dass ich immer scheinen, um herauszufinden, meine Antwort auf StackOverflow, aber ich hatte nie beigetreten ist. Dieser Ort ist mein goto Ort jetzt. Ich bin froh, dass meine ersten Q&A go-round ging gut. 🙂
InformationsquelleAutor MaxKorban | 2013-05-23
  1. 6

    BGInfo implementiert seine eigene scripting host und scheint nicht zu emulieren, das WScript-Objekt. Surfen einige Ausschnitte ich im Internet gefunden, es sieht aus wie einfach nur Echo innerhalb der BGInfo. Ein snippet:

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

    Beachten Sie, wie Auf Fehler hilft, um es so oder so funktionieren.

    • +1. Sie mich zu schlagen. Ich fand es einfach in Markieren Sie den Artikel hier und schreiben die gleiche Sache.
    • Das funktionierte perfekt! Ich habe auch entfernt die quit-Linien, denn Sie schien unnötig, und es getestet, perfekt auf jeder test-Maschine. Ich danke Ihnen sehr für Ihre Hilfe!
    InformationsquelleAutor Hans Passant
Schreibe einen Kommentar