Option Explicit

Dim Message, Title
Dim WshShell, objEnv

' Hole das Shell-Objekt
 Set WshShell = CreateObject ("WScript.Shell")
' Hole jetzt die Auflistung über die Environment-Eigenschaft
 Set objEnv = WshShell.Environment("Process")

 Message = "DONE_HSM.TIF will be placed in : " + vbCRLF + vbCRLF
 Message = Message + "Path: " + objEnv("TEMP") + vbCRLF
' Titeltext initialisieren
 Title = "IID UTILS (" + WScript.ScriptName+")" 
 MsgBox Message, vbInformation + vbOKOnly, Title
 WScript.Quit