$IP ='30.0.0.252';
($name, $Alias, $Adresstyp, $Laenge, @Adressenfeld) =
gethostbyaddr(pack('C4', split('\.', $IP)), 2);
print "Name des Rechners:\t$name\n";
print "Alias zu $Name:\t $Alias\n";
print "Adresse zu $Name:\t ", join('.', unpack('C4', $Adressenfeld[0])),
"\n";
print "Adresstyp zu $Name:\t $Adresstyp\n";
print "Länge zu $Name:\t $Laenge\n";
Manfred
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Gesendet: Freitag, 14. Oktober 2005 15:40
An: Ramlakhan,Dave; [EMAIL PROTECTED]
Cc: Perl-Win32-Admin@listserv.ActiveState.com
Betreff: RE: Remote User
That is a lot shorted than the code I was using. Thanks!
Is there a way to determine the name of a machine via the IP address
without using nslookup?
- Adam
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Ramlakhan, Dave
Sent: Friday, October 14, 2005 3:59 AM
To: '[EMAIL PROTECTED]'
Cc: 'Perl-Win32-Admin@listserv.ActiveState.com'
Subject: RE: Remote User
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: 13 October 2005 21:53
> To: Perl-Win32-Admin@listserv.ActiveState.com
> Subject: Re: Remote User
>
>
> Adam Stern <[EMAIL PROTECTED]> wrote:
> >Is there a way to tell who is currently logged into another
> workstation on
> the network via perl?
>
> Have perl call and parse the output of nbtstat.
If you're using perl 5.6 you can try Win32::Message to get the nbtstat
message names, otherwise try Win32::NetAdmin
#####BEGIN
use Win32::NetAdmin;
my $server = "rfh-infoflex";
my %userRef;
if (Win32::NetAdmin::LoggedOnUsers($server,\%userRef)) {
for my $user (sort keys %userRef) {
print "$user is " . $userRef{$user} . "\n";
}
}
#######END
unfortunately you appear to get all logged on users, including batch and
service accounts _______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
