Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
- Set colBIOS = objWMIService.ExecQuery _
- ("Select * from Win32_BIOS")
- For each objBIOS in colBIOS
- x=msgbox("Serial Number: " & objBIOS.SerialNumber)
- Next
- const HKEY_LOCAL_MACHINE = &H80000002
- strComputer = "."
- Set StdOut = WScript.StdOut
- Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
- strComputer & "\root\default:StdRegProv")
- strKeyPath = "SOFTWARE\Get Bios\Serial Number"
- oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
- strValueName = "Serial Number"
- strValue = ???
- oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement