Win32+ Perl Netzwerkverbindung auslesen: Win32+ Perl Netzwerkverbindung auslesen (Allgemeines zu Perl)

[thread]6173[/thread]

Win32+ Perl Netzwerkverbindung auslesen: Win32+ Perl Netzwerkverbindung auslesen

coax

2004-03-30 11:22

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Die Netzwerkerbindungen koenntest du mit `netstat -na` (bzw. `netstat -nat` wenn dich nur die TCP-Verbindungen interessieren) auslesen (ein entsprechendes Modul hab ich da jetzt nicht parad).
Deine Netzwerkfreigaben bekommst du mit dem Modul Win32::NetResource.

Ich hoffe ich hab dein Vorhaben richtig verstanden.

Grusz Christian.

,,Das perlt aber heute wieder...'' -- Dittsche

Crian

2004-03-30 12:01

User since
2003-08-04
5872 Artikel
ModeratorIn

Die Frage hat in den grafischen Oberflächen eher weniger zu suchen *verschieb*

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Chris26

2004-03-29 19:30

User since
2004-03-29
4 Artikel
BenutzerIn
[default_avatar]

Hey,
ich hoffe ihr könnte mir weiterhelfen.
Und zwar möchte ich mit Perl mir die aktiven Netzwerkverbindungen meines Rechnern (auch die Netzlaufwerke) in einen Array schreiben und Sie mir dann wieder aufgeben lassen.
Leider habe ich nicht besonders viel Erfahrung in Perl habe aber im Internet gelesen, dass man Win32-Fkt. über Perl dazu benutzen kann.
Ich habe schon Win32 programmiert nur leider absolut keine Ahnung wie ich das über Perl machen soll.
Ich will quasi einen einen Windows-Explorer nachbauen aber nur die Funktionalität zum Anzeigen der Ordner haben.

Hat da jemand schon Erfahrung in solchen Sachen.Ich bin über jeden Vorschlag Dankbar, denn ich suche schon seit zwei Tagen im Netz und bin kein Stück weitergekommen.

Chris26

2004-03-30 11:50

User since
2004-03-29
4 Artikel
BenutzerIn
[default_avatar]

Gibt es zu dem Modul Win32::NetResource ein kleines Beispiel oder weiss jemand eine gute Referenz zu dem Modul?
Aber danke schon mal für den Tipp, jetzt weiss ich wenigstens in welche Richtung der Hase läuft :)

coax

2004-03-30 12:32

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

ja ein Beispiel gibt es, ist direkt in der Modul-Doku zufinden

Code: (dl )

    #
    # 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 all threads created 2004-03-30 11:22.