$objSystemInfo = CreateObject("ADSystemInfo")
$strAuthDistinguishedName = "LDAP://" + $objSystemInfo.UserName
$UserObj = GetObject($strAuthDistinguishedName)


? "LCS SIP IM Address: " + $UserObj.Get("msRTCSIP-PrimaryUserAddress")
Sleep 10

$UserObj.Put ("msRTCSIP-PrimaryUserAddress","address@@here.com")
$UserObj.setinfo

Quote:

---

However, I was wondering if it's even possible to WRITE the address if it's blank?

---

BREAK ON

$users = GetObject("LDAP://ou=Users,ou=bla,ou=yada,dc=company,dc=local") 
$Users.filter = Split('user')

for each $user in $users
  if $user.scriptpath <> "" 
    $loginscript="bla\"+ $user.scriptpath
      if $user.scriptpath <> "$loginscript" 
        ;$user.scriptpath = $loginscript 
        ;$user.SetInfo 
      endif
  endif 
next 
  

$UserObj = GetObject("LDAP://ou=Employees,ou=Users,ou=Location,dc=Company,dc=com") 
$UserObj.Filter = Split('user')

For Each $User in $UserObj
	$Address = Lcase($User.sAMAccountName) + "@@mycompany.com"
	? 'Current address is: ' + $User.Get("mail")
	$User.put("mail",$Address)
	$User.setinfo
	? 'E-mail address is now set to: ' + $User.Get("mail")
Next 

Sleep 10

Quote:

---

Do I have to run it with elevated permissions?

---

break on

$OU = 'LDAP://domain/OU=Users, OU=aXX, DC=domain,DC=com'

For each $Item in GetObject($OU)
	$cn = $Item.distinguishedName
	$UP = GetObject("LDAP://"+$cn)

	? $uP.FirstName +' '+ $uP.LastName +' '+$uP.scriptPath

	if instr($uP.scriptPath,'smsls')
 		'	changing'
		$up.PutEx(1, "ScriptPath", "")
		$up.setinfo
	endif
	$UP = 0
NEXT

BREAK ON

$users = GetObject("LDAP://ou=Users,ou=FW,ou=yada,dc=bla,dc=local") 
$Users.filter = Split('user')

for each $user in $users
  if $user.scriptpath <> "" 
    $loginscript="FW\"+ $user.scriptpath
      if $user.scriptpath <> $loginscript
        ? "Current Script for " +$user.name " is: " +$user.scriptpath+ " Modified to " +$loginscript 
        ;$user.scriptpath = $loginscript 
        ;$user.SetInfo 
      endif
  endif 
next