Question

怎样把cmd内所有命令写进vbs里执行？？？

我要把cmd里的以下命令全部写进vbs里

REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Terminal" "Server /v fDenyTSConnections /t REG_DWORD /d 00000000 /f

set a="%userprofile%\桌面"

copy \\abc\安装包\很放松的旋律.mp3 %a%

del 很放松的旋律.zip

if exist %a%\很放松的旋律.bat del %a%\很放松的旋律.bat

Answer 1

Set ws=CreateObject("WScript.Shell")
ws.Run "reg add ""HKLM\SYSTEM\CurrentControlSet\Control\Terminal 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 你把你真实路径 修改下

追问

这个我知道 我开始就是改成了我真实的路径 但实现不了

追答

你路径后少了一个空格