' Listing 15: The getOU Function

Private Function getOU(ByVal strComputer, ByVal strNTBDomain)
  Dim objTrans, strDN
  Const ADS_NAME_INITTYPE_GC = 3
  Const ADS_NAME_TYPE_NT4 = 3
  Const ADS_NAME_TYPE_1779 = 1
  Set objTrans = CreateObject("NameTranslate")
  objTrans.Init ADS_NAME_INITTYPE_GC, ""
  objTrans.Set ADS_NAME_TYPE_NT4, strNTBDomain & "\" _
    & strComputer & "$"
  strDN = objTrans.Get(ADS_NAME_TYPE_1779)
  getOU = getReverseOU(strDN)
  Set objTrans = Nothing: Set strDN = Nothing
End Function