Captain Pooka
Daemon Poster
- Messages
- 1,108
I'm running server 2003, so as you can imagine mapping drives is sort of a pain (so.. it just hasn't been done in the past). I need it done now.
I started work here last year and the technology portion was in a big mess. I'm still in the process of cleaning up this school district. This VBS was in place, but it never worked. I edited it and customized it, it still doesn't work. Any ideas?
Thanks!
Code:
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
Case "Pre-KTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "KinderTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "FirstGradeTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "SecondGradeTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "ThirdGradeTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "FourthGradeTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "FifthGradeTeachers_Grp"
objNetwork.MapNetworkDrive "T:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "Administration"
objNetwork.MapNetworkDrive "S:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
Case "Quincytestgrp"
objNetwork.MapNetworkDrive "S:", "\\server\share"
objNetwork.MapNetworkDrive "M:", "\\server\share"
End Select
Next
I started work here last year and the technology portion was in a big mess. I'm still in the process of cleaning up this school district. This VBS was in place, but it never worked. I edited it and customized it, it still doesn't work. Any ideas?
Thanks!