Break on

$rc = SetOption("WrapAtEOL", "On")

$stag = "xxxxxxx"
$expscode = "12345678901"

$conv = BaseConverter($stag, 36, 10)
?$conv

$conv = BaseConverter($expscode, 10, 36)
? $conv

Sleep 15

;Function BaseConverter()
;
;Authors
;	Howard Bullock
;	BrianTX
;	Shawn Tassie
;	Jooel Nieminen
;
;Version 1.0.1
;
;Version history
;	1.0.1 (5.6.2004) - fixed annoying variable scope problem
;	1.0 (7.7.2002) - initial kixgolf code
;
;Action Converts bases 2-36 from any to any
;
;Syntax BaseConverter($Value, $From, $To)
;
;Parameters
;	$Value - String or Integer, Value to be converted
;	$From - Integer, Base where convert from
;	$To - Integer, Base to convert to
;
;Remarks
;	Code was produces as kixgolf-competition.
;	For More info see topics:
;		http://81.17.37.55/board/ultimatebb.php?ubb=get_topic;f=2;t=003447
;		http://81.17.37.55/board/ultimatebb.php?ubb=get_topic;f=2;t=003458
;		http://81.17.37.55/board/ultimatebb.php?ubb=get_topic;f=2;t=003470
;	Thanks to:
;		Sealeopard - our host on the competition
;		Kholm - for participating
;
;Returns
;	on success: Value converted to specified base
;	on error: nothing. sets error to 1
;
;Dependencies
;	None
;
;Example
;	"Value 44680832201 is in base10" ?
;	"when converted to base36 it's '"
;	BaseConverter('44680832201', 10, 36)
;	"'"
;
;Source

Function BaseConverter($v, $f, $t)
	Dim $, $e, $y, $n, $x, $z

	$ = 0
	$t = $ + $t
	$f = $ + $f
	$e = ($f > 36) | ( $t > 36 ) | ( $f < 2 ) | ( $t < 2 )   
	$y = 1.

	For $n = Len($v) to 1 step - 1
		$x = Asc(UCase(SubStr($v, $n, 1)))
		$z = ($x - 48 - ($x > 64) * 7)
		If ($z < 0) | ( ($x > 57) & ( $x < 65 ) ) | $e | ( $z > ( $f - 1 ) )
			Exit 1
		EndIf

		$ = $y * $z + $
		$y = $y * $f	
	Next

	$n = ""

	While $
		$x = Int($ - (Int($ / $t) * $t))
		$ = ($ - $x) / $t
		$n = Chr($x + 48 + ($x > 9) * 7) + $n
	Loop

	$BaseConverter = $n
EndFunction

Break On
Dim $SO
$SO = SetOption('Explicit', 'On')
$SO = SetOption('NoVarsInStrings', 'On')
$SO = SetOption('NoMacrosInStrings', 'On')
 
Dim $Chk, $MyBIOSInfo
Dim $Mfg, $Model, $Ser, $Esc
;$Chk = WMIConfirm('computer name')
;If $Chk
	$MyBIOSInfo = GetBIOSInfo()
	If VarType($MyBIOSInfo) > 8
		$Mfg = $MyBIOSInfo[0]
		'Mfg: ' + $Mfg ?
		$Model = $MyBIOSInfo[1]
		'Model: ' + $Model ?
		$Ser = $MyBIOSInfo[2]
		'Serial / Tag number: ' + $Ser ?
		$Esc = BaseConverter($Ser, 36, 10)
		'Express Service Code: ' + $Esc ?
	Else
		'Error getting BIOS information. ' + @ERROR + ' - ' + @SERROR ?
	EndIf
;Else
;	'Error accessing WMI. ' + @ERROR + ' - ' + @SERROR ?
;EndIf

Sleep 20
 
Function WMIConfirm(optional $sComputer) 
	Dim $objWMIService, $objWMISetting, $colWMISettings 
	$sComputer = IIf(Not $sComputer, '', '\\' + Join(Split($sComputer, '\'), '', 3) + '\') 
	$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!" + $sComputer + 'root\cimv2') 
	; Failed - return 0 and exit with error value  
	If @ERROR 
		$WMIConfirm = 0 
		Exit Val('&' + Right(DecToHex(@ERROR), 4)) 
	EndIf 
	$colWMISettings = $objWMIService.ExecQuery("Select * from Win32_WMISetting") 
	For Each $objWMISetting in $colWMISettings 
		$WMIConfirm = $objWMISetting.BuildVersion 
	Next 
	Exit 0 
EndFunction
 
Function GetBIOSInfo(optional $sComputer)
	Dim $objWMIService, $Mfg, $Model, $Ser
	Dim $M, $S, $SerialNumber, $Manufacturer
	$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!" + $sComputer + 'root\cimv2')
	If @ERROR 
		$GetBIOSInfo = 0 
		Exit Val('&' + Right(DecToHex(@ERROR), 4)) 
	EndIf 
	$Mfg = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem",, 48)
	$Ser = $objWMIService.ExecQuery("Select * from Win32_BIOS",, 48)
	For Each $M in $Mfg
		If $M
			$Manufacturer = Trim($M.Manufacturer)
			$Model = Trim($M.Model)
		EndIf
	Next
	For Each $S in $Ser
		If $S
			$SerialNumber = Trim($S.SerialNumber)
		EndIf
	Next
	$GetBIOSInfo = $Manufacturer, $Model, $SerialNumber
	Exit 0
EndFunction
 
Function BaseConverter($v, $f, $t)
	Dim $, $e, $y, $n, $x, $z
	$ = 0
	$t = $ + $t
	$f = $ + $f
	$e = ($f > 36) | ( $t > 36 ) | ( $f < 2 ) | ( $t < 2 )   
	$y = 1.
	For $n = Len($v) to 1 step - 1
		$x = Asc(UCase(SubStr($v, $n, 1)))
		$z = ($x - 48 - ($x > 64) * 7)
		If ($z < 0) | ( ($x > 57) & ( $x < 65 ) ) | $e | ( $z > ( $f - 1 ) )
			Exit 1
		EndIf
		$ = $y * $z + $
		$y = $y * $f
	Next
	$n = ""
	While $
		$x = Int($ - (Int($ / $t) * $t))
		$ = ($ - $x) / $t
		$n = Chr($x + 48 + ($x > 9) * 7) + $n
	Loop
	$BaseConverter = $n
EndFunction

Function baseN2dec($value, $inBase)
  Dim $strValue, $i, $c, $y
  $strValue = CStr(UCase($value))
  For $i=1 To Len($strValue)
    $c = Asc(SubStr($strValue, $i, 1))
    If ($i > 1) 
      $y = CDBL($y) * $inBase
    EndIf
    If ($c < 65)
      $c = $c - 48
    Else
      $c = $c - 55
    EndIf
    $y = $y + $c
  Next
  $baseN2dec = $y
EndFunction

Dim $strServiceTag, $strExpresCode
$strServiceTag = "G51JIC1" ;modified this to a non-existant service tag
$strExpresCode = baseN2dec($strServiceTag,36)

? "Serial Number: " + $strServiceTag
? "Express Code: " + $strExpresCode