Hey glenn it gives me an error on the write I am sure my syntax is wrong?
I will keep trying, but any suggestions will be helpful..thanks
back to the debugging and trial and errror. thanks
 Code:
Break on
Dim $PClist
Dim $array

$PClist = "ftran1", "ftran2", "ftran3"

for each $Element in $PClist
	If ReadProfileString('.\fsp.ini', 'Ubs', 'PCAlias') <> 'PCAlias=$Element'
	LCase($Element)
	? $Element
  	$Rc = WriteReadProfileString('.\fsp.ini', 'Ubs', 'pcAlias', 'PCAlias='+$Element)
	Shell "CMD.EXE /C xcopy .\fsp.ini  \\$Element\c$\WINDOWS\ /y"
EndIf
 
next
_________________________
Robert
A+, CCNA, MCP
Network Admin
Credit Union Wisconsin