Re: Finding logged in users

2001-03-16 Thread Stephen Gray
D]>; <[EMAIL PROTECTED]> Sent: Friday, March 16, 2001 2:56 AM Subject: RE: Finding logged in users > A much simpler solution to this is to create a logon script with code that > looks kinda like: > > $Domain = Win32::DomainName(); > $User = Win32::LoginName(); > $Ma

RE: Finding logged in users

2001-03-15 Thread Dave Roth
A much simpler solution to this is to create a logon script with code that looks kinda like: $Domain = Win32::DomainName(); $User = Win32::LoginName(); $Machine = Win32::NodeName(); $LogFile = "soomeserver\\someshare\\logon.log"; if( open( LOG, ">$LogFile" ) ) { # Exclusively lock the

RE: Finding Logged in users

2001-03-14 Thread Bellenger, Bruno (Paris)
Bruno Bellenger -Original Message- From: Chuck Lawhorn [SMTP:[EMAIL PROTECTED]] Sent: mercredi 14 mars 2001 17:16 To: Bellenger, Bruno (Paris); '[EMAIL PROTECTED]' Cc: '[EMAIL PROTECTED]' Subject:RE: Finding Logge

RE: Finding Logged in users

2001-03-14 Thread Chuck Lawhorn
If you don't want to use the substr command, you could simply remove all leading backslashes as follows: $computer =~ s|^\\*||; Just my $.02, --Chuck --- "Bellenger, Bruno (Paris)" <[EMAIL PROTECTED]> wrote: > > And this will list all files open through the network on a server. > Syntax is :

RE: Finding Logged in users

2001-03-14 Thread Bellenger, Bruno (Paris)
And this will list all files open through the network on a server. Syntax is : Perl scriptname.pl computername or Perl scriptname.pl \\computername # NetFileEnum($server, $basepath, $user, \@info) # Supplies information about some or all open files on server \\$computer. # Specify tar

RE: Finding Logged in users

2001-03-14 Thread Bellenger, Bruno (Paris)
This will list users having a network session to a server. Syntax is Perl scriptname.pl computername or Perl scriptname.pl \\computername # NetSessionEnum($server, $client, $user, \@info) # Provides information about all current sessions on server \\$computer. # Specify target comput

RE: Finding Logged in users

2001-03-14 Thread Bellenger, Bruno (Paris)
Please note, you need to be more explicit when saying "logged in users". This script actually will tell you who's INTERACTIVELY logged in, not who has a network session to the machine. In any case, the original code worked. Leave the line $computer = "$ARGV[0]" ; then provide the c

Re: Finding Logged in users

2001-03-14 Thread Chuck Lawhorn
You are setting $computer to "//rwaldock". You rpobably want two backslashes in front of the name instead of two forward slashes. Your code is set to strip out leading backslashes, but you don't have any in your computer name. HTH, --Chuck --- [EMAIL PROTECTED] wrote: > Hi, > > I have today