[转载]QTP获取本机打印机与网络打印机属性

strComputer = "."
Set ōbjWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_PrinterDriver")

PrtNameArray = Array ()
ReDim PrtNameArray (colInstalledPrinters.Count-1)
i = 0
For each objPrinter in colInstalledPrinters
 PrtNameArray(i) = objPrinter.Name
 i = i + 1
Next

Reference from Microsoft.com (scrīpt Center)

strComputer = "."
Set ōbjWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_PrinterDriver")

For each objPrinter in colInstalledPrinters
    Wscrīpt.Echo "Configuration File: " & objPrinter.ConfigFile
    Wscrīpt.Echo "Data File: " & objPrinter.DataFile
    Wscrīpt.Echo "Descrīption: " & objPrinter.Descrīption
    Wscrīpt.Echo "Driver Path: " & objPrinter.DriverPath
    Wscrīpt.Echo "File Path: " & objPrinter.FilePath
    Wscrīpt.Echo "Help File: " & objPrinter.HelpFile
    Wscrīpt.Echo "INF Name: " & objPrinter.InfName
    Wscrīpt.Echo "Monitor Name: " & objPrinter.MonitorName
    Wscrīpt.Echo "Name: " & objPrinter.Name
    Wscrīpt.Echo "OEM Url: " & objPrinter.OEMUrl
    Wscrīpt.Echo "Supported Platform: " & objPrinter.SupportedPlatform
    Wscrīpt.Echo "Version: " & objPrinter.Version
Next

Reference from QTP Help (Windowsscrīpt Host)

Set WshNetwork = Wscrīpt.CreateObject("Wscrīpt.Network")
Set ōDrives = WshNetwork.EnumNetworkDrives
Set ōPrinters = WshNetwork.EnumPrinterConnections
Wscrīpt.Echo "Network drive mappings:"
For i = 0 to oDrives.Count - 1 Step 2
   Wscrīpt.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
Wscrīpt.Echo
Wscrīpt.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
   Wscrīpt.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next