Einige Script-Beispiele zum Anpassen für eigene Zwecke

Fehlermeldungen unterdrücken:

' Fehlermeldungen unterdrücken
On Error Resume Next

Message-Box:

Set shell = WScript.CreateObject("WScript.Shell")
answer=MsgBox("Programm und alle Daten löschen?", vbYesNo,"Deinstallation")
if answer = vbYes then

' Auszuführender Code bei "Ja"

else
end if

Ordner mit Unterordner und allen Dateien löschen (Vorsicht!):

' Ordner löschen
strFolder = "C:\Programm\Files"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder strFolder, True

Inhalt eines Ordners löschen (Vorsicht!):

Set FS=CreateObject("Scripting.FileSystemObject")
' "c:\MyFolder\" durch eigenen Pfad ersetzen
Set Folder = FS.GetFolder("c:\MyFolder\")
For Each File In Folder.Files
    File.Delete
Next

Pause einfügen:

' Pause 2 sec.
WScript.sleep 2000

Programmdatei aufrufen/starten:

' Uninstaller aufrufen
oShell.Run "Uninstall.exe",,True

 

URL aufrufen (auch lokale Seiten mit c:\…):

Set wshshell = CreateObject("WScript.Shell")
wshshell.Run ("http://web266.de/")