批处理远程删除桌面网页快捷方式并创建新的快捷方式

玉儿

vbs写的 保存为*.vbs文件
Sub bat
echo off & cls
echo create_shortcut
start wscript -e:vbs "%~f0"
Exit Sub
End Sub
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\IEXPLORE.lnk")
oShellLink.TargetPath = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
oShellLink.WindowStyle = 3
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.IconLocation = "C:\Program Files\Internet Explorer\IEXPLORE.EXE, 0"
oShellLink.Description = "快捷方式"
oShellLink.WorkingDirectory = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
oShellLink.Save
Dim fso
上面是路径。+快捷方式！

下面是删除文件。利用VBS执行DOS命令。删除。自己看。
DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(1)
iReturn=objShell.Run("cmd.exe /C del C:\Documents and Settings\Administrator\桌面\IEXPLORE.ink", 0, TRUE)
批处理
@echo off
cls
del "C:\Documents and Settings\Administrator\桌面\Internet Explorer.lnk" /f /s /q
copy \\server\IE快捷方式 C:\Docume~1\Admini~1\桌面\ /y
exit