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