复制注册表（sid）到剪切板（默静模式）.vbs还可以优化吗？谢谢

yyz219

这个“复制注册表（sid）到剪切板（默静模式）.vbs”还可以优化吗？谢谢
【这个vbs的主要优点是：粘贴的时候，不会自动换行】

1. '【获取“注册表sid，并生成“注册表数字串.txt”文件】
   
2. set path=wscript.createobject("wscript.shell")
   
3. name=path.ExpandEnvironmentStrings("%username%")
   
4. strComputer = "."
   
5. Set wbemServices = Getobject("winmgmts:\" & strComputer)
   
6. Set wbemObjectSet=wbemServices.execquery("select sid from win32_userAccount where name='"&name&"'")
   
7. For Each mo In wbemObjectSet
   
8.   sSID = mo.sid
   
9. Next
   
10. If(sSID = "")Then
    
11. Else
    
12.   set fso = CreateObject("Scripting.FileSystemObject")
    
13.   currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
    
14.   set f = fso.CreateTextFile(currentpath&""&"注册表数字串.txt", true)
    
15.   f.Write sSID
    
16.   f.Close()
    
17.   set f = nothing
    
18.   set fso = nothing
    
19. End If
    
20. 
    
21. '【复制“注册表数字串.txt”里面内容到剪切板】
    
22. set ws=createobject("wscript.shell")
    
23. set fso=createobject("scripting.filesystemobject")
    
24. set f=fso.opentextfile("注册表数字串.txt",1)
    
25. ws.run "mshta vbscript:ClipBoardData.setData(""Text"","""&f.readall&""")(window.close)", 0, true
    
26. createobject("wscript.shell").run "cmd /c del 注册表数字串.txt",0    '【删除：注册表数字串.txt】

复制代码