Как с помощью VBScript получить список пользователей Active Directory и добавить файл, в указанную папку пользователя.

Скрипт на VBScript для переноса файла ibases.v8i в папки пользователей Active Directory

Доброго времени суток, дорогие посетители! Немногим раннее была опубликована статья о том, как
защитить свой программный код в 1С
. А сегодня хочу поделиться с вами небольшим скриптом на VBScript, который поможет вам в автоматизации процесса установки 1С:Предприятия 8.


Скрипт на VBScript для переноса файла ibases.v8i в папки пользователей Active Directory

Необходимость этого скрипта была продиктована тем, что после
установки 1С:Предприятие 8.2 в серверном варианте,
нужно было прописать всем пользователям Active Directory путь к базе.


Список баз в 1С:Предприятие 8.2 храниться
в папке %AppData%\1C\1CEStart\ в файле ibases.v8i.

Поэтому, чтобы не заходить под каждым пользователем и не прописывать путь к базе было принято решение написать
следующий VBScript скрипт:


On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set FSO = CreateObject(«Scripting.FileSystemObject»)

Set objConnection = CreateObject(«ADODB.Connection»)
Set objCommand = CreateObject(«ADODB.Command»)
objConnection.Provider = «ADsDSOObject»
objConnection.Open «Active Directory Provider»
Set objCommand.ActiveConnection = objConnection

objCommand.Properties(«Page Size») = 1000
objCommand.Properties(«Searchscope») = ADS_SCOPE_SUBTREE
objCommandProperties(«Sort On») = «Name»

objCommand.CommandText = _
«SELECT Name FROM ‘LDAP://dc=yourdomain,dc=com’ WHERE objectCategory=’user'»
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
‘Создаём в папку 1CEStart в папке пользователя %AppData%
FSO.CreateFolder «C:Users» & objRecordSet.Fields(«Name»).Value &
«AppDataRoaming1C1CEStart»

‘Копируем файл со списком баз ibases.V8i, в созданную папку 1CEStart
FSO.CopyFile «C:UsersАдминистраторDesktopibases.V8i», «C:Users» &
objRecordSet.Fields(«Name»).Value & «AppDataRoaming1C1CEStart», 1
objRecordSet.MoveNext
Loop

Чтобы воспользоваться скриптом в Ваших условиях скопируйте его, откройте блокнот и вставьте,
измените путь к файлу ibases.V8i, укажите Ваш домен вместо «yourdomain» и его расширение, если у вас «com»,
то оставьте так.

Сохраните файл с расширением .vbs.

P.S.

После добавления файлов со списком баз все пользователи Windows работали нормально, кроме одного.
У этого пользователя после запуска 1С:Предприятие 8.2 вываливалась ошибка: Ошибка формата потока…

Решение этой проблемы не составило труда, нужно было:

  • Зайти под этим пользователем в Windows
  • Запустить 1С:Предприятие 8.2, откроется список баз
  • Удалить из списка баз путь к базе (очищаются временные файлы)
  • Добавить путь к базе в список заново

Этот блог читают уже более 3000 человек
- читай и ТЫ!

2 ответы
  1. Nina says:

    My partner and I absolutely love your blog and find many of your post’s to be precisely what I’m looking for.

    Do you offer guest writers to write content in your
    case? I wouldn’t mind publishing a post or elaborating on a
    number of the subjects you write concerning here. Again, awesome website!

    Ответить

Ответить

Want to join the discussion?
Feel free to contribute!

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *