use strict;
use warnings;
use Net::SSH::Expect;

while (my $line = <>) {
   my ($s, $u, $p) = @_;
   print "Server $s hat ", myDF($s,$u,$p), "frei\n";
 }
 
 sub myDF {
   my ($server, $user, $passw) = @_;
   my $ssh = Net::SSH::Expect->new (
            host => $server, 
            password=> $passw, 
            user => $user, 
            raw_pty => 1
        );
 my $login_output = $ssh->login();
 
 my $df = $ssh->exec("df -h /");
 return $df;
}

#!/usr/bin/perl

use strict;
use IO::File;
use Win32;                              
use Win32::AdminMisc;   
use Win32::OLE qw (in);
use Net::SSH;

# Ordner, in dem die CSV-Datei liegt
my $dir = '.';
# Trennzeichen in der Datei 
my $sep = ';';


# Datei oeffnen
open(DATEN,'<c:\perl\systems.txt') or die "Konnte die Datei nicht öffnen";
# Inhalte abgreifen und splitten
while (defined(my $zeile = DATEN->getline))
{
 my ($FQDN, $OS, $HDD, $USER, $PW) = split(/;/,$zeile);
 
 # Abfrage der WindowsHosts
  if($OS eq 'win')
 {
  # Verbindungsaufbau
  my $conn_object = Win32::OLE->new('WbemScripting.SWbemLocator');
  my $server  = $conn_object->ConnectServer($FQDN, "root\\cimv2", $USER, $PW);
  
  # Abfrage des Datentraeger
  my $total; my $free;
  ($total, $free) = Win32::AdminMisc::GetDriveSpace("$HDD:\\");
  $total = $total / 1024 /1024;         # MegaByte!
  $free = $free / 1024 /1024;           # MegaByte!
  
  printf ("\n");
  printf ("Speicher gesamt: $total MB\n");
  printf ("Speicher verfuegbar: $free MB\n");
  }
 
 # Abfrage LinuxHosts
 if($OS eq 'lin')
 {
 # Verbindungsaufbau
  ????????????????????????????
 }
 
 
}close(DATEN);
printf ("\n");
printf("schleife tot...");