Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

use warnings;

use strict;  

# Description: Networking for Unix systems

our $VERSION = '1.2';

# Microsoft network module for sysinfo client

# Author: R. W. Rodolico

# Date:   2025-03-30

# module to get network interface information for Windows systems

# uses Win32::Net::Info

# install with cpan install Win32::Net::Info

# find our location and use it for searching for libraries

BEGIN {

   use FindBin;

   use File::Spec;

   use lib File::Spec->catdir($FindBin::Bin);

   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;

   eval( 'use Data::Dumper;' );

}

# check for valid OS. 

exit 1 unless &checkOS( { 'mswin32' => undef } );

# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist

# script returns a 2

#foreach my $command (  ) {

#   exit 2 unless &validCommandOnSystem( $command );

#}

use Win32::Net::Info qw(:subs);

my $CATEGORY = 'network';

foreach my $adapter ( Win32::Net::Info->interfaces) {

    my $interface = Win32::Net::Info->new( $adapter );

	my $name = $interface->name();

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'description', $interface->description() );

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'mac', $interface->mac() );

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'address', $interface->ipv4() );

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'netmask', $interface->ipv4_netmask() );

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'gateway', $interface->ipv4_default_gateway() ) if $interface->ipv4_default_gateway();

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'mtu', $interface->mtu() );

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'ip6address', $interface->ipv6() ) if $interface->ipv6();

    printf ( "%s\t$name\t%s\t%s\n", $CATEGORY, 'ip6networkbits', $interface->ipv6_netmask() )if $interface->ipv6_netmask();

}