'********************************************************************************
'* ejecuta el procedimiento AutoArranque de la base de datos "EstadoGrupos.mdb" 
'* evidentemente habra de adaptar el nombre de la base de datos, su ruta, etc...
'* deberá incluir la rutina ExisteUnidadRed si fuera necesario hacer uso de ella
'* ESH 30/10/03 16:30
'********************************************************************************

Dim WshNetwork, _
       acApp, _
       strArchivo

Set WshNetwork = WScript.CreateObject("WScript.Network")

' mapeo la unidad de red
If Not ExisteUnidadRed("U") Then WshNetwork.MapNetworkDrive "U:", "RutaArchivo", , "usuario", "password"

strArchivo = "NombreArchivoConRuta"

' creo un objeto Access
Set acApp = CreateObject("Access.Application")
acApp.Visible = True

' abro la base de datos
acApp.OpenCurrentDatabase strArchivo

' ejecuto el procedimiento
acApp.[Forms].[frmCalcular].AutoArranque

' cierro y salgo
acApp.Quit

Set acApp = Nothing
Set WshNetwork = Nothing