篇首语：本文由编程笔记#自由互联小编为大家整理，主要介绍了vbscript获取的Windows系统当前序列号相关的知识，希望对你有一定的参考价值。 篇首语：本文由编程笔记#自由互联小编为
篇首语：本文由编程笔记#自由互联小编为大家整理，主要介绍了Vbscript 获取的Windows系统当前序列号相关的知识，希望对你有一定的参考价值。
Dim ss = InputBox("当前Windows系统序列号为：", "Windows序列号", GetWindowsSN)WScript.Quit取得当前Windows序列号函数Function GetWindowsSN() Const HKEY_LOCAL_MACHINE = Dim arrChars arrChars = Array("B", "C", "D", "F", "G", "H", "J", "K", "M", "P", "Q", "R", "T", "V", "W", "X", "Y", "2", "3", "4", "6", "7", "8", "9") For i = 24 To 0 Step -1 k = 0 For j = 14 To 0 Step -1 k = k * 256 Xor arrDPID(j) arrDPID(j) = Int(k / 24) k = k Mod 24 Next strProductKey = arrChars(k) If i Mod 5 = 0 And i 0 Then strProductKey = "-" & strProductKey Next GetWindowsSN = strProductKeyEnd Function