package Registry98;


sub GetIpAdress()
{

	my %RegType = (
			0 => 'REG_0',
			1 => 'REG_SZ',
			2 => 'REG_EXPAND_SZ',
			3 => 'REG_BINARY',
			4 => 'REG_DWORD',
			5 => 'REG_DWORD_BIG_ENDIAN',
			6 => 'REG_LINK',
			7 => 'REG_MULTI_SZ',
			8 => 'REG_RESOURCE_LIST',
			9 => 'REG_FULL_RESOURCE_DESCRIPTION',
			10 => 'REG_RESSOURCE_REQUIREMENT_MAP');

	my $Register = "System\\CurrentControlSet\\Services\\Class\\NetTrans\\";

	$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;


	my @keys;
	$hkey->GetKeys(\@keys);

	my $Register2 = "System\\CurrentControlSet\\Services\\Class\\NetTrans\\$keys[0]";
	my ($RegType, $RegValue, $RegKey, $value);
	my %values;

	if( HKEY_LOCAL_MACHINE->Open($Register2,$hkey))
	#$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;

	{
		$hkey->GetValues(\%values);


		foreach my $value (keys %values) {

		$RegKey = $values{$value}->[0];
		$RegType = $values{$value}->[1];
		$RegValue = $values{$value}->[2];

		next if $value ne "IPAddress";



	SWITCH: {
	if ($RegType == 1) {

		print $RegValue;
		return $RegValue;
		last SWITCH;
	}



}

}
 }
}

  my $Ip=GetIpAdress();
  
1;