'********************************** '* umbenennen in: * '* * '* VBScriptBeispielMsgBox.vbs * '* * '* Skript zur Anzeige von * '* Datum, Rechnername, * '* aktueller Benutzer * '********************************** '**** Variablendeklaration erzwingen *** Option Explicit '**** Variablendeklaration ******* Dim strDatum Dim objRechner Dim strRechnername Dim strBenutzer Dim strText '**** Wertzuweisung ************** ' Datum strDatum = Date ' Rechnername Set objRechner = CreateObject("Wscript.Network") strRechnername = objRechner.Computername 'aktueller Benutzer strBenutzer = objRechner.Username '**** Gesamttext zusammenbauen ***** strText = "Datum: " & strDatum & vbCr _ & "Rechnername: " & strRechnername & vbCr _ & "Benutzer: " & strBenutzer '**** Ausgabe der Messagebox ******* MsgBox strText