Right.
Then maybe you can build/maintain a list of computers present in each
building,
which should be fairly easy if your network has a different segment/vlan for
each one.
Pinging each machine in the list before trying to send a message to it would
then help
you avoid the huge timeout penalty.
Or as I previously mentioned, you can check which users have a connection on
your
servers and target the machine(s) on which they are logged on. This is the
fastest and
easiest way I've found to locate users on a network. But of course, you'll
need to know
at least one server where they will have an open connection.
Here is how to retrieve connection information from a server :
As usual, watch out for text wrap.
(For convenience, the same script are also attached as .TXT files.)
<START OF CODE>
# Netsession.pl - Bruno Bellenger - Aug 2001
# This is the (remote) equivalent of the local NET SESSION command :
# NetSessionEnum($server, $client, $user, \@info)
# Provides information about all current sessions on server \\$computer.
# Specify target computer as argument to the script
# (with or without preceding '\\')
# Minimum display width required : 125-130+ chars depending on computer
# names average length
use Win32::Lanman ;
my $computer = shift ;
$computer = substr($computer,2,) if (substr($computer,0,2) eq "\\\\") ;
print "\n", "-" x 35, "[List of open Network sessions on computer
$computer]", "-" x 35, "\n" x 2 ;
if(!Win32::Lanman::NetSessionEnum("\\\\$computer","", "", \@sessions)) {
print "Sorry, something went wrong; error: ";
# get the error code
print Win32::Lanman::GetLastError();
print " : $^E\n" ;
exit 1;
}
my $session_number = 0;
foreach my $session (@sessions) {
print ++$session_number, "\t" ;
my $idle_hours = 0 ;
my $roundedidle_hours = 0 ;
print "username=${$session}{username}" . "." x (20 -
length(${$session}{username})) ;
print "num_opens=${$session}{num_opens}" . "." x (10 -
length(${$session}{num_opens})) ;
print "cname=${$session}{cname}" . " " x (15 -
length(${$session}{cname})) ;
$hours=(${$session}{time}) / 3600 ;
$idle_hours=(${$session}{idle_time}) / 3600 ;
$roundedhours = sprintf("%.2f", $hours);
$roundedidle_hours = sprintf("%.2f", $idle_hours);
print "idle_time=" . "." x (12 - length($roundedidle_hours)) .
$roundedidle_hours . " " x 5 ;
print "time=" . "." x (12 - length($roundedhours)) .
$roundedhours . " " x 5 ;
print "\n" ;
}
print "\n" ;
<END OF CODE>
and while we are at it, what is also often associated to this, here is how
to retrieve the open files
information :
<START OF CODE>
# Netfiles.pl - Bruno Bellenger - Aug 2001
# This is the (remote) equivalent of the local NET FILES command :
# NetFileEnum($server, $basepath, $user, \@info)
# Supplies information about some or all open files on server \\$computer.
# Specify target computer as argument to the script
# (with or without preceding '\\')
# Minimum display width required : 125-130+ chars depending on file paths
# average length
use Win32::Lanman ;
my $computer = shift ;
my @files = () ;
$computer = substr($computer,2,) if (substr($computer,0,2) eq "\\\\") ;
print "------------[List of (Network Accessed) open files on computer
$computer]------------\n" ;
if(!Win32::Lanman::NetFileEnum("\\\\$computer", '','', \@infos)) {
print "Sorry, something went wrong; error: ";
# get the error code
print Win32::Lanman::GetLastError();
print " : $^E\n" ;
exit 1;
}
foreach my $info (@infos) {
## Enable the following lines to display more details :
# my @keys = keys(%$info);
# foreach my $key(@keys) {
# print "$key: ${$info}{$key}\t";
# }
# print "\n" ;
## Build an array of open files :
push @files,"${$info}{username} \t ${$info}{pathname}" ;
## Or print it directly :
#print "${$info}{username} \t ${$info}{pathname}\n" ;
}
## Print result array as is :
# print join "\n",@files ;
## Print result array with numbers :
for (my $i=0; $i<=$#files ; $i++) {print $i+1, "\t", $files[$i], "\n" }
print "\n";
<END OF CODE>
<<netsession.txt>> <<NETFILES.txt>>
_____________________________________________
Bruno Bellenger
Sr. Network/Systems Administrator
-----Original Message-----
From: Teifke Sascha ZFF FW-EI [SMTP:[EMAIL PROTECTED]]
Sent: Friday, December 13, 2002 8:46 AM
To: 'Bellenger, Bruno (Paris)';
'[EMAIL PROTECTED] '
Cc: Teifke Sascha ZFF FW-EI
Subject: AW: Win32::Message question
If I send the way you suggested I will alert all users connected to
this
server.
But I can't do this - if I'd send a Message like "Building 12 is
burning -
leave it!"
all gazers will come to see it.
So I need to send it to the affected people only.
What do you mean with "retrieving the connection information von key
servers"?
Do you mean to receive the hostname where users are logged in? I've
access
to
a Database where the location of the Hosts are saved and I do the
net send
command
with the hostname as username.
Thank you for your help!
Sascha
# Netsession.pl - Bruno Bellenger - Aug 2001
# This is the (remote) equivalent of the local NET SESSION command.
# NetSessionEnum($server, $client, $user, \@info)
# Provides information about all current sessions on server \\$computer.
# Specify target computer as argument to the script
# (with or without preceding '\\')
# Minimum display width required : 125-130+ chars depending on computer
# names average length
use Win32::Lanman ;
my $computer = shift ;
$computer = substr($computer,2,) if (substr($computer,0,2) eq "\\\\") ;
print "\n", "-" x 35, "[List of open Network sessions on computer $computer]", "-" x
35, "\n" x 2 ;
if(!Win32::Lanman::NetSessionEnum("\\\\$computer","", "", \@sessions)) {
print "Sorry, something went wrong; error: ";
# get the error code
print Win32::Lanman::GetLastError();
print " : $^E\n" ;
exit 1;
}
my $session_number = 0;
foreach my $session (@sessions) {
print ++$session_number, "\t" ;
my $idle_hours = 0 ;
my $roundedidle_hours = 0 ;
print "username=${$session}{username}" . "." x (20 -
length(${$session}{username})) ;
print "num_opens=${$session}{num_opens}" . "." x (10 -
length(${$session}{num_opens})) ;
print "cname=${$session}{cname}" . " " x (15 - length(${$session}{cname}))
;
$hours=(${$session}{time}) / 3600 ;
$idle_hours=(${$session}{idle_time}) / 3600 ;
$roundedhours = sprintf("%.2f", $hours);
$roundedidle_hours = sprintf("%.2f", $idle_hours);
print "idle_time=" . "." x (12 - length($roundedidle_hours)) . $roundedidle_hours
. " " x 5 ;
print "time=" . "." x (12 - length($roundedhours)) . $roundedhours
. " " x 5 ;
print "\n" ;
}
print "\n" ;
# Netfiles.pl - Bruno Bellenger - Aug 2001
# This is the (remote) equivalent of the local NET FILES command.
# NetFileEnum($server, $basepath, $user, \@info)
# Supplies information about some or all open files on server \\$computer.
# Specify target computer as argument to the script
# (with or without preceding '\\')
# Minimum display width required : 125-130+ chars depending on file paths
# average length
use Win32::Lanman ;
my $computer = shift ;
$computer = substr($computer,2,) if (substr($computer,0,2) eq "\\\\") ;
print "------------[List of (Network Accessed) open files on computer
$computer]------------\n" ;
if(!Win32::Lanman::NetFileEnum("\\\\$computer", '','', \@infos)) {
print "Sorry, something went wrong; error: ";
# get the error code
print Win32::Lanman::GetLastError();
print " : $^E\n" ;
exit 1;
}
my @files = () ;
foreach my $info (@infos) {
## Enable the following lines to display more details :
# my @keys = keys(%$info);
# foreach my $key(@keys) {
# print "$key: ${$info}{$key}\t";
# }
# print "\n" ;
## Build an array of open files :
push @files,"${$info}{username} \t ${$info}{pathname}" ;
## Or print it directly :
#print "${$info}{username} \t ${$info}{pathname}\n" ;
}
## Print result array as is :
# print join "\n",@files ;
## Print result array with numbers :
for (my $i=0; $i<=$#files ; $i++) {print $i+1, "\t", $files[$i], "\n" }
print "\n";
