|
|
| |
|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Obtendo informações da BIOS 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
On Error Resume Next
Dim dcSet As SWbemObjectSet
Dim dc As SWbemObject
Set dcSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_BIOS")
For Each dc In dcSet
Debug.Print "BiosCharacteristics: " & dc.BiosCharacteristics
Debug.Print "BuildNumber: " & dc.BuildNumber
Debug.Print "Caption: " & dc.Caption
Debug.Print "CodeSet: " & dc.CodeSet
Debug.Print "CurrentLanguage: " & dc.CurrentLanguage
Debug.Print "Description: " & dc.Description
Debug.Print "IdentificationCode: " & dc.IdentificationCode
Debug.Print "InstallableLanguages: " & dc.InstallableLanguages
Debug.Print "InstallDate: " & dc.InstallDate
Debug.Print "LanguageEdition: " & dc.LanguageEdition
Debug.Print "ListOfLanguages: " & dc.ListOfLanguages
Debug.Print "Manufacturer: " & dc.Manufacturer
Debug.Print "Name: " & dc.Name
Debug.Print "OtherTargetOS: " & dc.OtherTargetOS
Debug.Print "PrimaryBIOS: " & dc.PrimaryBIOS
Debug.Print "ReleaseDate: " & dc.ReleaseDate
Debug.Print "SerialNumber: " & dc.SerialNumber
Debug.Print "SMBIOSBIOSVersion: " & dc.SMBIOSBIOSVersion
Debug.Print "SMBIOSMajorVersion: " & dc.SMBIOSMajorVersion
Debug.Print "SMBIOSMinorVersion: " & dc.SMBIOSMinorVersion
Debug.Print "SMBIOSPresent: " & dc.SMBIOSPresent
Debug.Print "SoftwareElementID: " & dc.SoftwareElementID
Debug.Print "SoftwareElementState: " & dc.SoftwareElementState
Debug.Print "Status: " & dc.Status
Debug.Print "TargetOperatingSystem: " & dc.TargetOperatingSystem
Debug.Print "Version: " & dc.Version
Next
Observação: Nem todos os objetos retornam resultados
|
|
|
|
|
|
|
|
