VBS 登录脚本

Question

有人可以提供一些有关 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)。

任何帮助将非常感激。

Answer 1

如果您使用组策略首选项映射驱动器并执行项目级定位以按组过滤驱动器映射，则会容易得多。这是首选方式。