by Karthikeyan (187 Submissions)
Category: Miscellaneous
Compatability: VB Script
Difficulty: Unknown Difficulty
Originally Published: Thu 29th July 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Get the installed Printer details using Win32_Printer WMI Class
VBcoders
'Generated using 'WMI Win32 Class Autoscript Generator' - Developed by Karthikeyan
'Homepage: http://www.geocities.com/marskarthik
On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_Printer.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_Printer Class by Karthikeyan"
TextFile.WriteLine
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_Printer",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
TextFile.WriteLine "Attributes: " & SubItems.Attributes
TextFile.WriteLine "Availability: " & SubItems.Availability
TextFile.WriteLine "AvailableJobSheets: " & SubItems.AvailableJobSheets
TextFile.WriteLine "AveragePagesPerMinute: " & SubItems.AveragePagesPerMinute
TextFile.WriteLine "Capabilities: " & SubItems.Capabilities
TextFile.WriteLine "CapabilityDescriptions: " & SubItems.CapabilityDescriptions
TextFile.WriteLine "Caption: " & SubItems.Caption
TextFile.WriteLine "CharSetsSupported: " & SubItems.CharSetsSupported
TextFile.WriteLine "Comment: " & SubItems.Comment
TextFile.WriteLine "ConfigManagerErrorCode: " & SubItems.ConfigManagerErrorCode
TextFile.WriteLine "ConfigManagerUserConfig: " & SubItems.ConfigManagerUserConfig
TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
TextFile.WriteLine "CurrentCapabilities: " & SubItems.CurrentCapabilities
TextFile.WriteLine "CurrentCharSet: " & SubItems.CurrentCharSet
TextFile.WriteLine "CurrentLanguage: " & SubItems.CurrentLanguage
TextFile.WriteLine "CurrentMimeType: " & SubItems.CurrentMimeType
TextFile.WriteLine "CurrentNaturalLanguage: " & SubItems.CurrentNaturalLanguage
TextFile.WriteLine "CurrentPaperType: " & SubItems.CurrentPaperType
TextFile.WriteLine "Default: " & SubItems.Default
TextFile.WriteLine "DefaultCapabilities: " & SubItems.DefaultCapabilities
TextFile.WriteLine "DefaultCopies: " & SubItems.DefaultCopies
TextFile.WriteLine "DefaultLanguage: " & SubItems.DefaultLanguage
TextFile.WriteLine "DefaultMimeType: " & SubItems.DefaultMimeType
TextFile.WriteLine "DefaultNumberUp: " & SubItems.DefaultNumberUp
TextFile.WriteLine "DefaultPaperType: " & SubItems.DefaultPaperType
TextFile.WriteLine "DefaultPriority: " & SubItems.DefaultPriority
TextFile.WriteLine "Description: " & SubItems.Description
TextFile.WriteLine "DetectedErrorState: " & SubItems.DetectedErrorState
TextFile.WriteLine "DeviceID: " & SubItems.DeviceID
TextFile.WriteLine "Direct: " & SubItems.Direct
TextFile.WriteLine "DoCompleteFirst: " & SubItems.DoCompleteFirst
TextFile.WriteLine "DriverName: " & SubItems.DriverName
TextFile.WriteLine "EnableBIDI: " & SubItems.EnableBIDI
TextFile.WriteLine "EnableDevQueryPrint: " & SubItems.EnableDevQueryPrint
TextFile.WriteLine "ErrorCleared: " & SubItems.ErrorCleared
TextFile.WriteLine "ErrorDescription: " & SubItems.ErrorDescription
TextFile.WriteLine "ErrorInformation: " & SubItems.ErrorInformation
TextFile.WriteLine "ExtendedDetectedErrorState: " & SubItems.ExtendedDetectedErrorState
TextFile.WriteLine "ExtendedPrinterStatus: " & SubItems.ExtendedPrinterStatus
TextFile.WriteLine "Hidden: " & SubItems.Hidden
TextFile.WriteLine "HorizontalResolution: " & SubItems.HorizontalResolution
TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
TextFile.WriteLine "JobCountSinceLastReset: " & SubItems.JobCountSinceLastReset
TextFile.WriteLine "KeepPrintedJobs: " & SubItems.KeepPrintedJobs
TextFile.WriteLine "LanguagesSupported: " & SubItems.LanguagesSupported
TextFile.WriteLine "LastErrorCode: " & SubItems.LastErrorCode
TextFile.WriteLine "Local: " & SubItems.Local
TextFile.WriteLine "Location: " & SubItems.Location
TextFile.WriteLine "MarkingTechnology: " & SubItems.MarkingTechnology
TextFile.WriteLine "MaxCopies: " & SubItems.MaxCopies
TextFile.WriteLine "MaxNumberUp: " & SubItems.MaxNumberUp
TextFile.WriteLine "MaxSizeSupported: " & SubItems.MaxSizeSupported
TextFile.WriteLine "MimeTypesSupported: " & SubItems.MimeTypesSupported
TextFile.WriteLine "Name: " & SubItems.Name
TextFile.WriteLine "NaturalLanguagesSupported: " & SubItems.NaturalLanguagesSupported
TextFile.WriteLine "Network: " & SubItems.Network
TextFile.WriteLine "PaperSizesSupported: " & SubItems.PaperSizesSupported
TextFile.WriteLine "PaperTypesAvailable: " & SubItems.PaperTypesAvailable
TextFile.WriteLine "Parameters: " & SubItems.Parameters
TextFile.WriteLine "PNPDeviceID: " & SubItems.PNPDeviceID
TextFile.WriteLine "PortName: " & SubItems.PortName
TextFile.WriteLine "PowerManagementCapabilities: " & SubItems.PowerManagementCapabilities
TextFile.WriteLine "PowerManagementSupported: " & SubItems.PowerManagementSupported
TextFile.WriteLine "PrinterPaperNames: " & SubItems.PrinterPaperNames
TextFile.WriteLine "PrinterState: " & SubItems.PrinterState
TextFile.WriteLine "PrinterStatus: " & SubItems.PrinterStatus
TextFile.WriteLine "PrintJobDataType: " & SubItems.PrintJobDataType
TextFile.WriteLine "PrintProcessor: " & SubItems.PrintProcessor
TextFile.WriteLine "Priority: " & SubItems.Priority
TextFile.WriteLine "Published: " & SubItems.Published
TextFile.WriteLine "Queued: " & SubItems.Queued
TextFile.WriteLine "RawOnly: " & SubItems.RawOnly
TextFile.WriteLine "SeparatorFile: " & SubItems.SeparatorFile
TextFile.WriteLine "ServerName: " & SubItems.ServerName
TextFile.WriteLine "Shared: " & SubItems.Shared
TextFile.WriteLine "ShareName: " & SubItems.ShareName
TextFile.WriteLine "SpoolEnabled: " & SubItems.SpoolEnabled
TextFile.WriteLine "StartTime: " & SubItems.StartTime
TextFile.WriteLine "Status: " & SubItems.Status
TextFile.WriteLine "StatusInfo: " & SubItems.StatusInfo
TextFile.WriteLine "SystemCreationClassName: " & SubItems.SystemCreationClassName
TextFile.WriteLine "SystemName: " & SubItems.SystemName
TextFile.WriteLine "TimeOfLastReset: " & SubItems.TimeOfLastReset
TextFile.WriteLine "UntilTime: " & SubItems.UntilTime
TextFile.WriteLine "VerticalResolution: " & SubItems.VerticalResolution
TextFile.WriteLine "WorkOffline: " & SubItems.WorkOffline
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_Printer.txt",1,True
No comments have been posted about Get the installed Printer details using Win32_Printer WMI Class. Why not be the first to post a comment about Get the installed Printer details using Win32_Printer WMI Class.
