Information complete sur imprimante , pc , ...

Commenter

Contenu du snippet

Il donne les infos que vous chercher il suffit de garder les options les plus importantes et de les executer afins d'avoir les infos dont il vous faut !

Source / Exemple : 


On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)

For Each objItem in colItems
	WScript.Echo "Attributes: " & objItem.Attributes
	WScript.Echo "Availability: " & objItem.Availability
	WScript.Echo "AvailableJobSheets: " & objItem.AvailableJobSheets
	WScript.Echo "AveragePagesPerMinute: " & objItem.AveragePagesPerMinute
	WScript.Echo "Capabilities: " & objItem.Capabilities
	WScript.Echo "CapabilityDescriptions: " & objItem.CapabilityDescriptions
	WScript.Echo "Caption: " & objItem.Caption
	WScript.Echo "CharSetsSupported: " & objItem.CharSetsSupported
	WScript.Echo "Comment: " & objItem.Comment
	WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
	WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
	WScript.Echo "CreationClassName: " & objItem.CreationClassName
	WScript.Echo "CurrentCapabilities: " & objItem.CurrentCapabilities
	WScript.Echo "CurrentCharSet: " & objItem.CurrentCharSet
	WScript.Echo "CurrentLanguage: " & objItem.CurrentLanguage
	WScript.Echo "CurrentMimeType: " & objItem.CurrentMimeType
	WScript.Echo "CurrentNaturalLanguage: " & objItem.CurrentNaturalLanguage
	WScript.Echo "CurrentPaperType: " & objItem.CurrentPaperType
	WScript.Echo "Default: " & objItem.Default
	WScript.Echo "DefaultCapabilities: " & objItem.DefaultCapabilities
	WScript.Echo "DefaultCopies: " & objItem.DefaultCopies
	WScript.Echo "DefaultLanguage: " & objItem.DefaultLanguage
	WScript.Echo "DefaultMimeType: " & objItem.DefaultMimeType
	WScript.Echo "DefaultNumberUp: " & objItem.DefaultNumberUp
	WScript.Echo "DefaultPaperType: " & objItem.DefaultPaperType
	WScript.Echo "DefaultPriority: " & objItem.DefaultPriority
	WScript.Echo "Description: " & objItem.Description
	WScript.Echo "DetectedErrorState: " & objItem.DetectedErrorState
	WScript.Echo "DeviceID: " & objItem.DeviceID
	WScript.Echo "Direct: " & objItem.Direct
	WScript.Echo "DoCompleteFirst: " & objItem.DoCompleteFirst
	WScript.Echo "DriverName: " & objItem.DriverName
	WScript.Echo "EnableBIDI: " & objItem.EnableBIDI
	WScript.Echo "EnableDevQueryPrint: " & objItem.EnableDevQueryPrint
	WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
	WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
	WScript.Echo "ErrorInformation: " & objItem.ErrorInformation
	WScript.Echo "ExtendedDetectedErrorState: " & objItem.ExtendedDetectedErrorState
	WScript.Echo "ExtendedPrinterStatus: " & objItem.ExtendedPrinterStatus
	WScript.Echo "Hidden: " & objItem.Hidden
	WScript.Echo "HorizontalResolution: " & objItem.HorizontalResolution
	WScript.Echo "InstallDate: " & objItem.InstallDate
	WScript.Echo "JobCountSinceLastReset: " & objItem.JobCountSinceLastReset
	WScript.Echo "KeepPrintedJobs: " & objItem.KeepPrintedJobs
	WScript.Echo "LanguagesSupported: " & objItem.LanguagesSupported
	WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
	WScript.Echo "Local: " & objItem.Local
	WScript.Echo "Location: " & objItem.Location
	WScript.Echo "MarkingTechnology: " & objItem.MarkingTechnology
	WScript.Echo "MaxCopies: " & objItem.MaxCopies
	WScript.Echo "MaxNumberUp: " & objItem.MaxNumberUp
	WScript.Echo "MaxSizeSupported: " & objItem.MaxSizeSupported
	WScript.Echo "MimeTypesSupported: " & objItem.MimeTypesSupported
	WScript.Echo "Name: " & objItem.Name
	WScript.Echo "NaturalLanguagesSupported: " & objItem.NaturalLanguagesSupported
	WScript.Echo "Network: " & objItem.Network
	WScript.Echo "PaperSizesSupported: " & objItem.PaperSizesSupported
	WScript.Echo "PaperTypesAvailable: " & objItem.PaperTypesAvailable
	WScript.Echo "Parameters: " & objItem.Parameters
	WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
	WScript.Echo "PortName: " & objItem.PortName
	WScript.Echo "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
	WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
	WScript.Echo "PrinterPaperNames: " & objItem.PrinterPaperNames
	WScript.Echo "PrinterState: " & objItem.PrinterState
	WScript.Echo "PrinterStatus: " & objItem.PrinterStatus
	WScript.Echo "PrintJobDataType: " & objItem.PrintJobDataType
	WScript.Echo "PrintProcessor: " & objItem.PrintProcessor
	WScript.Echo "Priority: " & objItem.Priority
	WScript.Echo "Published: " & objItem.Published
	WScript.Echo "Queued: " & objItem.Queued
	WScript.Echo "RawOnly: " & objItem.RawOnly
	WScript.Echo "SeparatorFile: " & objItem.SeparatorFile
	WScript.Echo "ServerName: " & objItem.ServerName
	WScript.Echo "Shared: " & objItem.Shared
	WScript.Echo "ShareName: " & objItem.ShareName
	WScript.Echo "SpoolEnabled: " & objItem.SpoolEnabled
	WScript.Echo "StartTime: " & objItem.StartTime
	WScript.Echo "Status: " & objItem.Status
	WScript.Echo "StatusInfo: " & objItem.StatusInfo
	WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
	WScript.Echo "SystemName: " & objItem.SystemName
	WScript.Echo "TimeOfLastReset: " & objItem.TimeOfLastReset
	WScript.Echo "UntilTime: " & objItem.UntilTime
	WScript.Echo "VerticalResolution: " & objItem.VerticalResolution
	WScript.Echo "WorkOffline: " & objItem.WorkOffline
	WScript.Echo ""
Next

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Sibelle07)