cluster
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
' Формирует CMD-скрипт для создания ресурсов пользователей в домене
Const ADS_SCOPE_SUBTREE = 2
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 Name, sAMAccountName, Department from 'LDAP://OU=Тест,OU=Предприятие,OU=Холдинг,DC=domain,DC=com' " _
& "where objectCategory='user'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
WScript.Echo("@echo off")
WScript.Echo("set resourcesRoot=D:\users")
WScript.Echo("mkdir %resourcesRoot%")
WScript.Echo("cd /d %resourcesRoot%")
WScript.Echo("")
Do Until objRecordSet.EOF
WScript.Echo("mkdir "&objRecordSet.Fields("sAMAccountName").Value)
WScript.Echo("CACLS "&objRecordSet.Fields("sAMAccountName").Value&" /E /G DUKAVTO\"&objRecordSet.Fields("sAMAccountName").Value&":F")
WScript.Echo("net share "&objRecordSet.Fields("sAMAccountName").Value&"=%resourcesRoot%\"&objRecordSet.Fields("sAMAccountName").Value&" /grant:все,full /cache:programs")
WScript.Echo("")
objRecordSet.MoveNext
Loop |
