May be this can get you started i used it to change the dns settings on 50 or 60 remote computers. the dns .txt being a list of the ones i wanted to change and i used the sms.ini to verify the pc was on line..

open(1,"c:\dns.txt")
$pc = readline(1)
$sms = "\\$pc\c$\sms.ini"
while $eof = 0
$eof = @error
RedirectOutput("$logfile")
IF RedirectOutput("$logfile" ) = 0

if exist("$sms")
$dns =Readvalue("\\$pc\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","Hostname")
? "$pc DNS was Set to $dns"

;writevalue("\\$pc\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","Hostname","$pc","REG_SZ")
; $dns =Readvalue("\\$pc\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","Hostname")
; ? "$pc DNS IS now set to $dns"

;$dns1 =Readvalue("\\$pc\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","Hostname")
? "$pc DNS was NOW Set to $dns1"

endif
endif
$pc = readline(1)
loop
close(1) [Roll Eyes] [Roll Eyes]