#! /usr/local/bin/perl

   use strict;

   use Net::SNMP;	#SNMP verwenden
################################################################################################################################################
	do
	{
################################################################################################################################################
        open(IP, "<ip.txt");
        while(<IP>)
        {
             chomp($_);     #Zeilenumbruch verschwindibus     #sonst wird die Ausgabe Verschoben
################################################################################################################################################
		my ($session, $error) = Net::SNMP->session(	#Sitzung starten
      		-hostname  => shift || $_,	#IP zum Gerät	#kann auch Internetadresse sein
      		-community => shift || '*****',
      		-port      => shift || 161
   		);
################################################################################################################################################
   			if (!defined($session))		#Prüfung ob die Sitzung funktioniert
			{
      				printf("ERROR: %s.\n", $error);
      				exit 1;
   			}
################################################################################################################################################
	   		my $OID = '.1.3.6.1.2.1.1.2.0';           #Variable OID	        #OID zur Hersteller OID
	   		my $Name = '.1.3.6.1.2.1.1.5.0';          #Variable Name	#OID zum Gerätename
	   		my $Loc = '.1.3.6.1.2.1.1.6.0';           #Variable Loc         #OID zum Standort

	   		my $result = $session->get_request
			(
				-varbindlist => [$OID, $Name, $Loc]
   			);

	   		if (!defined($result))
			{
     				printf("ERROR: %s.\n", $session->error);
     				$session->close;
      				exit 1;
   			}
################################################################################################################################################
			open (file, ">>ausgabe.txt");	#öffnet Datei zum speichern
################################################################################################################################################
	   			printf
				(
					"Standort: %s\nIP: %s\tGeraetename: %s\tOID: %s\nTemperatur: %s\tLuftfeuchte: %s\n\n",		#Ausgabe der Hersteller OID
					$result->{$Loc}, $session->hostname, $result->{$Name}, $result->{$OID}
   				);

				printf file
				(
					"Standort: %s\nIP: %s\tGeraetename: %s\tOID: %s\nTemperatur: %s\tLuftfeuchte: %s\n\n",	#speichern in die Datei
					$result->{$Loc}, $session->hostname, $result->{$Name}, $result->{$OID}
   				);
################################################################################################################################################
	   		$session->close;
################################################################################################################################################
        }
        close(IP);
################################################################################################################################################
print file
(
"----------------------------------------------------------------------\n\n"
);
close (file);	#schließen der Ausgabe Datei
################################################################################################################################################
print "----------------------------------------------------------------------\n\n";
sleep(5);
################################################################################################################################################
        }
	while(0<1);
################################################################################################################################################
   			exit 0;