;********************************
; Update FSP.ini Domain-wide
;********************************
Break on
Dim $PClist
Dim $array
$PClist = "ftran1", "ftran2", "ftran3"
for each $Element in $PClist
? $Element
$Rc = WriteProfileString('\\$Element\C$\WINDOWS\fsp.ini', 'Ubs', 'PCAlias', LCase($Element) )
If @error <> 0 ? "Updated (pcAlias) successful" endif
$Rc = WriteProfileString('\\$Element\C$\WINDOWS\fsp.ini', 'Ubs', 'PortNumber','9600' )
if @error <> 0 ? "Updated (PortNumber) successful" endif
$Rc = WriteProfileString('\\$Element\C$\WINDOWS\fsp.ini', 'Ubs', 'HostName', '192.168.1.94' )
if @error <> 0 ? "Updated (Hostname) successful" endif
$Rc = WriteProfileString('\\$Element\C$\WINDOWS\fsp.ini', 'Ubs', 'SessionName', 'Original Session' )
if @error <> 0 ? "Updated (Session Name) successful" endif
shell "notepad.exe \\$Element\C$\WINDOWS\fsp.ini "
sleep 2
next
;********************************
; End of Update FSP.ini
;********************************