#! perl -slw
use strict;
use Win32::Lanman;

my %serverType = (
    SV_TYPE_AFP                  => SV_TYPE_AFP,
    SV_TYPE_ALL                  => SV_TYPE_ALL,
    SV_TYPE_ALTERNATE_XPORT      => SV_TYPE_ALTERNATE_XPORT,
    SV_TYPE_BACKUP_BROWSER       => SV_TYPE_BACKUP_BROWSER,
    SV_TYPE_CLUSTER_NT           => SV_TYPE_CLUSTER_NT,
    SV_TYPE_DCE                  => SV_TYPE_DCE,
    SV_TYPE_DFS                  => SV_TYPE_DFS,
    SV_TYPE_DIALIN_SERVER        => SV_TYPE_DIALIN_SERVER,
    SV_TYPE_DOMAIN_BAKCTRL       => SV_TYPE_DOMAIN_BAKCTRL,
    SV_TYPE_DOMAIN_CTRL          => SV_TYPE_DOMAIN_CTRL,
    SV_TYPE_DOMAIN_ENUM          => SV_TYPE_DOMAIN_ENUM,
    SV_TYPE_DOMAIN_MASTER        => SV_TYPE_DOMAIN_MASTER,
    SV_TYPE_DOMAIN_MEMBER        => SV_TYPE_DOMAIN_MEMBER,
    SV_TYPE_LOCAL_LIST_ONLY      => SV_TYPE_LOCAL_LIST_ONLY,
    SV_TYPE_MASTER_BROWSER       => SV_TYPE_MASTER_BROWSER,
    SV_TYPE_NOVELL               => SV_TYPE_NOVELL,
    SV_TYPE_NT                   => SV_TYPE_NT,
    SV_TYPE_POTENTIAL_BROWSER    => SV_TYPE_POTENTIAL_BROWSER,
    SV_TYPE_PRINTQ_SERVER        => SV_TYPE_PRINTQ_SERVER,
    SV_TYPE_SERVER               => SV_TYPE_SERVER,
    SV_TYPE_SERVER_MFPN          => SV_TYPE_SERVER_MFPN,
    SV_TYPE_SERVER_NT            => SV_TYPE_SERVER_NT,
    SV_TYPE_SERVER_OSF           => SV_TYPE_SERVER_OSF,
    SV_TYPE_SERVER_UNIX          => SV_TYPE_SERVER_UNIX,
    SV_TYPE_SERVER_VMS           => SV_TYPE_SERVER_VMS,
    SV_TYPE_SQLSERVER            => SV_TYPE_SQLSERVER,
    SV_TYPE_TERMINALSERVER       => SV_TYPE_TERMINALSERVER,
    SV_TYPE_TIME_SOURCE          => SV_TYPE_TIME_SOURCE,
    SV_TYPE_WFW                  => SV_TYPE_WFW,
    SV_TYPE_WINDOWS              => SV_TYPE_WINDOWS,
    SV_TYPE_WORKSTATION          => SV_TYPE_WORKSTATION,
    SV_TYPE_XENIX_SERVER         => SV_TYPE_XENIX_SERVER,
);

my $serverName = '\\\\YourServerName';
my %info;

if( Win32::Lanman::NetServerGetInfo( $serverName, \%info, 1 ) ) {
    for( keys %serverType ) {
        print "$serverName is a $_" if $info{type} & $serverType{$_};
    }
}
else {
    print "NetServerGetInfo error:$^E";
}