佛系糖果的博客

行到水穷处，坐看云起时

0%

VBS 脚本查询电脑产品编号

发表于 分类于 阅读次数： Valine：
本文字数： 298 阅读时长 ≈ 1 分钟 
1
2
3
4
5
6
7
8
9
10
11
12
set oShell = wscript.CreateObject("WScript.shell")
QueryValue = ReadReg("HKLM\\HARDWARE\\DESCRIPTION\\SYSTEM\\BIOS\\SystemSKU")

WScript.Echo QueryValue


Function ReadReg(RegPath)
     Dim objRegistry, Key
     Set objRegistry = CreateObject("Wscript.shell")
     Key = objRegistry.RegRead(RegPath)
     ReadReg = Key
End Function
觉得文章有用？请我喝杯咖啡~