'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