[zinteco]

та уже сам решил проблему...если кому пригодится ..вот

Код:

$value = "D:\Documents and Settings\Root" 
For $i = 1 To 10     
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList", $i)     
If @error <> 0 Then ExitLoop    
 If StringInStr($var, "S-1-5-21") <> 0 Then         
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\" & $var, "ProfileImagePath", "REG_EXPAND_SZ", $value)     
EndIf Next