中国DOS联盟

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