标题: [问题求助] 复制注册表(sid)到剪切板(默静模式).vbs还可以优化吗?谢谢 [打印本页]
作者: yyz219 时间: 2021-8-31 09:25 标题: 复制注册表(sid)到剪切板(默静模式).vbs还可以优化吗?谢谢
这个“复制注册表(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】
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |