USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
Visual Basic
(Windows)
Título da Dica:
Obtendo informações da placa de vídeo utilizando WMI
Postada em 21/6/2003 por
cacá
Esse dica funcionará sem problemas no Windows 2000 e no XP. Para utlizar a WMI no Windows 98 vocês devem instalar o WMI Core. Vocês podem fazer o download em
http://www.microsoft.com/downloads/details.aspx?FamilyID=98a4c5ba-337b-4e92-8c18-a63847760ea5&DisplayLang=en
Dim dcSet As SWbemObjectSet
Dim objItem As SWbemObject
Set dcSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_VideoController")
For Each objItem In dcSet
Debug.Print "AcceleratorCapabilities: " & objItem.AcceleratorCapabilities
Debug.Print "AdapterCompatibility: " & objItem.AdapterCompatibility
Debug.Print "AdapterDACType: " & objItem.AdapterDACType
Debug.Print "AdapterRAM: " & objItem.AdapterRAM
Debug.Print "Availability: " & objItem.Availability
Debug.Print "CapabilityDescriptions: " & objItem.CapabilityDescriptions
Debug.Print "Caption: " & objItem.Caption
Debug.Print "ColorTableEntries: " & objItem.ColorTableEntries
Debug.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Debug.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
Debug.Print "CreationClassName: " & objItem.CreationClassName
Debug.Print "CurrentBitsPerPixel: " & objItem.CurrentBitsPerPixel
Debug.Print "CurrentHorizontalResolution: " & objItem.CurrentHorizontalResolution
Debug.Print "CurrentNumberOfColors: " & objItem.CurrentNumberOfColors
Debug.Print "CurrentNumberOfColumns: " & objItem.CurrentNumberOfColumns
Debug.Print "CurrentNumberOfRows: " & objItem.CurrentNumberOfRows
Debug.Print "CurrentRefreshRate: " & objItem.CurrentRefreshRate
Debug.Print "CurrentScanMode: " & objItem.CurrentScanMode
Debug.Print "CurrentVerticalResolution: " & objItem.CurrentVerticalResolution
Debug.Print "Description: " & objItem.Description
Debug.Print "DeviceID: " & objItem.DeviceID
Debug.Print "DeviceSpecificPens: " & objItem.DeviceSpecificPens
Debug.Print "DitherType: " & objItem.DitherType
Debug.Print "DriverDate: " & objItem.DriverDate
Debug.Print "DriverVersion: " & objItem.DriverVersion
Debug.Print "ErrorCleared: " & objItem.ErrorCleared
Debug.Print "ErrorDescription: " & objItem.ErrorDescription
Debug.Print "ICMIntent: " & objItem.ICMIntent
Debug.Print "ICMMethod: " & objItem.ICMMethod
Debug.Print "InfFilename: " & objItem.InfFilename
Debug.Print "InfSection: " & objItem.InfSection
Debug.Print "InstallDate: " & objItem.InstallDate
Debug.Print "InstalledDisplayDrivers: " & objItem.InstalledDisplayDrivers
Debug.Print "LastErrorCode: " & objItem.LastErrorCode
Debug.Print "MaxMemorySupported: " & objItem.MaxMemorySupported
Debug.Print "MaxNumberControlled: " & objItem.MaxNumberControlled
Debug.Print "MaxRefreshRate: " & objItem.MaxRefreshRate
Debug.Print "MinRefreshRate: " & objItem.MinRefreshRate
Debug.Print "Monochrome: " & objItem.Monochrome
Debug.Print "Name: " & objItem.Name
Debug.Print "NumberOfColorPlanes: " & objItem.NumberOfColorPlanes
Debug.Print "NumberOfVideoPages: " & objItem.NumberOfVideoPages
Debug.Print "PNPDeviceID: " & objItem.PNPDeviceID
Debug.Print "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
Debug.Print "PowerManagementSupported: " & objItem.PowerManagementSupported
Debug.Print "ProtocolSupported: " & objItem.ProtocolSupported
Debug.Print "ReservedSystemPaletteEntries: " & objItem.ReservedSystemPaletteEntries
Debug.Print "SpecificationVersion: " & objItem.SpecificationVersion
Debug.Print "Status: " & objItem.Status
Debug.Print "StatusInfo: " & objItem.StatusInfo
Debug.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
Debug.Print "SystemName: " & objItem.SystemName
Debug.Print "SystemPaletteEntries: " & objItem.SystemPaletteEntries
Debug.Print "TimeOfLastReset: " & objItem.TimeOfLastReset
Debug.Print "VideoArchitecture: " & objItem.VideoArchitecture
Debug.Print "VideoMemoryType: " & objItem.VideoMemoryType
Debug.Print "VideoMode: " & objItem.VideoMode
Debug.Print "VideoModeDescription: " & objItem.VideoModeDescription
Debug.Print "VideoProcessor: " & objItem.VideoProcessor
Next
Observação: Nem todos os objetos retornam resultados
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
