Windows Script Host

Der Windows Script Host (WSH) ist in Windows-Betriebssystemen eine COM basierte Laufzeitumgebung für Skriptsprachen. Microsoft stellt mit dem WSH Skriptmodule für Microsoft Visual Basic Script und Java Script zur Verfügung.

Hello World


WScript.Echo "Hello World"
WScript.Quit
	

Popup YesNoCancel


Set objWshShell = WScript.CreateObject("WScript.Shell")

sMsg = "Sollen alle Bilder gelöscht werden?" & Chr(13) & "Sind Sie sicher?"
iResult = objWshShell.Popup(sMsg, , "Löschen", vbYesNoCancel + vbQuestion + vbDefaultButton2)

If iResult = 6 Then
	WScript.Echo "Ja geklickt"
ElseIf iResult = 7 Then
	WScript.Echo "Nein geklickt"
Else
	WScript.Echo "Cancel geklickt"
End If

WScript.Quit
	
Constant Value Button
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No

Ein Programm mit geänderten Systemdatum starten


Set wshShell = CreateObject("WScript.Shell")

Set wshDate = Wscript.CreateObject ("Wscript.Shell")

'Das Systemdatum uebernehmen.
system_datum = Date

'Das modifizierte Datum setzen (Format beachten dd-mm-jj)
altes_datum = "20-04-02"
wshDate.Run "%comspec% /c date " & altes_datum, 0, true

'Den absoluten Path zum Programm setzen.
wshShell.Run """C:\Programme\MeinProgramm\Programm.exe"""

'Kleine Pause einlegen, damit es sich das modifizierte Datum holen kann.
Wscript.sleep 6000

'Das Systemdatum wieder setzen.
wshDate.Run "%comspec% /c date " & system_datum, 0, true
	

Öffne alle CD/DVD Laufwerke


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next  
End If
	

Umgebungsvariablen ausgeben


Set objWshShell = WScript.CreateObject("WScript.Shell")

sVariables = ""

For Each oEnvVar In objWshShell.Environment("Process")
    sVariables = sVariables & oEnvVar & Chr(13)
Next

WScript.Echo sVariables
	

Bauarbeiten an der Webseite


Bauarbeiten

Sorry, diese Seite befinden sich zur Zeit noch im Aufbau bzw. Umbau.
Also haben Sie bitte noch ein wenig Geduld, bis der volle Funktionsumfang zur Verfügung steht.


Top


Example
Sitemap Kontakt Impressum