Finde objekt i en bestem OU

Set wshNetwork = CreateObject("WScript.Network")
Set oShell=CreateObject("wscript.shell")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentComputerName = GetObject("LDAP://" & ADSysInfo.ComputerName)
'Hent computer navn og sti
strcomputerName = Lcase(ADSysInfo.ComputerName)
If InStr(strcomputerName, "ou=test,") Then

Det skal siges at det skal køre i et loginscript.

Kan det, det?

Jeg fandt ud af det på denne måde:

Set objSysInfo = CreateObject("ADSystemInfo")
strComputerName = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerName)
strOUName = objComputer.parent
Set objOU = GetObject(strOUName)
strOUDN = objOU.OU
WScript.Echo strOUDN

Det ser ud til at virke.

HH - lige gerne et svar. Jeg brugte noget af dit.

Hermed svar, det andet er også taget fra login script.