[VBS] Détection d'une connection RAS

Détection d'une connection RAS [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 13-06-2005 à 09:12:27    

Lors d'une connection au serveur, un script de connection (en VBS) se lance sur le poste de l'utilisateur.  
Or, j'aimerai que ce script me renseigne si l'utilisateur est branché directement au réseau où si il s'est branché par une connection RAS.  
 
Je voudrais également savoir (si cela est possible) si il s'agit d'une connection modem ou ADSL.  
 
Cordialement

Reply

Marsh Posté le 13-06-2005 à 09:12:27   

Reply

Marsh Posté le 15-06-2005 à 11:28:57    

Ce code utilise l'utilitaire checkRAS du Reskit.
Il renvoie le nombre de connexion RAS
 
'Quitte si le client du logonscript est un client RAS
if myFileSystem.FileExists(myProEnv("WINDIR" )&"\system32\rasapi32.dll" ) or myFileSystem.FileExists(myProEnv("WINDIR" )&"\system\rasapi32.dll" )then
  If myShell.Run("%logonserver%\netlogon\Proc\checkras", 0, true) > 0 Then
        Wscript.Quit
 
  End If
End If
 
C'est idem pour modem.
Adsl, je peu pas te dire.
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed