Ok, With some assistance from some co-workers I got it worked out and I would like to provide the code here for anyone else. I work in an enterprise enviroment so I cannot add kixart or nay other utility to any of my servers. This is not the cleanest code but it is the safest and simplest. I am hardcoding the LDAP strings but for what I need I do not require an especially complex script.
To get the proper LDAP fully qualified name for your domain install the Windows 2000 Support Tools and use ADSIEdit to drill down to the container where the users/groups are located. Perform a right mouse click and choose "Properties". The LDAP string will be displayed but you do not need the server designation. If you use that you are forcing the script to look at a particular AD server.
'ON ERROR RESUME NEXT
' LOGON SCRIPT TO MAP DRIVES VIA GROUP MEMBERSHIP VIA LDAP
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
UserString = WSHNetwork.UserName
'Get User Full LDAP Name
Set UserObj = GetObject("LDAP://CN=" & UserString & ",CN=Users,DC=subdom,DC=mydomain,DC=com")
'Synchronizes the time with Server our NTP Server
WSHShell.Run "NET TIME \\<dc_servername> /set /y"
' wscript.sleep 500
'Maps drives needed by all
WSHNetwork.MapNetworkDrive "M:", "\\app_server\APPS1",True
WSHNetwork.MapNetworkDrive "O:", "\\app_server\UserData",True
objMemberOf = UserObj.GetEx("MemberOf")
'Now check for group memberships and map appropriate drives
For Each Group in objMemberOf
Select Case Group
'Check for group memberships and take needed action
Case "CN=Agency1,CN=Users,DC=subdom,DC=mydomain,DC=com"
WSHNetwork.MapNetworkDrive "N:", "\\app_server\Agency1",True
Case "CN=Agency2,CN=Users,DC=subdom,DC=mydomain,DC=com"
WSHNetwork.MapNetworkDrive "N:", "\\app_server\Agency2",True
Case "CN=Agency3,CN=Users,DC=subdom,DC=mydomain,DC=com"
WSHNetwork.MapNetworkDrive "Q:", "\\app_server\d$",True
WSHNetwork.MapNetworkDrive "N:", "\\app_server\Agency1",True
Case Else
' Wscript.echo "cound not find a case for " & Group
End Select
Next
set objMemberOf = nothing
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set WSHSHell = Nothing
wscript.quit