VBScript under Windows Script Host is very powerful. Most daily administrative tasks can be implemented and performed using VBScript, which comes at each Windows Versions from and after Win98.
BIOS is a specific program that runs after a computer starts.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ' Retrieving BIOS Information Dim strComputer, colBIOS, objBIOS, i strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colBIOS = objWMIService.ExecQuery _ ("Select * from Win32_BIOS") For each objBIOS in colBIOS Wscript.Echo "Build Number: " & objBIOS.BuildNumber Wscript.Echo "Current Language: " & objBIOS.CurrentLanguage Wscript.Echo "Installable Languages: " & objBIOS.InstallableLanguages Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer Wscript.Echo "Name: " & objBIOS.Name Wscript.Echo "Primary BIOS: " & objBIOS.PrimaryBIOS Wscript.Echo "Release Date: " & objBIOS.ReleaseDate Wscript.Echo "Serial Number: " & objBIOS.SerialNumber Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent Wscript.Echo "Status: " & objBIOS.Status Wscript.Echo "Version: " & objBIOS.Version For i = 0 to Ubound(objBIOS.BiosCharacteristics) Wscript.Echo "BIOS Characteristics: " & _ objBIOS.BiosCharacteristics(i) Next Next |
' Retrieving BIOS Information
Dim strComputer, colBIOS, objBIOS, i
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For each objBIOS in colBIOS
Wscript.Echo "Build Number: " & objBIOS.BuildNumber
Wscript.Echo "Current Language: " & objBIOS.CurrentLanguage
Wscript.Echo "Installable Languages: " & objBIOS.InstallableLanguages
Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer
Wscript.Echo "Name: " & objBIOS.Name
Wscript.Echo "Primary BIOS: " & objBIOS.PrimaryBIOS
Wscript.Echo "Release Date: " & objBIOS.ReleaseDate
Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion
Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion
Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion
Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent
Wscript.Echo "Status: " & objBIOS.Status
Wscript.Echo "Version: " & objBIOS.Version
For i = 0 to Ubound(objBIOS.BiosCharacteristics)
Wscript.Echo "BIOS Characteristics: " & _
objBIOS.BiosCharacteristics(i)
Next
NextExample output:
Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation. All rights reserved. Build Number: Current Language: en-US Installable Languages: 1 Manufacturer: LENOVO Name: Default System BIOS Primary BIOS: True Release Date: 20111206000000.000000+000 Serial Number: R9MYPT3 SMBIOS Version: 8AET56WW (1.36 ) SMBIOS Major Version: 2 SMBIOS Minor Version: 6 SMBIOS Present: True Status: OK Version: LENOVO - 1360 BIOS Characteristics: 7 BIOS Characteristics: 9 BIOS Characteristics: 11 BIOS Characteristics: 12 BIOS Characteristics: 15 BIOS Characteristics: 16 BIOS Characteristics: 19 BIOS Characteristics: 24 BIOS Characteristics: 26 BIOS Characteristics: 27 BIOS Characteristics: 28 BIOS Characteristics: 29 BIOS Characteristics: 30 BIOS Characteristics: 32 BIOS Characteristics: 33 BIOS Characteristics: 40 BIOS Characteristics: 42 BIOS Characteristics: 48 BIOS Characteristics: 58 BIOS Characteristics: 61 BIOS Characteristics: 64 BIOS Characteristics: 77 ***** script completed - exit code: 0 *****
–EOF (The Ultimate Computing & Technology Blog) —
GD Star Rating
loading...
343 wordsloading...
Last Post: Two Domains HSTS - HTTP Strict Transport Security
Next Post: C++ Function to Check if Integer is Power of Two
