怎样把cmd内所有命令写进vbs里执行？？？
答案:1 悬赏:30 手机版
解决时间 2021-11-29 02:13
- 提问者网友：最美的风景
- 2021-11-28 16:04
怎样把cmd内所有命令写进vbs里执行？？？
最佳答案
- 五星知识达人网友：一秋
- 2021-11-28 16:16
Set ws=CreateObject("WScript.Shell")
ws.Run "reg add ""HKLMSYSTEMCurrentControlSetControlTerminal Server"" /v ""fDenyTSConnections"" /t REG_DWORD /d 00000000 /f"
ws.Run "copy \abc安装包很放松的旋律.mp3 %userprofile%桌面"
ws.Run "del 很放松的旋律.zip"
Set fso = CreateObject("Scripting.Filesystemobject")
fso.DeleteFile(WScript.ScriptFullName)追问实现不了啊！~ 对了，我现在只想把 \\abc\安装包\很放松的旋律.mp3 复制到桌面 用vbs代码怎么写追答Set ws=CreateObject("WScript.shell")
desktop=ws.SpecialFolders(4)&"\"
ws.run("xcopy c:\安装包\很放松的旋律.mp3" & chr(34) & desktop & chr(34) & " /k /y"),vbHide追问还是无法实现复制到桌面上 我觉得应该是 desktop 用不了追答c:\安装包\很放松的旋律.mp3 你把你真实路径 修改下追问这个我知道 我开始就是改成了我真实的路径 但实现不了追答你路径后少了一个空格
ws.Run "reg add ""HKLMSYSTEMCurrentControlSetControlTerminal Server"" /v ""fDenyTSConnections"" /t REG_DWORD /d 00000000 /f"
ws.Run "copy \abc安装包很放松的旋律.mp3 %userprofile%桌面"
ws.Run "del 很放松的旋律.zip"
Set fso = CreateObject("Scripting.Filesystemobject")
fso.DeleteFile(WScript.ScriptFullName)追问实现不了啊！~ 对了，我现在只想把 \\abc\安装包\很放松的旋律.mp3 复制到桌面 用vbs代码怎么写追答Set ws=CreateObject("WScript.shell")
desktop=ws.SpecialFolders(4)&"\"
ws.run("xcopy c:\安装包\很放松的旋律.mp3" & chr(34) & desktop & chr(34) & " /k /y"),vbHide追问还是无法实现复制到桌面上 我觉得应该是 desktop 用不了追答c:\安装包\很放松的旋律.mp3 你把你真实路径 修改下追问这个我知道 我开始就是改成了我真实的路径 但实现不了追答你路径后少了一个空格
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯