Как определить DN(Distinguished Name) зная UserName ???

Все ответы

• 

  

  0

  Нужно войти

  lexx71 написано:

  как определить DN (вида - cn=xxxx,ou=xxxxx,dc=xxxxx,dc=xxxxx) пользователя зная его UserName (переменная среды). скрипт должен выполняться на компьютере (не контроллере домена) ????

  В powershell так:

  Code Snippet

  get-qaduser  -Name "Иванов*" | ft Name, DN

   

   

  11 ноября 2008 г. 7:44

  Ответить

  |

  Цитировать
• 

  

  0

  Нужно войти

  Alb@ написано:

  lexx71 написано:   как определить DN (вида - cn=xxxx,ou=xxxxx,dc=xxxxx,dc=xxxxx) пользователя зная его UserName (переменная среды). скрипт должен выполняться на компьютере (не контроллере домена) ???? В powershell так: Code Snippet get-qaduser  -Name "Иванов*" | ft Name, DN

  powershell это хорошо, а может знаешь как на VBS сделать такой фокус

  11 ноября 2008 г. 9:38

  Ответить

  |

  Цитировать
• 

  

  0

  Нужно войти

  все ОК, решилось, так

  Set objADSystemInfo = CreateObject("ADSystemInfo")

  strUserDN = objADSystemInfo.UserName

  WScript.Echo strUserDN

   

   

  11 ноября 2008 г. 10:13

  Ответить

  |

  Цитировать
• 

  

  0

  Нужно войти

  lexx71 написано:

  Alb@ написано:  lexx71 написано:   как определить DN (вида - cn=xxxx,ou=xxxxx,dc=xxxxx,dc=xxxxx) пользователя зная его UserName (переменная среды). скрипт должен выполняться на компьютере (не контроллере домена) ???? В powershell так: Code Snippet get-qaduser  -Name "Иванов*" | ft Name, DN     powershell это хорошо, а может знаешь как на VBS сделать такой фокус

   

  Code Snippet

  strUserName = "alb"
  dtStart = TimeValue(Now())
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open "Provider=ADsDSOObject;"
   
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
   
  objCommand.CommandText = _
      "<LDAP://dc=ds,dc=local>;(&(objectCategory=User)" & _
           "(samAccountName=" & strUserName & "));distinguishedName;subtree"
   
  Set objRecordSet = objCommand.Execute
   
  If objRecordset.RecordCount = 0 Then
      WScript.Echo "sAMAccountName: " & strUserName & " does not exist."
  Else
      WScript.Echo objRecordSet.Fields("distinguishedName")
  End If
   
  objConnection.Close

   

   

  11 ноября 2008 г. 10:30

  Ответить

  |

  Цитировать