From: Michael Klingbeil <mklingbeil@knuut.de>
Date: 15 Jul 1999 19:34:39 +0200
Mailing-List: list usehamsternet@onelist.com; contact usehamsternet-owner@onelist.com

deimeke@gmx.de (Dirk Deimeke) writes:

> >Du kannst soviele benutzen, wie du möchtest!
> >Bei mir sind es momentan Zwei...
> 
> dann sag' bitte wie Du es gemacht hast.

Ich gehe mal davon aus, das beide Nummern im DFÜ-Netzwerk sind!
Ich hänge mal das Script unten drann, du mußt es nur noch anpassen.

--=--=--=--=--=--=--=--=-Hier Abbeissen-=--=--=--=--=--=--=--=-
'Demo-Session.vbs

'Preferences
Const RASDIAL_CONNECTION     = "knuut"         'Name of RAS-conn; "" = disable dialing
Const RASDIAL_USERNAME       = "uhp1691416@knuut.de"         'Username for RAS-conn; "" = use Hamster-setting
Const RASDIAL_PASSWORD       = "saginett"         'Password for RAS-conn; "" = use Hamster-setting
Const PURGE_BEFORE_TRANSFER  = False      'True = enable purging

'Initialize Hamster-constants
Const HAM_PURGEOPT_DOALL     = &HF
Const HAM_PURGEOPT_DONEWS    = &H1
Const HAM_PURGEOPT_DOHISTORY = &H2
Const HAM_PURGEOPT_DOKILLS   = &H4
Const HAM_WAITIDLE_INFINITE  = 0

'Initialize Hamster-object
'Note: Hamster.exe will be loaded now if does not run already.
Set Hamster = Wscript.CreateObject( "Hamster.App" )

If PURGE_BEFORE_TRANSFER Then
   Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE
   Hamster.ControlRunPurge HAM_PURGEOPT_DOALL
   Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE
End If


   If Not Hamster.RasDial( RASDIAL_CONNECTION, RASDIAL_USERNAME, RASDIAL_PASSWORD ) Then
      Err.Raise 65535, "Error at Hamster.RasDial", "RasLastError=" & Hamster.RasLastError
      WScript.Quit
   End If


Hamster.ControlRunMail ""
Hamster.ControlRunNewsPost ""
Hamster.ControlRunNewsPull ""
Hamster.ControlWaitIdle HAM_WAITIDLE_INFINITE

If RASDIAL_CONNECTION<>"" Then
      Hamster.RasHangup
End If

'Release Hamster-object
Wscript.DisconnectObject Hamster
--=--=--=--=--=--=--=--=-Hier Abbeissen-=--=--=--=--=--=--=--=-

In dem Teil des Scriptes trägst du die Daten aus dem DFÜ-Netzwerk ein,
gibst dem Ding einen Namen und das war es den;)
TeleA.VBS und TeleB.VBS ist die Demo-Session bei dir ausführbar?
 

'Preferences
Const RASDIAL_CONNECTION     = "knuut" ,das steht im DFÜ-Netzwerk  
Const RASDIAL_USERNAME       = "uhp1691416@knuut.de"  
Const RASDIAL_PASSWORD       = "saginett"         'Password for RAS-conn; "" = use Hamster-setting
Const PURGE_BEFORE_TRANSFER  = False      'True = enable purging