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

yyz219

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

'【获取“注册表sid，并生成“注册表数字串.txt”文件】
set path=wscript.createobject("wscript.shell")
name=path.ExpandEnvironmentStrings("%username%")
strComputer = "."
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet=wbemServices.execquery("select sid from win32_userAccount where name='"&name&"'")
For Each mo In wbemObjectSet
  sSID = mo.sid
Next
If(sSID = "")Then
Else
  set fso = CreateObject("Scripting.FileSystemObject")
  currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
  set f = fso.CreateTextFile(currentpath&"\"&"注册表数字串.txt", true)
  f.Write sSID
  f.Close()
  set f = nothing
  set fso = nothing
End If

'【复制“注册表数字串.txt”里面内容到剪切板】
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("注册表数字串.txt",1)
ws.run "mshta vbscript:ClipBoardData.setData(""Text"","""&f.readall&""")(window.close)", 0, true
createobject("wscript.shell").run "cmd /c del 注册表数字串.txt",0    '【删除：注册表数字串.txt】
复制代码