Board logo

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

作者: yyz219    时间: 2021-8-31 09:25     标题: 复制注册表(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】
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2