quote:

---

WriteValue( )

Action: Creates a new key, adds another value-name to an existing key (and assigns it a value), or changes the value of an existing value-name.

Syntax: WriteValue ("subkey", "entry", "expression", "data type")

Parameters: Subkey
Identifies the subkey where you want to write a value entry.

Entry

The name of the entry. To write to the (default) entry of a key, specify an empty string as the entry name ("").

Expression

The data to store as the value of the entry.

REG_MULTI_SZ (multi-string) variables are returned with the pipe symbol ( | ) used as the separator between strings. If a string contains a pipe symbol character, it is represented by two pipe symbol characters ( || ).

Data type

Identifies the data type of the entry. The following data types are supported:
REG_NONE
REG_SZ
REG_EXPAND_SZ
REG_BINARY
REG_DWORD
REG_DWORD_LITTLE_ENDIAN
REG_DWORD_BIG_ENDIAN
REG_LINK
REG_MULTI_SZ
REG_RESOURCE_LIST
REG_FULL_RESOURCE_DESCRIPTOR


Returns: 0 Value successfully written
Error code Function failed


Remarks: If the registry key that you are attempting to write a value to does not exist, it will be automatically created.

See Also: AddKey( ), DelKey( ), DelTree( ), ReadType( ), ReadValue( )

Example: $RC=WriteValue("EZReg\Test", "A MultiString variable", "Line 1|Line 2|Line 3 with a || in it|" "REG_MULTI_SZ")
If @ERROR = 0
? "Value written to the registry"
Endif

---

code:

---

ChgDNS98Me('10.1',Split(10.1.1.10))

---

code:

---

ChgDNS98Me('10.1.1',Split(10.1.1.10 10.1.1.11))

---

code:

---

Function ChgDNS98Me($SubNet,$DNS)
	Dim $Changed,$NICs,$NIC,$i,$Key
 
	$Changed = 0
	$NICs = ArrayEnumKey('HKLM\Enum\Network\MSTCP')
	For $i = 0 To UBound($NICs)
		$NICs[$i] = ReadValue('HKLM\Enum\Network\MSTCP\' + $NICs[$i],'Driver')
	Next
	For Each $NIC In $NICs
		$Key = 'HKLM\System\CurrentControlSet\Services\Class\' + $NIC
		If ReadValue($Key,'DriverDesc') = 'TCP/IP'
			$IPAdr = ReadValue($Key,'IPAddress')
			If IsInNet('$IPAdr',$SubNet)
				$Key = 'HKLM\System\CurrentControlSet\Services\VxD\MSTCP'
				$Changed = WriteReg($Key,'NameServer',Join($DNS,','),'REG_SZ',$Changed)
			EndIf
		EndIf
	Next
	If $Changed
		$RC = MessageBox('Your network settings have been changed.' + @CRLF + 'Please reboot the PC','Please reboot the PC',48)
	EndIf
EndFunction
 
 
Function ArrayEnumKey($Key)
	If Not KeyExist($Key)
		$ArrayEnumKey = ''
		Return
	EndIf
	$i = 0
	$SubKey = EnumKey($Key,$i)
	While @Error = 0
		ReDim Preserve $ArrayEnumKey[$i]
		$ArrayEnumKey[$i] = $SubKey
		$i = $i + 1
		$SubKey = EnumKey($Key,$i)
	Loop
EndFunction
 
 
Function IsInNet($IP, $SubNet)
	Dim $ChkNet,$ChkIP,$i
 
	If '$IP' = '' Or $IP = '0.0.0.0'
		Return
	EndIf
	$ChkNet = Split($SubNet,'.')
	$ChkIP = Split($IP,'.')
	For $i = 0 To UBound($ChkNet)
		If $ChkNet[$i] <> $ChkIP[$i]
			Return
		EndIf
	Next
	$IsInNet = 1
EndFunction
 
 
Function WriteReg($Key,$ValueName,$Value,$Type,$Changed)
	Dim $Dif
 
	$Dif = 0
	If '' + ReadValue($Key,$ValueName) <> $Value
		$Dif = 1
	EndIf
	If '' + ReadType($Key,$ValueName) <> $Type
		$Dif = 1
	EndIf
	If $Dif
		$RC = WriteValue($Key,$ValueName,$Value,$Type)
	EndIf
	$WriteReg = $Changed | $Dif
EndFunction

---