Помогите с логон скриптом

Проблемы установки, настройки и работы Правильной Операционной Системы

Модератор: terminus

Правила форума
Убедительная просьба юзать теги [cоde] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
scompick
проходил мимо

Помогите с логон скриптом

Непрочитанное сообщение scompick » 2009-12-30 16:25:23

Здраствуйте уважаемые гуру. Есть вопрос насчет логон скриптов. Мне надо проверить группу пользователя и по ней уже определять мапить ли для данного пользователя диск или нет. Гуглил до посинения но ничего хорошего пока не нашел. Лучше на vbs.

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

scompick
проходил мимо

Re: Помогите с логон скриптом

Непрочитанное сообщение scompick » 2009-12-30 16:54:26

определения группы пользователя под OpenLDAP если точнее

Аватара пользователя
terminus
майор
Сообщения: 2305
Зарегистрирован: 2007-10-29 11:27:35
Откуда: Рига

Re: Помогите с логон скриптом

Непрочитанное сообщение terminus » 2009-12-30 17:01:12

Я даже не знаю, куда переместить созданную вами тему - в Windows, в Shell или в Networks?
Вы про какие скрипты ведете речь?
Модель: AST-PM-105/0044; Тип: Универсальный, ремонтный; Название: Терминус; Род повреждения: Распад функций; Выводы: Сдать на слом.

scompick
проходил мимо

Re: Помогите с логон скриптом

Непрочитанное сообщение scompick » 2009-12-30 17:16:35

логон скрипт для подключения сетевых дисков на винде.. домен Samba, пользователи хранятся в OpenLdape.. настраивал по статье http://www.lissyara.su/articles/freebsd ... amba+ldap/

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35267
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: Помогите с логон скриптом

Непрочитанное сообщение Alex Keda » 2009-12-30 17:18:33

Код: Выделить всё

' written by lissyara 2009-04-19 in 02:34 MSK


Dim oNet
Dim WshShell
Dim oShell
Dim QIP

' **** игнорить ошибки
On Error Resume Next

Set oNet = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

QIP = WshShell.ExpandEnvironmentStrings("%ProgramFiles%\QIP Infium\infium.exe")

If IsMember("qip_isolated") then
	WshShell.Exec(QIP & " /isolated")
Else
	WshShell.Exec(QIP)
End If


' FUNCTION ============ IsMEmber =====================================================
Function IsMember(sGroup)
' IsMember
' Test to see if user if member of specified group

' sGroup            Name of group
' Returns           True if user is group member

    Dim sAdsPath, oUser, oGroup
    ' ================= Populate dictionary if not yet created =======================
    If IsEmpty(g_oGroupDict) Then
        Set g_oGroupDict = CreateObject("Scripting.Dictionary")
        g_oGroupDict.CompareMode = vbTextCompare
        sAdsPath = oNet.UserDomain & "/" & oNet.UserName
   On Error Resume Next
      Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
         If Err.Number then
            IsMember = FALSE
            Exit Function
         End IF      
   On Error Goto 0
       For Each oGroup In oUser.Groups
            g_oGroupDict.Add oGroup.Name, "-"
        Next
        Set oUser = Nothing
    End If
    IsMember = CBool(g_oGroupDict.Exists(sGroup))
End Function
выдерните чё нравиться =)
Убей их всех! Бог потом рассортирует...