VBScript: как найти принтер в системе по умолчанию

2006-09-05T09:56:44Z

Это можно сделать через 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

Серый форум — VBScript: как найти принтер в системе по умолчанию

VBScript: как найти принтер в системе по умолчанию