05/11/27 20:49:32
>>409>>410
レスありがとうございます
WMIを使って解決出来ました。DynaCallは面白いと思うので、何かのときに利用したいと思います。
（以下作ってみたスクリプト）
Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer("","root\default")
Set Reg = Service.Get("StdRegProv")
Reg.EnumKey &H80000001,"Software", SubKeys
For Each Key In SubKeys
WScript.Echo Key
Next