ARD Login script doesn't work with similar usernames

Question

We have a lab of Macs all of which have two accounts whose usernames start with the same characters (rms and rmsadmin). There are times when we would like to be able to log on to all the computers simultaneously as the rmsadmin user with ARD. Because both of the usernames start with the same three characters, when the following commands are sent via ARD, the login process defaults to selecting the student account (rms) and won't log in as rmsadmin:
osascript -e 'tell application "System Events" to keystroke "rmsadmin"'; \
osascript -e 'tell application "System Events" to keystroke return'; \
osascript -e 'tell application "System Events" to delay 0.5'; \
osascript -e 'tell application "System Events" to keystroke "password"'; \
osascript -e 'tell application "System Events" to delay 0.5'; \
osascript -e 'tell application "System Events" to keystroke return'
Anyone have a solution to this?
Thanks in advance for taking the time to read this and giving it some thought.
Peggy
Xserve PowerPC G4, MacBook Pro, PowerBook, etc.   Mac OS X (10.4.8)  

Answer 1

Since we do have the same problem but also some additional infos I bump this thread in the hopes of getting some answers.
The login script does run, but unfortunatly only when I start it manually. It does not run during login.
The only purpose of the script is to map some drives and it works fine under XP. Where else can I find infos about the problem?
Our script looks like that:
On Error resume next  
Set objADSystemInfo = CreateObject("ADSystemInfo")  
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)  
strDn = objUser.Get("distinguishedName")  
strSam = objUser.Get("sAMAccountName")  
strCn = objUser.Get("cn")
Set colGroups = objUser.Groups  
Pos = Instr(strDn,"OU=")  
if Pos = 0 then  
    strOu = "" 
else  
    strOu = Mid(strDn,Pos+3,2)  
end if  
Set objNetwork = CreateObject("WScript.Network")   
objNetwork.MapNetworkDrive "h:", "\\frodo\user\" & strSam  
objNetwork.MapNetworkDrive "j:", "\\frodo\misc" 
objNetwork.MapNetworkDrive "l:", "\\frodo\department" 
objNetwork.MapNetworkDrive "q:", "\\frodo\projects" 
objNetwork.MapNetworkDrive "k:", "\\frodo\department\" & strOu  
if strOu = "IT" then  
    objNetwork.MapNetworkDrive "x:", "\\frodo\software" 
end if  
'WScript.Echo strOut  
For Each objGroup in colGroups  
    if objGroup.CN = "DreCash" then  
    objNetwork.MapNetworkDrive "p:", "\\gollum\drehcash" 
    end if  
Next 
objNetwork.MapNetworkDrive "i:", "\\192.168.1.6\shares"