Uso de VBScript

[Microsoft Agent está en desuso a partir de Windows 7 y puede no estar disponible en versiones posteriores de Windows.

VBScript es un lenguaje de programación incluido con Microsoft Internet Explorer. Para otros exploradores, póngase en contacto con su proveedor para obtener soporte técnico. Se recomienda VBScript 2.0 (o posterior) para su uso con el Agente. Aunque las versiones anteriores de VBScript pueden funcionar con el Agente, carecen de ciertas funciones que puede querer usar. Puede descargar VBScript 2.0 y obtener más información sobre VBScript en el sitio de descargas de Microsoft y el sitio de Microsoft VBScript.

Para programar microsoft Agent desde VBScript, use las etiquetas HTML <SCRIPT> . Para acceder a la interfaz de programación, use el nombre del control que asigne en la <etiqueta OBJECT> , seguido del subobjeto (si existe), el nombre del método o la propiedad, y los parámetros o valores admitidos por el método o propiedad:

agent[.object].Method parameter, [parameter]
agent[.object].Property = value

En el caso de los eventos, incluya el nombre del control seguido del nombre del evento y los parámetros:

Sub agent_event (ByVal parameter[,ByVal parameter])
statements
End Sub

También puede especificar un controlador de eventos mediante la <etiqueta SCRIPT>For... Sintaxis de eventos :

<SCRIPT LANGUAGE=VBScript For=agent Event=event[(parameter[,parameter])]>
statements
</SCRIPT>

Aunque Microsoft Internet Explorer admite esta última sintaxis, no todos los exploradores sí lo hacen. Por motivos de compatibilidad, use solo la sintaxis anterior para los eventos.

Con VBScript (2.0 o posterior), puede comprobar si microsoft Agent está instalado intentando crear el objeto y comprobando si existe. En el ejemplo siguiente se muestra cómo comprobar el control Agente sin desencadenar una descarga automática del control (como sucedería si incluyera una <etiqueta OBJECT> para el control en la página):

<!-- WARNING - This code requires VBScript 2.0.
It will always fail to detect the Agent control
in VbScript 1.x, because CreateObject doesn't work.
-->

<SCRIPT LANGUAGE=VBSCRIPT>
If HaveAgent() Then
      'Microsoft Agent control was found.
document.write "<H2 align=center>Found</H2>"
Else
      'Microsoft Agent control was not found.
document.write "<H2 align=center>Not Found</H2>"
End If

Function HaveAgent()
' This procedure attempts to create an Agent Control object.
' If it succeeds, it returns True.
'    This means the control is available on the client.
' If it fails, it returns False.
'    This means the control hasn't been installed on the client.

   Dim agent
   HaveAgent = False
   On Error Resume Next
   Set agent = CreateObject("Agent.Control.1")
   HaveAgent = IsObject(agent)

End Function

</SCRIPT>