Bonjour a tous,

j'ai un petit soucis avec ce code.
C'est juste pour récuperer le Login, le nom et prénom de l'utilisateur connecté...etc...
Tout fonctionne correctement, sauf qu'une fois sorti du logiciel, je vois que dans le
gestionnaire de taches, l'executable reste en mémoire 10 secondes.
Alors que si je mets en remarque la ligne "Set ObjNetwork = CreateObject("WScript.Network")",
la procédure evidement ne fonctionne plus correctement, mais le programme quitte immédiatement
la memoire lorsqu'on ferme le logiciel.
Qui aurait une explication ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim ObjSysInfo As Object
Dim ObjCurrentUser As Object
Dim ObjNetwork As Object
Dim Toto as String
 
Set ObjNetwork = CreateObject("WScript.Network")
 
UtilisateurConnected.Domaine = ObjNetwork.USERDOMAIN
 
Set ObjSysInfo = CreateObject("ADSystemInfo")
Set ObjCurrentUser = GetObject("LDAP://" & ObjSysInfo.UserName)
 
ObjCurrentUser.GetInfo
 
Toto = ObjCurrentUser.sAMAccountName
...
...
 
Set ObjCurrentUser = Nothing
Set ObjSysInfo = Nothing
Set ObjNetwork = Nothing