none
Помогите. VBS скрипт записывает информацию о пользователе из AD в txt файл RRS feed

  • Вопрос

  • Доброго времени суток, помогите пожалуйста новичку.

    Set WshNetwork = CreateObject("WScript.Network")
    info = WshNetwork.UserName
    Const ADS_SCOPE_SUBTREE = 2
    Set wshFSO = CreateObject("Scripting.FileSystemObject")
    Set f = wshFSO.OpenTextFile("c:\temp\info2.txt", 8, True)
    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection
    objCommand.CommandText = ""&_
    "Select * from 'LDAP://OU=xxxx,DC=xxxx,DC=ru' where samAccountName = 'YYYYY'"
    objCommand.Properties("Page Size") = 10000 
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF
    strPath = objRecordSet.Fields("ADsPath").Value
    Set objUser = GetObject(strPath)
    f.WriteLine objUser.sAMAccountName & vbTab &_
    objUser.displayName & vbTab &_
    objUser.department
    f.WriteLine info
    objRecordSet.MoveNext
    Loop
     
    f.Close
    если ввести вместо YYYYY логин вручную например: samAccountName = 'vasya' , то он выдаст нужную информацию по пользователю vasya , однако вопрос вот в чем как сделать так чтобы выводилась инфа по залогиненному пользователю, т.е видимо надо каким-то образом samAccountName присвоить значение WshNetwork.UserName, но так как с VBS знакома весьма поверхностно не знаю как добиться требуемого. 

    27 июля 2012 г. 10:26

Ответы

Все ответы