直接上代码：OptionExplicitDimobjshell,Path,DigitalID,ResultSetobjshell=CreateObject("WScript.Shell")'SetregistrykeypathPath="HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\"'RegistrykeyvalueDigitalID