Récuperer le distingished name d'un ordinateur seven
Bonjour,
J'ai un script qui permet de lister le matériel d'un ordinateur et de voir son OU.
Ca fonctionne sans problème sous Windows XP mais sous Windows 7 j'ai un accès denied.
Voici le bout de code qui me bloque :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Dim objRootDSE, strDNSDomain, objTrans, strNetBIOSDomain
Dim strComputerDN, objComputer
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
strDNSDomain = MON DOMAIN
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain
strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)
Set objComputer = CreateObject("Shell.LocalMachine")
strComputer = objComputer.MachineName
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strComputer & "$"
strComputerDN = objTrans.Get(ADS_NAME_TYPE_1779)
msgbox strComputerDN |
Ca bloque sur cette ligne là :
Code:
1
2
|
objTrans.Init ADS_NAME_INITTYPE_GC, "" |
Un grand merci d'avance.
EDIT : Résolu... j'était loggué avec une compte admin local donc non authentifié sur le domain....
