Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Разные списки баз, для разных пользователей (http://forum.oszone.net/showthread.php?t=255986)

Галахад 11-03-2013 08:38 2108398

Разные списки баз, для разных пользователей
 
Есть простенький cmd-файл. Если две доменные группы.
Как доработать файл, что бы для разных группы,
копировались разные файлы?


echo off
rem
rem 1C список общих баз
rem Прописываем всем пользователям путь до файла

rem 81

copy /y "C:\1C_list_bases\81\AllBase81.v8l" "%AppData%\1C\1Cv81\ibases.v8l"

rem 82

copy /y "C:\1C_list_bases\82\1CEStart.cfg" "%AppData%\1C\1CEStart\1CEStart.cfg"

Галахад 12-03-2013 13:27 2109252

Нашел на просторах Интернета и попытался приспособить вот такой код:
(Проверяю на себе. Вхожу в группу "Administrators", домен "linom")

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oSysInfo = WScript.CreateObject("ADSystemInfo")
sUserDN = oSysInfo.UserName
MsgBox sUserDN
Set oUser = GetObject("LDAP://" & sUserDN)
Set oGroup = GetObject ("LDAP://CN=Administrators,DC=linom,DC=ru")
If oGroup.IsMember("LDAP://" & sUserDN) then
MsgBox "Входит в группу"
Else
MsgBox "Не входит в группу"
End If

Возвращает такую ошибку:

Строка: 6
Символ: 1
Ошибка: Сервер возвратил ссылку
Код: 8007202B
Источник: (null)

Подскажите что нужно исправить в строке:
Set oGroup = GetObject ("LDAP://CN=Administrators,DC=linom,DC=ru")

van1985 12-03-2013 17:08 2109460

Если у вас две доменные группы, то делается две политики и фильтруются на предмет "выполнять/не выполнять" по безопасности. Так правильней.


Время: 17:30.

Время: 17:30.
© OSzone.net 2001-