if ($Wmi) {
			my $Vars = $Wmi->Get('Win32_Environment');
			my $var = $Vars->Spawninstance_ ();
			#print $var;
			print $var ->{'CADMAP'};
			$var->put_();
			#print HLIST $Vars{"pc_os"};
			#foreach (keys %Vars) {
			#	print HLIST $Vars{$_} ."\n";
			#}
		}