1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: 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
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.