' Zugriff auf Environment Variablen
' Sleep Function
' Starten eines versteckten Programms

set Shell = CreateObject("WScript.Shell")
set Envobj = Shell.Environment
command = Envobj("comspec")
MsgBox "Kommandointerpreter: " & command
MsgBox "Starte nach 3 Sekunden versteckt Klickedi."
WScript.Sleep 3000
Shell.Run "C:\windows\Sol.exe",0
WScript.Echo "Klickedi läuft"