☰

VBS 登录脚本

tag-icon • tag-icon vbscript logon-scripts netlogon
VBS 登录脚本

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

任何帮助将非常感激。

答案1

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

答案2

我相信有 101 种基于组成员身份映射驱动器的解决方案。你可以找到我的这里。它使用 vbscript 来完成其中的一些操作，并使用 cmd shell 来完成其他操作。也许您不需要重新发明轮子。

相关内容