用vbs检查注册表项的访问权限的代码
导读：收集整理的这篇文章主要介绍了用vbs检查注册表项的访问权限的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 const KEY_QUERY_VALUE = &H0001...
收集整理的这篇文章主要介绍了用vbs检查注册表项的访问权限的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 const KEY_QUERY_VALUE = &
H0001 const KEY_SET_VALUE = & H0002
const KEY_CREATE_Sub_KEY = & H0004
const DELETE = & H00010000
const HKEY_LOCAL_MACHINE = & H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{ imPErsonationLevel=impersonate} !\\" & _
strComputer & "\root\default:StdRegPRov")
strKeyPath = "SysTEM\currentControlSet"
oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_QUERY_VALUE, bHasAccessRight
If bHasAccessRight = True Then
StdOut.WrITeLine "Have Query Value Access Rights on Key"
Else
StdOut.WriteLine "Do Not Have Query Value Access Rights on Key"
End If
oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_SET_VALUE, bHasAccessRight
If bHasAccessRight = True Then
StdOut.WriteLine "Have Set Value Access Rights on Key"
Else
StdOut.WriteLine "Do Not Have Set Value Access Rights on Key"
End If
oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_CREATE_SUB_KEY, bHasAccessRight
If bHasAccessRight = True Then
StdOut.WriteLine "Have Create SubKey Access Rights on Key"
Else
StdOut.WriteLine "Do Not Have Create SubKey Access Rights on Key"
End If
oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, DELETE, bHasAccessRight
If bHasAccessRight = True Then
StdOut.WriteLine "Have Delete Access Rights on Key"
Else
StdOut.WriteLine "Do Not Have Delete Access Rights on Key"
End If
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs检查注册表项的访问权限的代码
本文地址： https://pptw.com/jishu/609649.html