locked
Eviter l'ouverture de session sur différentes machines avec le meme login RRS feed

  • Question

  •  

    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

    • Déplacé VijayKR jeudi 4 février 2010 06:08 Forums Consolidation (Origine :Windows Server 2000)
    vendredi 31 août 2007 16:10