Как заставить VBS скрипт работать на хосте cscript

Question

Как заставить скрипт vbs запускаться на хосте cscript, а не на хосте WScript?

Как мне определить, работает ли vbs из командной строки в XP / Vista / 7?

Кроме того, если он не запускается из командной строки, как получить скрипт для запуска в командной строке?

Я ищу короткий фрагмент.

Answer 1

Нет свойства или чего-либо подобного, что вы можете установить, так что у вас остались такие уродливые хаки:

Function ForceCScript()
On Error Resume Next
WScript.StdErr.Write(Chr(7))
If Err.Number <> 0 Then
    Err.Clear
    On Error GoTo 0
    set WshSh=WScript.CreateObject("WScript.Shell")
    sh=WshSh.ExpandEnvironmentStrings("%COMSPEC%")
    If InStr(sh,"%") = 1 Then sh="cmd.exe"
    WshSh.Run(sh&" /K cscript /nologo """&WScript.ScriptFullName&"""")
    WScript.Quit()
End If
End Function

call ForceCScript()