Script to map drive by OU

[cookie_monster]

I'm sure I saw an example VB script here somewhere with the code for mapping drives by user OU location, I currently do this by group membership but could do with an option to map by OU.

Can anyone point me to a thread?

Thanks.

[ajbritton]

You may find the following functions of use;

These simply work by using the ADSystemInfo object which can return the AD path of the user or computer account in the form CN=user,OU=students,OU=users,DC=domain,DC=root. It's then a simple InStr to see if whatever is sent as a parameter appears somewhere in the string. This does mean that you have to be a bit careful with the parameter as asking for a match with 'Students' would return a positive if the OU 'NonStudents' was somewhere in the path!! Easiest to use a parameter in the form 'OU=full OU name,'

' Check if user is member of an Organisational Unit
Function UserInOU(sOU)
	' Returns true if the user is a member of the specified OU (or descendant)
	Dim oAdSys, sUserDN
	Set oAdSys = CreateObject("ADSystemInfo")
	sUserDN = UCase(oAdSys.UserName)
	UserInOU = (InStr(1, sUserDN, UCase(sOU)) > 0)
End function

' Check if Computer is a member of an Organisational Unit
Function ComputerInOU(sOU)
   ' Returns true if the computer is a member of the specified OU (or descendant)
   Dim oAdSys, sComputerDN
   Set oAdSys = CreateObject("ADSystemInfo")
   sComputerDN = UCase(oAdSys.ComputerName)
   ComputerInOU = (InStr(1, sComputerDN, UCase(sOU)) > 0)
End Function