[问题求助] 请帮忙把这段bat转为vbs

Heykuz

if exist regset.ini @del /q /f regset.ini
echo HKEY_CURRENT_USER\SOFTWARE\Microsoft\360 [2 8 19] >regset.ini
regini regset.ini
@del /q /f regset.ini

意思是把这注册表“项”的权限设为只读。解除的话是[1 7 17]，可以测试。但这时候只想用一个VBS解决，用bat的话，又得要两个文件，不方便。

已经在百度和soso提问过了，几天竟然没人回答的出。实在不行的话请版主告诉我一下，vbs实在没这功能吧。

czjt1234

vbs也要生成临时文件regset.ini再删除之

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("regset.ini", 2, True)
objTextStream.WriteLine "HKEY_CURRENT_USER\SOFTWARE\Microsoft\360 [2 8 19]"
objTextStream.Close
set objWsh = CreateObject("Wscript.Shell")
objwsh.Run "regini regset.ini", 0, True
objFSO.DeleteFile "regset.ini", True
复制代码

Heykuz

感谢楼上的兄弟，经测试，只能将用户restricted只读，其它用户还是允许控制，不过有了个开始，相信研究一下可以把所有用户拒绝掉。

再感谢！

czjt1234

1 - Administrators 完全访问
2 - Administrators 只读访问
3 - Administrators 读和写入访问
4 - Administrators 读、写入、删除访问
5 - Creator 完全访问
6 - Creator 读和写入访问
7 - everyone 完全访问
8 - everyone 只读访问
9 - everyone 读和写入访问
10 - everyone 读、写入、删除访问
11 - Power Users 完全访问
12 - Power Users 读和写入访问
13 - Power Users 读、写入、删除访问
14 - System Operators 完全访问
15 - System Operators 读和写入访问
16 - System Operators 读、写入、删除访问
17 - System 完全访问
18 - System 读和写入访问
19 - System 只读访问
20 - Administrators 读、写、执行访问
21 - Interactive User 完全访问
22 - Interactive User 读和写入访问
23 - Interactive User 读、写入、删除访问

Heykuz

太坏了，明白了。