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

[scompick]

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

[Хостинг 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]

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

[terminus]

Я даже не знаю, куда переместить созданную вами тему - в Windows, в Shell или в Networks?
Вы про какие скрипты ведете речь?

[scompick]

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

[Alex Keda]

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

' 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

выдерните чё нравиться

[scompick]

Спс большое!