none
Запуск скрипта под разными пользователями. RRS feed

  • Вопрос

  • Простой функция в hta. Выполняется под админом на ура:

    Function ac_type
    Preps = "cn=preps"
    FtkPreps = "cn=ftkpreps"
    Admins = "cn=admins"
    perm = 0
    a=0
    b=0
    c=0
    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    StrGroups = LCase(join(CurrentUser.MemberOf))
    a = InStr(strGroups,preps)
    If a <> 0 then
    perm = 1
    end If
    b = InStr(strGroups,ftkpreps)
    If b <> 0 then
    perm = 2
    end If
    c = InStr(strGroups,admins)
    If c <> 0 then
    perm = 3
    End if
    ac_type = perm
    End function

    Под пользователем не работает проблема в StrGroups = LCase(join(CurrentUser.MemberOf)), ругается на функцию join.
    В чем проблема не могу понять.

Ответы

Все ответы