'Date: Wed, 14 Jul 1999 14:26:56 +0200
'From: Werner Arts <arts@eunet.at>
'To: <usehamsternet@onelist.com>
'Mailing-List: list usehamsternet@onelist.com; contact usehamsternet-owner@onelist.com

 Hallo Dirk,

Deine Nachricht vom Mittwoch, 14. Juli 1999:

> From: deimeke@gmx.de (Dirk Deimeke)

> Hallo,
> ich habe ein kleines Problem mit dem Nagetier.
> Hamster habe ich auf dem Laptop installiert, was auch prima ist, wenn
> ich mit dem Laptop ins Netz will.

> Sobald ich zu Hause bin, wird der Laptop mit meinem Heim-Rechner
> vernetzt. Wenn ich das auf dem Laptop installierte Hamster vom
> Heim-Rechner starte, hat Hamster alle Passwoerter vergessen und kann
> sich auch nicht automatisch (Script) einwaehlen. Gibt es dazu einen
> Workaround?

Gib die Werte im Script an.

Const RASDIAL_CONNECTION     = "DFÜ Verbindung"
Const RASDIAL_USERNAME       = "Username"
Const RASDIAL_PASSWORD       = "Passwort"

Set Hamster = Wscript.CreateObject( "Hamster.App" )

Online = False
WieOft=0
' Wenn die Einwahl nicht funktioniert soll sie wiederholt werden.
DO UNTIL (Online = True) OR (WieOft >= 12)
  Online = Hamster.RasDial( RASDIAL_CONNECTION, RASDIAL_USERNAME, RASDIAL_PASSWORD )
  IF NOT Online Then
     WieOft = WieOft+1
  End IF
LOOP

IF WieOft >=12 THEN
  WScript.Quit
End If


Hamster.ControlSetLogin "Servername", "Username", "Passwort"
Hamster.ControlRunMail "Servername,pop3"
Hamster.ControlRunMail "Servername,smtp"