werken met wmic

[mario82]

ik zou 4 waarden van de bios moeten laten zien in een tekst bestand maar kom niet verder als dat ik alle waarden tezien krijg

Set shell = WScript.CreateObject ("WScript.Shell")
shell.run "wmic /OUTPUT:bios.txt bios get caption"

kan iemand me verder helpen?

 

[edmoor]

Je zou dit kunnen gebruiken:

Sub BiosInfo()
    Set objWMIService = GetObject("winmgmts://./root/cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS where PrimaryBIOS = true", , 48)

    For Each objItem In colItems
        strmsg = strmsg _
           & "    BIOS Name       :  " & objItem.Name & vbCrLf _
           & "    Version         :  " & objItem.Version & vbCrLf _
           & "    Manufacturer    :  " & objItem.Manufacturer & vbCrLf _
           & "    Serial Number   :  " & objItem.SerialNumber & vbCrLf _
           & "    SMBIOS Version  :  " & objItem.SMBIOSBIOSVersion & vbCrLf
    Next

    MsgBox strmsg
End Sub

Even zelf de object attributen opgeven waarvan je de waarden wilt zien.
Bijvoorbeeld objItem.Caption

 

[mario82]

merci edmoor