[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 复制注册表(sid)到剪切板(默静模式).vbs还可以优化吗?谢谢

这个“复制注册表(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. '【复制“注册表数字串.txt”里面内容到剪切板】
  21. set ws=createobject("wscript.shell")
  22. set fso=createobject("scripting.filesystemobject")
  23. set f=fso.opentextfile("注册表数字串.txt",1)
  24. ws.run "mshta vbscript:ClipBoardData.setData(""Text"","""&f.readall&""")(window.close)", 0, true
  25. createobject("wscript.shell").run "cmd /c del 注册表数字串.txt",0    '【删除:注册表数字串.txt】
复制代码
我是小白,希望老师多多帮助

返回列表