现在微软提供Windows10的免费升级了。但是如果需要彻底格式化重装系统的话，没Key怎么办？ 哈哈，不多说了。碰到类似情况的话用这么这段代码就可以查看当前Windows的CDKEY了。 Option Explicit Dim objshell,path,DigitalID, Result Set objshell = CreateObject("WScript.Shell") 'Set registry key path Path = "HKLM\SOFTWARE\Microsoft\Windows NT\Cu…