добрый день в vbs слабо разбираюсь хотелось бы дополнить мелкой деталью вот этот скрипт
[[more=САМ vbs-скрипт..]
'' Get OU
'
strOU = "OU=Users,DC=domain,DC=com"
' Create connection to AD
'
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
' Create command
'
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
' Execute command to get all users in OU
'
objCommand.CommandText = _
"<LDAP://" & strOU & ">;" & _
"(&(objectclass=user)(objectcategory=person));" & _
"adspath,distinguishedname,sAMAccountName;subtree"
Set objRecordSet = objCommand.Execute
' Show info for each user in OU
'
Do Until objRecordSet.EOF
' Show required info for a user
'
WScript.Echo objRecordSet.Fields("adspath").Value
WScript.Echo objRecordSet.Fields("distinguishedname").Value
WScript.Echo objRecordSet.Fields("sAMAccountName").Value
' Move to the next user
'
objRecordSet.MoveNext
Loop
' Clean up
'вот ссылка - http://blogs.msdn.com/b/alejacma/archive/2008/04/23/how-to-get-a-list-of-all-users-in-an-ou-vbscript.aspx
objRecordSet.Close
Set objRecordSet = Nothing
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
[/more]
Скрипт выбирает данные из АД о юзерах - т.е. должность учётка лдап путь и так далее - ну остальное можно потом дальше подобавлять.
Вообщем задача такова --- выводит результаты на экран, какие строки нужно добавить в этот сркипт что бы сохранило например весь отчёт в C:\8.txt
Заранее буду вам признателен в помощи....
[more=П.С :] Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\ScriptLog.txt")
просто создало C:\ScriptLog.txt и данных там нет , пусто.
как переделать это тспкирт что бы сразу отправлялись данные в C:\ScriptLog.txt [/more]
[[more=САМ vbs-скрипт..]
'' Get OU
'
strOU = "OU=Users,DC=domain,DC=com"
' Create connection to AD
'
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
' Create command
'
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
' Execute command to get all users in OU
'
objCommand.CommandText = _
"<LDAP://" & strOU & ">;" & _
"(&(objectclass=user)(objectcategory=person));" & _
"adspath,distinguishedname,sAMAccountName;subtree"
Set objRecordSet = objCommand.Execute
' Show info for each user in OU
'
Do Until objRecordSet.EOF
' Show required info for a user
'
WScript.Echo objRecordSet.Fields("adspath").Value
WScript.Echo objRecordSet.Fields("distinguishedname").Value
WScript.Echo objRecordSet.Fields("sAMAccountName").Value
' Move to the next user
'
objRecordSet.MoveNext
Loop
' Clean up
'вот ссылка - http://blogs.msdn.com/b/alejacma/archive/2008/04/23/how-to-get-a-list-of-all-users-in-an-ou-vbscript.aspx
objRecordSet.Close
Set objRecordSet = Nothing
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
[/more]
Скрипт выбирает данные из АД о юзерах - т.е. должность учётка лдап путь и так далее - ну остальное можно потом дальше подобавлять.
Вообщем задача такова --- выводит результаты на экран, какие строки нужно добавить в этот сркипт что бы сохранило например весь отчёт в C:\8.txt
Заранее буду вам признателен в помощи....
[more=П.С :] Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\ScriptLog.txt")
просто создало C:\ScriptLog.txt и данных там нет , пусто.
как переделать это тспкирт что бы сразу отправлялись данные в C:\ScriptLog.txt [/more]
