:On Error Resume Next
Sub bat
echo off
echo '>nul & set Lnk=\\192.168.0.1
echo '>nul & set Name=快捷名字
echo '>nul & start wscript -e:vbs "%~f0" "%Dir%" "%Name%"
Exit Sub
End Sub
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop + "\" + WScript.Arguments(1) + ".lnk")
oShellLink.TargetPath = WScript.Arguments(0)
oShellLink.Save
保存为BAT批处理文件,里面的链接和名字自行修改