WSH Snippets

Inhaltsverzeichnis

 

 

 

 

 

Msgbox Hilfe

 

Abfrage msgbox

 

Ausgeben von Name Pfad Oberpfad

 

Programme aufrufen

 

Ausgeben von absolutem Pfad

 

Ausgeben von allen SpecialFolders

 

Ausgeben von Scriptname und Pfad

 

Notepad starten

 

Script wartet

 

Verknüpfung auf Desktop erstellen

 

 

 

Msgbox Hilfe

Konstante                     Wert          Beschreibung

 

VbOKOnly           0              Nur Schaltfläche OK anzeigen.

 

VbOKCancel                 1              Schaltflächen OK und Abbrechen anzeigen.

 

VbAbortRetryIgnore     2              Schaltflächen Abbrechen, Wiederholen und Ignorieren anzeigen.

 

VbYesNoCancel           3              Schaltflächen Ja, Nein und Abbrechen anzeigen.

 

VbYesNo           4              Schaltflächen Ja und Nein anzeigen.

 

VbRetryCancel           5              Schaltflächen Wiederholen und Abbrechen anzeigen.

 

VbCritical          16              Meldung mit Stop-Symbol anzeigen.

 

VbQuestion          32              Meldung mit Fragezeichen-Symbol anzeigen.

 

VbExclamation          48              Meldung mit Ausrufezeichen-Symbol anzeigen.

 

VbInformation          64              Meldung mit Info-Symbol anzeigen.

 

VbDefaultButton1        0              Erste Schaltfläche ist Voreinstellung.

 

VbDefaultButton2       256             Zweite Schaltfläche ist Voreinstellung.

 

VbDefaultButton3       512             Dritte Schaltfläche ist Voreinstellung.

 

VbDefaultButton4       768             Vierte Schaltfläche ist Voreinstellung.

 

VbApplicationModal     0              Anwendungsgebunden. Der Benutzer muß auf das Dialogfeld

 

                                                        reagieren, bevor er die Arbeit mit der aktuellen Anwendung

 

                                                        fortsetzen kann.

 

VbSystemModal       4096               Systemgebunden. Alle Anwendungen werden unterbrochen, bis der

 

                                                        Benutzer auf das Dialogfeld reagiert.

Abfrage msgbox

' 65 = VbInformation > 64 und VbOKCancel > 1

 

Antwort=msgbox("Es wird nun die Installations Routine ausgeführt !",65,"ACHTUNG")

 

If Antwort = vbCancel Then wscript.quit

Ausgeben von Name Pfad Oberpfad

set wshshell=createobject("wscript.shell")

 

set fso = createobject("Scripting.filesystemobject")

 

 

 

name = WScript.ScriptName

 

Pfad=fso.getAbsolutePathName(name)     ' Pfad mit Name

 

Oberpfad=fso.GetParentFolderName(Pfad) ' Oberpfad ohne Name

 

 

 

'msgbox name ' Name

 

'msgbox Pfad      ' Pfad mit Name

 

'msgbox Oberpfad ' Oberpfad ohne Name

Programme aufrufen

set wshshell=createobject("wscript.shell")

 

set fso = createobject("Scripting.filesystemobject")

 

 

 

name = WScript.ScriptName

 

Pfad=fso.getAbsolutePathName(name)     ' Pfad mit Name

 

Oberpfad=fso.GetParentFolderName(Pfad) ' Oberpfad ohne Name

 

 

 

'msgbox name ' Name

 

'msgbox Pfad      ' Pfad mit Name

 

'msgbox Oberpfad ' Oberpfad ohne Name

 

 

 

wshshell.run(chr(34)&Oberpfad&"\Setup\setup.exe"&chr(34))     ' Setup starten

 

' Beispiel:

 

' Pfad = Chr(34) + "C:\Eigene Dateien" + Chr(34) ' chr(34) ist dringend nötig

 

' Pfad = """C:\Eigene Dateien""" ' geht auch so

 

 

 

wscript.sleep 3000   ' Macht eine Pause von 3000 Milisekunden = 3 Sek.

 

 

 

wshshell.run(chr(34)&Oberpfad&"\Installation\RZ Utilities installieren.exe"&chr(34))    

 

' Installation starten = kopieren

Ausgeben von absolutem Pfad

set fso = createobject("Scripting.filesystemobject")

 

name = WScript.ScriptName

 

msgbox ("Scriptname: " & name & vbcr _

 

& "Pfad: " & fso.getAbsolutePathName(name) )

Ausgeben von allen SpecialFolders

Set ws = CreateObject("Wscript.Shell")

 

li = "Systemordner:" & vbcr

 

i=0

 

For Each Ordner In ws.SpecialFolders

 

li = li & vbcr & "<" & i & "> " & Ordner

 

i=i+1

 

Next

 

msgbox(li)

 

msgbox(ws.SpecialFolders(0))

Ausgeben von Scriptname und Pfad

set fso = createobject("Scripting.filesystemobject")

 

name = WScript.ScriptName

 

msgbox ("Scriptname: " & name & vbcr _

 

& "Pfad: " & fso.getAbsolutePathName(name) )

Notepad starten

set wshshell=createobject("wscript.shell")

 

' wscript.sleep 10000   ' Macht eine Pause von 10000 Milisekunden = 10 Sek.

 

wshshell.run(chr(34)&"C:\Windows\Notepad.exe"&chr(34)),7   ' Der Parameter ,7 = wird minimiert gestartet

 

 

 

' Parameter:

 

' 0 Blendet das Fenster aus und aktiviert ein anderes Fenster.

 

' 1 Aktiviert ein Fenster und zeigt es an. Wenn das Fenster minimiert oder maximiert ist, stellt das System es mit seiner ursprünglichen Größe und Position wieder her. Eine Anwendung sollte dieses Flag angeben, wenn das Fenster zum ersten Mal angezeigt wird.

 

' 2 Aktiviert das Fenster und zeigt es als minimiertes Fenster an.

 

' 3 Aktiviert das Fenster und zeigt es als maximiertes Fenster an.

 

' 4 Zeigt ein Fenster in der jeweils aktuellen Größe und Position an. Das aktive Fenster bleibt aktiv.

 

' 5 Aktiviert das Fenster und zeigt es in der aktuellen Größe und Position an.

 

' 6 Minimiert das angegebene Fenster und aktiviert das Fenster auf der nächstniedrigen Ebene in der Z-Reihenfolge.

 

' 7 Zeigt das Fenster als minimiertes Fenster an. Das aktive Fenster bleibt aktiv.

 

' 8 Zeigt das Fenster in seinem aktuellen Zustand an. Das aktive Fenster bleibt aktiv.

 

' 9 Aktiviert das Fenster und zeigt es an. Wenn das Fenster minimiert oder maximiert ist, stellt das System es mit seiner ursprünglichen Größe und Position wieder her. Eine Anwendung sollte dieses Flag angeben, wenn ein minimiertes Fenster wiederhergestellt wird.

 

' 10 Legt den Anzeigezustand basierend auf dem Zustand des Programms fest, das die Anwendung gestartet hat.

Script wartet

wscript.sleep 10000   ' Macht eine Pause von 10000 Milisekunden = 10 Sek.

Verknüpfung auf Desktop erstellen

' Dieses Skript erstellt eine Verknüpfung vom Texteditor auf Ihrem Desktop:

 

set wshshell = CreateObject("WScript.Shell")

 

' Ort des Windowsdesktops

 

desktopdir = wshshell.SpecialFolders(0)

 

'desktopdir = "c:\winnt\profiles\USERID\desktop"

 

neuerlink = desktopdir & "\Texteditor.lnk"

 

set link = wshshell.Createshortcut(neuerlink)

 

link.TargetPath = "NOTEPAD.EXE"

 

link.Save

autorun

MsgBox ("Verknüpfung zu Notepad wurde auf dem Desktop angelegt!")