Break On
$sComputer='computername'
$sComputer = '\\'+Join(Split($sComputer,'\'),'',3)+'\'
$Server = ReadValue($sComputer+'HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions','ProductType')
If $Server <> "WinNT" ; System is not a Workstation so assume it is a Server
  ? 'System is a Server ' + $Server  
Else
  ? 'System is a workstation ' + $Server
EndIf

for each $computer in netview2($domain,1)
  $comp = split($computer,',')[0]
  $tcomp = '\\' + $comp + '\'
  $RegValue = ReadValue($tcomp + 'HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions','ProductType')
  if $RegValue = 'WinNT'
  ...
  endif
next

function SetPassword( $userID, $password, optional $computer )

    dim $objUser



    if not $computer $computer = "." endif



    $objUser = GetObject("WinNT://" + $computer + "/" + $userID + ",user")

    if @error    exit 1    endif



    ;-- Set the password for the account -- 

    $objUser.SetPassword( $Password )

    $objUser.SetInfo()

    If @error

        exit 2

    Else

        exit 0

    EndIf

endfunction

Quote:

---

Code:

---

function SetPassword( $userID, $password, optional $computer )
    dim $objUser

    if not $computer $computer = "." endif

    $objUser = GetObject("WinNT://" + $computer + "/" + $userID + ",user")
    if [b]@error[/b]    exit 1    endif

    ;-- Set the password for the account -- 
    $objUser.SetPassword( $Password )
    $objUser.SetInfo()
    If [b]@error[/b]
        exit 2
    Else
        exit 0
    EndIf
endfunction

---

if you don't have the RenameUser tool, you could try this function.

---

Call 'D:\KIX\UDF\SetPassword.kix'

SetPassword('admin','test','computer')