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
Partager