[...]
  # 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:\\");
[...]