Sys_GetSerialNumber

VB Scripting Library > OSD Scripting Library > System functions (OSD)

Sys_GetSerialNumber()

Gets the computers serial number from BIOS, and returns it in gsValue.
If BIOS doesn’t contain a serial number, gsValue returns an empty string. gbValue is TRUE when the serial number could be read from BIOS, even if it’s empty.

Arguments

No arguments provided.

Return Type

Boolean, TRUE if function completed successfully.
The function returns FALSE, and gbValue returns FALSE, if the BIOS information can’t be read.

Remarks

Typically used in the PreBootScript.wsf

Example

The following example will retrieve the serial number and display a warning to the user if no serial number can be found.

Note

This function is called by the OSD_Initialize function, which stores the serial number in the gsSerialNumber variable.

• VBScript

Private Function IncludeScript(sScriptFile)
 '...
End Function

'Begin
  bStatus=True
  If bStatus Then bStatus=IncludeScript("customlib.cis")
  If bStatus Then bStatus=IncludeLibrary("Capalib.cin")
  If bStatus Then bStatus=IncludeLibrary("Osdlib.cin")
  If bStatus Then bStatus=Job_Start("WS","Script Name","1.0","ScriptName.log","INSTALL")
  If bStatus Then bStatus=OSD_Initialize()

  If bStatus Then bStatus=Sys_GetSerialNumber()
  If bStatus and gsValue = "" Then bStatus=Dialog_ShowWarning("No serial number found in BIOS")

  Job_End(bStatus)
'End main

See Also

Scripting Guidelines, Dialog_ShowWarning Constants Package Property Variables