Тема: VBScript: как найти принтер в системе по умолчанию
Это можно сделать через WMI:
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
WScript.Echo Err.Number & ": " & Err.Description
WScript.Quit
End If
For Each objPrn In objService.ExecQuery("SELECT * FROM Win32_Printer")
If objPrn.Attributes And 4 Then
WScript.Echo objPrn.Name
Exit For
End If
Next
Кроме того, можно просто прочитать соответствующее значение реестра:
Set objShell = CreateObject("WScript.Shell")
Prn = objShell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")
WScript.Echo Prn
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.