Something similar since at the time we had multiple script paths and OUs.

Examples of script paths
'France\WKIX32.EXE France\LOGON.KIX'
'Tokyo\WKIX32.EXE Tokyo\LOGON.KIX'

Example of DN
'ou=Users,ou=france,dc=ewsa,dc=wdpr,dc=mycompany,dc=com'


 Code:
Function ModifyLogonScript($DN,$Script)
Dim $User, $Users
$Users = GetObject('LDAP://'+$DN)
For Each $User In $Users
  If $user.class = "USER"
    If $User.loginscript <> $Script
      ? "Acct " +$User.SamAccountName +" = " + $User.loginscript + " <-> " + $Script
    EndIf
  $user.loginscript=$Script
  $user.SetInfo
  EndIf
Next
EndFunction