Problème GetObject mémoire
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:
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 |
