自建Dell server 机器代码查询脚本（强烈推荐）

#this is a vbs file.

 

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

转载于:https://www.cnblogs.com/spcc/archive/2012/07/05/2577684.html