Hi Deb,
try using Dave Roth's Win32::Daemon - it works great for me. The only thing
is that you have to extend your script to get all the features of this
module.
Here is an example:
# Define how long to wait before a default status update is set.
Win32::Daemon::Timeout( 5 );
# Start the servi
Question:
What is the correct syntax of the VB array element
"Machine.IPAddresses(0)" in Perl?
Answer:
$IPAddressThingie = $machine->IPAddresses(0);
BTW: I am just curious...why are you using Enum->Next() instead of in()?
dave
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL
Hi all,
I am trying to rewrite this VBScript in Perl.
'do a query
'--
set Machines = WbemServices.ExecQuery("select * From SMS_R_System")
For Each Machine in Machines
wscript.echo Machine.Name + ": " + Machine.IPAddresses(0)
Next
Question:
What is the correct syntax of the VB a
I have a perl script that processes files in directories and zips them up.
The problem I have is that some of the files may be in the process of being
copied into the directory I am monitoring while I am trying to zip them up.
I have tried to wait for the file to finish copying before zipping by
Hello, I am using Windows NT server 4.0 with IIS 4.0 and the latest version
of ActivePerl. I'm having a few problems with
Win32::AdminMisc::LogonAsUser().
I am attempting to log on users to the NT server with this function via a
CGI form. But when I try to use the script I've written, the func
Nope. There is nothing that printed out that had to do with the user who
was logged onto the server when I did that. Was there supposed to be?
Mike Nguyen
-Original Message-
From: Ron Grabowski [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, July 18, 2000 1:26 AM
To: Nguyen_Mike
Cc: '[EMAIL
Okay, I got the thing to work. I returns a one, and my logon name has
changed from the anonymous user account to my real user account. So am I
not logged onto the server? If I am, why am I still seeing the
authentication window pop up with I need to access a folder that is
protected by the NT C
From: <[EMAIL PROTECTED]>
> you might want to check out http://marc.theaimsgroup.com/ - they have a
> searchable archive of several activestate lists (not to mention a listserv
> on every other topic i could imagine).
ftp://bangkokwizard.com/pub/perl/
has PerlWeb and Users for the last year
Good day -
I am having issues with the GetMessageText command. I
am running a script that goes through a list of
servers and goes to each of their eventlogs and prints
out the errors that occur. I have set it up to print
out the Event ID and the description. However, it
seems that the descripti
I hit this a few days ago, while www.activestate.com was down.
After it came back up, it turns out that they changed the http site so that ppm
only works if you have build 5.6.0.623 or later. They switched 623 to a new
version of ppm, and apparently made some changes to the server to accomodate
just a guess, but the , at the end of the second line should be a ;
Not ?
Also, if that's a hard return after receive( your entire statement is
bro-ken.
let me know if it worked out,
joris
-Original Message-
From: Robjohns, Ashley - COMPAQ [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, Marc
Hi, all-
Does anyone have any experience in installing a Perl script as a service
under NT? I have a script that I converted to an executable using
Perl2Exe. I'm trying to install it as a service under NT4 SP6a using
instsrv.exe and srvany.exe from the Resource Kit, but it does not start
my progr
I have some Events in my Eventlog that are Informational entries but
don't print out the description.
Example:
Source => OtMan4
Length => 64
EventType => 4
Message =>
ClosingRecordNumber => 0
RecordNumber => 3231
Strings => *
Data => **f***s`*X***h***
***
Hi Chuck,
You're right.
It's probably best to do as you suggest as this will handle all prefixed
backslashes,
regardless of the number entered (knowing Perl, someone could try
'computername' as an argument)
_
Bruno Bellenger
-O
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 :
Try anonymous piping:
open (RESULTS, "passwd.exe thepassword |");
$encrypted = ;
close RESULTS;
Good luck,
Ember
-Original Message-
From: PerlWin32 [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, March 13, 2001 7:15 PM
To: [EMAIL PROTECTED]
Subject: passwd.exe (redirect the input/output)
Hi
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
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
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
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
Hi,
I have today seen reference to and have installed the lanman module.
I cant find any documentation for it.
I would like to use it to find the logged in users to our development
server at http://xxx.xxx.xxx
I am using NT and are connected to it via our own intranet.
I have tried the follow
21 matches
Mail list logo
