code:

---

 if @INWIN=2

goto "win9x"

else

goto "winnt"

endif



:win9x

if 0=exist("%windir%\ipchanged.tmp")

$bkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services"

$NewIP="255.255.0.0"

$c=0

$Reboot = 0

$KeyN = enumkey("$bkey\Class\NetTrans\",$c)

	while @error = 0
		$ip = ReadValue($bkey+"\Class\NetTrans\$KeyN","IPMask")
		if @error = 0 and $ip <> "255.255.0.0"
			$ = writevalue($bkey+"\Class\NetTrans\$KeyN","IPMask",$newip,"REG_SZ")
			$Reboot = 1
		endif
		$c = $c +1
		$KeyN = enumkey($bkey+"\Class\NetTrans\",$c)
	loop
	if $Reboot = 1
		shell "%comspec% /c echo changed ip from 255.255.255.0 to 255.255.0.0 > %windir%\ipchanged.tmp"
		? "System needs to be restarted to establish new settings."
		? ? "  Press any key to proceed..." get $
		run "%windir%\RUNDLL32.EXE user.exe,ExitWindows" exit
	else
		shell "%comspec% /c echo no changes done > %windir%\ipchanged.tmp"
	endif
endif



:winnt

MISSING PART 

---

to change subnetmask both on Win9X & WinNT
First part works perfectly, it is thanks to you.

But i don't know how to make change on Winnt stations (NT4sp6a & NT5) , users are admin on local.

if you have ideas, I listen to you

Thank you to understand poor debutant

code:

---

$counter=0
do
 $key=enumkey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces",$counter)
$ip=readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"+$key,"IpAddress")
$counter=$counter+1
until $ip<>"0.0.0.0" or @error
$rc=writevalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"+$key,"SubnetMask","255.0.0.0")

---

code:

---

 
:winnt


if 0=exist("%windir%\ipchanged.tmp")

$bkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"

$NewIP="255.255.0.0."

$c=0

$Reboot = 0

$KeyN = enumkey("$bkey\Interfaces\",$c)

	while @error = 0
		$ip = ReadValue($bkey+"\Interfaces\$KeyN","SubnetMask")
		if @error = 0 and $ip <> "0.0.0.0"
			$ = writevalue($bkey+"\Interfaces\$KeyN","SubnetMask",$newIP,"REG_MULTI_SZ")
			$Reboot = 1
		endif
		$c = $c +1
		$KeyN = enumkey($bkey+"\Interfaces\",$c)
	loop
	if $Reboot = 1
		shell "%comspec% /c echo changed ip from 255.255.255.0 to 255.255.0.0 > %windir%\ipchanged.tmp"
		? "SubnetMask Changed"
		? ? "  Press any key to quit..." get $
		SHUTDOWN ("","Redemarrage",5,1,1)
	else
		shell "%comspec% /c echo no changes done > %windir%\ipchanged.tmp"
	endif
endif
 

---