Thread Win32+ Perl Netzwerkverbindung auslesen: Win32+ Perl Netzwerkverbindung auslesen (4 answers)
Opened by coax at 2004-03-30 11:22

coax
 2004-03-30 12:32
#81370 #81370
User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]
ja ein Beispiel gibt es, ist direkt in der Modul-Doku zufinden
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    #
   # This example displays all the share points in the entire
   # visible part of the network.
   #    use strict;
   use Win32::NetResource qw(:DEFAULT GetSharedResources GetError);
   my $resources = [];
   unless(GetSharedResources($resources, RESOURCETYPE_ANY)) {
       my $err;
       GetError($err);
       warn Win32::FormatMessage($err);
   }    foreach my $href (@$resources) {
       next if ($$href{DisplayType} != RESOURCEDISPLAYTYPE_SHARE);
       print "-----\n";
       foreach( keys %$href){
           print "$_: $href->{$_}\n";
       }
   }
,,Das perlt aber heute wieder...'' -- Dittsche

View full thread Win32+ Perl Netzwerkverbindung auslesen: Win32+ Perl Netzwerkverbindung auslesen