Logon script til drev maping

måske du kan bruge noget herfra: http://www.computerperformance.co.uk/Logon/logon_mapnetworkdrive_arguments.htm

Jeg kan ikke rigtig bruge det til noget, jeg har brug for at kunne tildele drev og printere alt efter hvilken gruppe brugerne er medlem af.

Jeg har fundet dette.

On Error Resume Next
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const LedelseEP_Group = "cn=ledelse_ep"
Const LedelseEPI_Group = "cn=ledelse_epi"
Const Afdelingsleder_Group = "cn=afdelingsleder"
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroup, LedelseEP_Group) Then
objNetwork.MapNetworkDrive "o:", "\\citrix\ledelseep"
End if

If InStr(strGroup, LedelseEPI_Group) Then
objNetwork.MapNetworkDrive "p:", "\\citrix\ledelseepi"
End if

If InStr(strGroup, Afdelingsleder_Group) Then
objNetwork.MapNetworkDrive "n:", "\\citrix\afdelingsleder"
End If

WScript.Quit