Logon Script Help

You could always set a system variable on the servers in each site and then use that in your scripts.

Another alternative might be to use %LOGONSERVER% but this could be a server outside of their site in some cases.

You could create a group for each site and use the if member:

@echo off
ifmember "site1"
if errorlevel 1 goto site1
ifmember "site2"
if errorlevel 1 goto site2
site3:
<enter commands>
goto all
site1:
<enter commands>
goto all
site2:
<enter commands>
goto all
all:
<enter commands>

or you can do it by OUs

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set mappedDrives = objNetwork.EnumNetworkDrives  
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
strUserName = objNetwork.UserName
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
On Error Resume Next

Select Case strGroupName
' The following are drives mapping OU
Case "OU1"
ObjNetwork.MapNetworkDrive "M:", "\\Server1\HOME\" & strUserName

Case "OU2"
ObjNetwork.MapNetworkDrive "M:", "\\Server2\HOME\" & strUserName

In the above script, it looks like I would just change paths, OU names and then put this into a .vbs file?

Yes. and i missed
"Next"
on the last row

Got a few errors at first, but I think I've correct them.  However, when I run this script, nothing happens.  No errors and no mapped drives.

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set mappedDrives = objNetwork.EnumNetworkDrives   
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
strUserName = objNetwork.UserName
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
On Error Resume Next

Select Case strGroupName
' The following are drives mapping OU
Case "IT" 
ObjNetwork.MapNetworkDrive "T:", "\\Acme_1\tools\" & strUserName

Case "Sales" 
ObjNetwork.MapNetworkDrive "M:", "\Acme\dfs\sales\" & strUserName

End Select
Next

Select allOpen in new window

put msgbox strGroupName on line 15

you will see popup of all the groups name that you are in.

see if the name comes up the same as your case ""