Shulou(Shulou.com)06/03 Report--

This article is about how to use vbs to check the access permissions of registry entries. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

Const KEY_QUERY_VALUE = & H0001const KEY_SET_VALUE = & H0002const KEY_CREATE_SUB_KEY = & H0004const DELETE = & H80000002strComputer = "." Set StdOut = WScript.StdOutSet oReg=GetObject ("winmgmts: {impersonationLevel=impersonate}!\\" & _ strComputer & "\ root\ default:StdRegProv") strKeyPath = "SYSTEM\ CurrentControlSet" oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_QUERY_VALUE BHasAccessRightIf 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, bHasAccessRightIf 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 BHasAccessRightIf 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 IfoReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, DELETE, bHasAccessRightIf bHasAccessRight = True Then StdOut.WriteLine "Have Delete Access Rights on Key" Else StdOut.WriteLine "Do Not Have Delete Access Rights on Key" End If Thank you for reading! This is the end of this article on "how to use vbs to check the access rights of registry keys". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it for more people to see!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.