用WMI列出BIOS資訊並寫入文字檔

f66666602

'script written by KB http://userpages.umbc.edu/~kbradl1/
Dim oBIOS, oArrBIOS
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("bios.txt", True)
Set oArrBIOS = GetObject("winmgmts:").ExecQuery("Select * From Win32_BIOS Where PrimaryBIOS=true")      'get the primary machine bios chip properties
For Each oBIOS In oArrBIOS
        outFile.WriteLine("Manufacturer: " & oBIOS.Manufacturer)
        outFile.WriteLine("Name: " & oBIOS.Name)
        outFile.WriteLine("ReleaseDate: " & FromWMIDate(oBIOS.ReleaseDate))
        outFile.WriteLine("PrimaryBIOS: " & oBIOS.PrimaryBIOS)
        outFile.WriteLine("SMBIOSBIOSVersion: " & oBIOS.SMBIOSBIOSVersion)
        outFile.WriteLine("SMBIOSMajorVersion: " & oBIOS.SMBIOSMajorVersion)
        outFile.WriteLine("Status: " & oBIOS.Status)
        outFile.WriteLine("Version: " & oBIOS.Version)
Next
Set oArrBIOS = Nothing

Function FromWMIDate(sDate)
        Dim iDay, iMonth, iYear
        iDay = Mid(sDate, 5, 2)
        iMonth = Mid(sDate, 7, 2)
        iYear = Mid(sDate, 1, 4)
        FromWMIDate = iDay & "/" & iMonth & "/" & iYear
End Function