Как узнать какой принтер установлен по умолчанию?

[ВиталийВВ]

Как узнать, какой на "моем компьютере" установлен принтер по умолчанию?
Данное необходимо для автоматизации установки ПО.
В идеале вид, выдаваемый этой "узнавалкой" должен быть таким:

\\R59suzdaltseva\hp LaserJet 1160

 

[ildar]

Предполагаю что на разных операционных системах по своему. На Win7 32

$sPrinter = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\", "Device")
MsgBox(0, 'Сообщение', 'Принтер по умолчанию: ' & $sPrinter)

 

[ВиталийВВ]

Стоит Win XP.
опознается хорошо, но выдает:

\\10.30.9.72\HP LaserJet Professional M1212nf MFP,winspool,Ne04:

как срезать все, что после запятой?


Добавлено:

Сообщение автоматически объединено: 29 Фев 2016

$sPrinter = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\", "Device")
$sPrinter = StringLeft($sPrinter, StringInStr($sPrinter, ",") - 1)
MsgBox(0, 'Сообщение', 'Принтер по умолчанию: ' & $sPrinter)

 

[Yashied]

_WinAPI_GetDefaultPrinter()

 

[ВиталийВВ]

_WinAPI_GetDefaultPrinter()

#Include <WinAPIEx.au3>
#Include <WinAPI.au3>

$sPrinterOld = _WinAPI_GetDefaultPrinter()
MsgBox(0, "", $sPrinterOLD)

более подробно тут:
http://autoit-script.ru/index.php?topic=1811.0