'v4.7******************************************************** ' File: standarddrucker.vbs ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' Welcher ist der Standarddrucker? '************************************************************ Option Explicit Dim Text, KeyX, WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") KeyX = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device" Text = WshShell.RegRead( KeyX ) Text = Left ( Text, InStr( Text, ",")-1 ) MsgBox Text, , WScript.ScriptName WScript.Quit