hello world

枚举注册表子项

const HKEY_LOCAL_MACHINE = &H80000002
dim k
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
k=k & vbcr & subkey
Next
wscript.echo k

  欢迎加入QQ技术群聊:70539804

posted @ 2015-09-08 15:15  浩天四哥  阅读(447)  评论(0编辑  收藏  举报