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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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....