USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
Topo da página