QTP获取本机打印机(含本地与网络)与网络打印机属性
上一篇 /
下一篇 2008-01-11 15:02:42
/ 个人分类:QTP
1. 获取本机所有本地与网络打印机属性:
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
2.获取网络打印机属性
Reference from QTP Help (Windows scrī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
收藏
举报
TAG:
QTP功能库