Computador com Exchange Server 2003 não pode colocar o recurso de pesquisa Microsoft online

Sub Usage
    WScript.Echo "Microsoft Search Version 2.0"
    WScript.Echo "Deletes an Application"
    WScript.Echo
    WScript.Echo "Usage: Deleteapp.vbs Application"
    WScript.Echo
end Sub

Sub Main

    if WScript.Arguments.Count = 1 then
        if WScript.Arguments(0) = "/?" or WScript.Arguments(0) = "-?" then
            Usage
            WScript.Quit(1)
        end if
    end if

    if WScript.Arguments.Count < 1 then
        Usage
        WScript.Quit(1)
    end if

    dim applicationName
    applicationName = WScript.arguments(0)

    WScript.echo "Deleting Search Application " & applicationName
    Set objHost = WScript.CreateObject("MSSearch.Admin")

    'Delete the application
    objHost.Applications.Remove(applicationName)

End Sub

call Main