Bonjour,
Voila, j'ai trouvé quelques infos sur internet pour éviter cela. Le 1er, ntname.exe. J'ai essayé le script que j'ai récupérer mais sans grand succès.
Voici le script que j'ai un peu modifié :
Option Explicit
Dim ObjShell, ObjEnv, ObjNetwork,ObjUser, ObjMess
Dim ObjFso,ObjLog , v_TempFile, Logonserver
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 3
Set ObjShell = WScript.CreateObject("WScript.Shell")
Set ObjEnv = ObjShell.Environment("Process")
Set ObjNetwork = WScript.CreateObject("WScript.Network")
LoGonServer=ObjEnv("Logonserver")
ObjUser = ObjEnv("USERNAME")
v_TempFile = ObjEnv("TEMP") & "\OK.TXT"
If ObjShell.Run(Logonserver & "\netlogon\ntname " & ObjUser & " >" & v_TempFile,2,TRUE)=1 Then
ObjMess = ObjUser & " est déja connecté !!! Impossible d ouvrir la session." & VbCrLf &_
" Veuillez changer vos identifiants ou contacter le centre de support."
ObjShell.Popup ObjMess,8,"Avertissement",64
ObjShell.Run Logonserver & "\netlogon\logout"
WScript.Quit
End If
WScript.Quit
J'ai trouvé un autre script batch mais c'est idem. Est ce que Ntname fonctionne bien avec windows 2000 ??
Il existe également limitlogin mais ca ne m'interresse pas car je ne veux pas le généraliser. Il serait appliqué à une agence.
J'ai découvert également un script avec les outils pstools : psloggedon et psshutdown et il ne fonctionne pas non plus.
Avez vous une idéé à me suggérer. Merci d'avance
