请大家帮忙将一小段VBS脚本转换为AU3脚本

elexy

此段VBS脚本作用是获取DELL电脑的 服务编号及快速服务代码  想转换为一个func，返回 $TAG $Code  两个值，如果错误，两个值均设为 error

strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
 
For Each objItem in colItems
 
  strTAG = objItem.SerialNumber
 
Next
 

strTAG = UCase(strTAG)
 
TAGLen = Len(strTAG)
 
tmp = 0
 
For i = 1 To TAGLen
 
  ChrSerial = Asc(Mid(strTAG,i,1))
 
  If ChrSerial > 47 And ChrSerial < 58 Then                '是数字
 
    ChrSerial = ChrSerial - 48
 
  ElseIf ChrSerial > 64 And ChrSerial < 91 Then                '是字母
 
    ChrSerial = ChrSerial - 55
 
  Else
 
    WScript.Echo "The Service TAG is error"
 
    WScript.Quit
 
  End If
 
  tmp = tmp + 36 ^ (TAGLen - i) * ChrSerial
 
Next
 
WScript.Echo "Service TAG: " & strTAG
 
WScript.Echo "Express Service Code: " & tmp

3mile

不懂VBS，仅瞎猜

#include <array.au3>
Local $colItems = ""
Local $strComputer = "localhost"
Local $Output = ""
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", 0x10 + 0x20)

If IsObj($colItems) Then
        For $objItem In $colItems
                $Output = $objItem.SerialNumber
        Next
EndIf


Local $tmp = 0
Local $ChrSerial = 0
$strTag = StringToASCIIArray($Output)
For $i = 0 To UBound($strTag) - 1
        $ChrSerial = $strTag[$i]
        If $ChrSerial > 47 And $ChrSerial < 58 Then
                $ChrSerial -= 48
        ElseIf $ChrSerial > 64 And $ChrSerial < 91 Then
                $ChrSerial -= 55
        Else
                ExitLoop
        EndIf
        $tmp = $tmp + 36 ^ (UBound($strTag) - $i - 1) * $ChrSerial
Next
MsgBox(0, 0, "Service TAG: " & $strTag & @CRLF & "Express Service Code: " & $tmp)

elexy

Service TAG:    显示不出来，不知道何故？？？
Code可正常显示

elexy

改输出变量 MsgBox(0, 0, "Service TAG: " & $Output)  能正常，不知道代码哪有问题???请高手解答一下。