Ejecutar tarea de Windows cuando no hay conexion a internet

[zapal]

Buenos dias.
Vereis, tengo un problema con una maquina en remoto. El caso es que como no habia posibilidad de poner internet via adsl en el sitio en cuestion pues pusieron una conexion vodafon umts. La maquina en si es un "medio servidor de archivos" con lo que no trabaja nadie sobre ella, y todas las tareas de arranque y apagado estan automatizadas. En el arranque le cargo la aplicacion que inicia el modem de vodafone, pero no se porque a veces se queda enganchada y basta con ejecutar un comando del propio modem de "enceder/apagar" para que recobre la conexion el solito. La conexion es estable por dias, lo mismo un dia se conecta por la mañana y no se cae hasta por la noche cuando se apaga que se apaga 2 o 3 veces al dia. Lo que ando buscando es un ejecutable que pueda arrancarlo cada hora por ejemplo y si no detecta conexion a internet pues que ejecute el "apagar/enceder" del modem. He rebuscado por internet y lo unico que he visto es este codigo:

Pondremos las siguientes declaraciones en un módulo :

Public Const ERROR_SUCCESS = 0&
Public Const APINULL = 0&
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public ReturnCode As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As _
String, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Long) As Long

Y la siguiente función devolverá true si existe una conexión activa :

Public Function ActiveConnection() As Boolean
Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValueName As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
ActiveConnection = False
lpSubKey = "System\CurrentControlSet\Services\RemoteAcces s"
ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, _
phkResult)

If ReturnCode = ERROR_SUCCESS Then
hKey = phkResult
lpValueName = "Remote Connection"
lpReserved = APINULL
lpType = APINULL
lpData = APINULL
lpcbData = APINULL
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, lpData, lpcbData)

If ReturnCode = ERROR_SUCCESS Then
If lpData = 0 Then
ActiveConnection = False
Else
ActiveConnection = True
End If
End If


RegCloseKey (hKey)
End If

End Function

Pero yo no tengo ni idea de programacion... Alguien tiene alguna idea de como se podria hacer este tipo de sript ? la maquina trabaja con un XP Profesional.

UN saludo y gracias por adelantado