VBS Logon Script

Может ли кто-нибудь оказать некоторую помощь в написании сценариев VBS?

Вот что я изменил до сих пор;

Const GROUP1 = "cn=GROUP1"
Const GROUP2 = "cn=GROUP2"
Const GROUP3 = "cn=GROUP3"

Set wshNetwork = CreateObject("WScript.Network")

Set ObjectUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ObjectUser.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, LCase("GROUP1")) Then   
  wshNetwork.MapNetworkDrive "L:", "\\servername\\volume1\"
End If

If InStr(strGroups, LCase("GROUP2")) Then
  wshNetwork.MapNetworkDrive "M:", "\\servername\volume2\"
End If

If InStr(strGroups, LCase("GROUP3")) Then
  wshNetwork.MapNetworkDrive "N:", "\\servername\volume3\"
End If

Я не уверен, как лучше и проще получить строку LDAP? Я также продолжаю получать сообщение об ошибке Set CurrentUser = GetObject("LDAP://" & ObjectUser.UserName),

Любая помощь приветствуется.

Источник

2 ответа

Было бы намного проще, если бы вы использовали Предпочтения групповой политики для сопоставления дисков и использовали таргетинг на уровне элементов для фильтрации карт накопителей по группам. Это предпочтительный способ.

Источник

Я уверен, что было сто и одно решение для сопоставления дисков, основанное на членстве в группах. Вы можете найти мой здесь. Для некоторых он использует vbscript и для других оболочку cmd. Возможно, вам не нужно изобретать велосипед.

Источник
Другие вопросы по тегам