USUÁRIO:
SENHA:
SALVAR LOGIN ?
Dicas
Visual Basic
(Windows)
Título da Dica:
Obtendo informações da placa-mãe 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_BaseBoard")
For Each dc In dcSet
Debug.Print "Caption: " & dc.Caption
Debug.Print "ConfigOptions: " & dc.ConfigOptions
Debug.Print "CreationClassName: " & dc.CreationClassName
Debug.Print "Depth: " & dc.Depth
Debug.Print "Description: " & dc.Description
Debug.Print "Height: " & dc.Height
Debug.Print "HostingBoard: " & dc.HostingBoard
Debug.Print "HotSwappable: " & dc.HotSwappable
Debug.Print "InstallDate: " & dc.InstallDate
Debug.Print "Manufacturer: " & dc.Manufacturer
Debug.Print "Model: " & dc.Model
Debug.Print "Name: " & dc.Name
Debug.Print "OtherIdentifyingInfo: " & dc.OtherIdentifyingInfo
Debug.Print "PartNumber: " & dc.PartNumber
Debug.Print "PoweredOn: " & dc.PoweredOn
Debug.Print "Product: " & dc.Product
Debug.Print "Removable: " & dc.Removable
Debug.Print "Replaceable: " & dc.Replaceable
Debug.Print "RequirementsDescription: " & dc.RequirementsDescription
Debug.Print "RequiresDaughterBoard: " & dc.RequiresDaughterBoard
Debug.Print "SerialNumber: " & dc.SerialNumber
Debug.Print "SKU: " & dc.SKU
Debug.Print "SlotLayout: " & dc.SlotLayout
Debug.Print "SpecialRequirements: " & dc.SpecialRequirements
Debug.Print "Status: " & dc.Status
Debug.Print "Tag: " & dc.Tag
Debug.Print "Version: " & dc.Version
Debug.Print "Weight: " & dc.Weight
Debug.Print "Width: " & dc.Width
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
