On Error Resume Next
If WScript.Arguments.Count < 1 Then
WScript.Echo "没有指定目标!"
WScript.Quit
End If
Set oShell = CreateObject("WScript.Shell")
Set oLink = oShell.CreateShortcut(WScript.Arguments(0))
If Err Then
WScript.Echo Err.Description
WScript.Quit
End If
ret = MsgBox("是否更改" & vbCrLf & _
oLink.TargetPath & " " & _
oLink.Arguments & vbcrlf & _
"为" & vbCrLf & _
oLink.Targetpath & "?",1)
If ret = 1 Then
oLink.Arguments = ""
oLink.Save
If Not Err Then
WScript.Echo "更改完毕!"
Else
WScript.Echo "更改失败,请手动操作!"
End If
End If
Set oShell = Nothing
保存为*.vbs后,把需要处理的快捷方式拖到该vbs脚本上即可。