Perl Guru's I greet you.
I am putting together a script which I would be using to update
Windows servers as part of a build process.
I have multiple mirrored shares across my network
My goal is to have this script run and determine the fastest/closest
update share
that it can use to downl
The following script gives the following ouput
the take a look at the subroutine to better understand how the output is
formatted.
Phone Number Normalizer
Converting (763) Luv Perl to 763-588-7375
# ===SCRIPT
PhoneNormalize.pl
print
Greetings Perl experts
I am trying to convert a ton of standalone tools written in perl
to be web based
these tools are mostly windows administration tools.
Just looking for some advice on using perl on IIS. I have used the CGI
module
to create dynamic pages but Im not sure how to handle
From:
Bill Luebkert <[EMAIL PROTECTED]>
To:
[EMAIL PROTECTED]
Cc:
ActivePerl@listserv.ActiveState.com
Date:
08/27/2008 07:24 PM
Subject:
Re: help with Win32::TieRegistry
[EMAIL PROTECTED] wrote:
>
> Greetings All
> I am having trouble using the Win32::TieRegistry's CreateKey
method
> s
Greetings All
I am having trouble using the Win32::TieRegistry's CreateKey
method
sample code is given below. It does not create the key.
Im not sure what Im missing here.
#
use Win32::TieRegistry (Delimiter => "/",
SplitMultis => 1, AllowL
You can use either Run or Exec method of the shell object
the example below uses the run method. Note that on Windows, %comspec%
variable
points to the systems command shell (cmd.exe or command.exe)
Set Wsshell = Wscript.CreateObject("Wscript.Shell")
Wsshell.Run("%comspec% /k Perl.exe test.pl"),,
On windows, you can use the /t switch with Date or Time command to display
the date without prompting
Date /T will not prompt you for the new date. I modified your code below.
I am assuming you are trying to get the system date from windows:
use strict;
use warnings;
my $result = `date /t`;
prin
Hi All
I am a bit puzzled by a small issue Im having.
I am developing some tools to manage my virtual server 2005 environment.
Now Microsoft has COM API available to interface with Virtual Server 2005
I am however unable to use this COM interface from perl using Win32::OLE
Here is a sample perl sc
"Karr, David"
<[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
01/31/2006 03:34 PM
To
[EMAIL PROTECTED]
cc
activeperl@listserv.ActiveState.com
Subject
RE: How to get result from Perl script
into windows bat variable?
> -Original Message-
> From: [EMAIL PROTECTED] [mailt
"Karr, David"
<[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
01/31/2006 11:38 AM
To
activeperl@listserv.ActiveState.com
cc
Subject
How to get result from Perl script into
windows bat variable?
David Karr Wrote:
I'm
Anthony Okusanya wrote:
> Hi all
> I have a utility I wrote using ActivePerl. It
is used to install applications and hotfixes on Windows servers. I am trying
to modify this to work with the 64bit version of Windows 2003. The problem
is that due to the registry re-direction that 64i
Bill Luebkert wrote:
This seems to work on 32:
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Variant;
use constant HKEY_CURRENT_USER => 0x8001;
use constant HKEY_LOCAL_MACHINE => 0x8002;
my $strComputer = Win32::NodeName || '.';
my $oReg = Win32::OLE->GetObject(
'winm
Bill Luebkert Wrote
"$Bill Luebkert"
<[EMAIL PROTECTED]>
12/21/2005 04:25 PM
To
"'Anthony Okusanya'" <[EMAIL PROTECTED]>
cc
activeperl@listserv.ActiveState.com
Subject
Re: Perl Script on x64 Windows
Jan Dubois wrote:
> On Wed,
esign And Not From Crisis to Crisis"
"Vassiliy Truskov"
<[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
09/14/2005 12:20 PM
To
"Anthony Okusanya" <[EMAIL PROTECTED]>
cc
activeperl@listserv.ActiveState.com
Subject
Re: Perl TK question
use Tk:
Hi All
I am changing one of my script from using
system($command) to using the
Win32::Process::Create($obj,$appname,$cmdline,$iflags,$cflags,$curdir) method.
The problem I have is I want to be able to tell if this process is still
running. e.g
While($obj still running)
{
do a few things
}
I cant
Hi all
I was wondering if there is a way in TK to have a window/dialog always be on
top.
Thanks
___
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hi all
I just finished a GUI based utility written in Perl/TK. I use this
utility to install
applications on servers.
The problem I have is that when an app is being installed, I have a dialog box
which is a top level widget with a ROText and a progress bar at the bottom.
ISSUE: When my ap
Hi All
I know Dave Roth's Win32::AdminMisc has be a subject of many posts. I am
looking for a copy of this module that will work on Activestates 5.8.7 bild as
I am unable to locate one.
I did try using PPM with Roths repository without success.
Any help would be appreciated Or if someone out th
To add to Chad's last email, the following
will cater for spaces and special (allowed) characters in the file name
$s1 = "c:\\temp\\bola\\temilola\\abolan-lef
o_o.pl";
$s1 =~/\\([\w\._-\s]+)$/g;
print $1;
Tony B. Okusanya
Distributed Technology Group
"Live Life By Design And Not From Crisis
Try the Win32::AdminMisc module created
by Dave Roth (www.roth.net)
use Win32::AdminMisc;
@diskinfo = Win32::AdminMisc::GetDriveSpace("C:\\");
print "Free Disk Space = $diskinfo[1]
\n";
Tony B. Okusanya
MCSE, CNA, CCNA, A+, N+
Distributed Technology Group
"Wayne Simmons"
<[EMAIL PRO
Does anyone know of perl module that can get a Microsoft servers Uptime. There is a
utility in the resourcekit called Uptime that does this but
I am looking for a module in perl with the same funcitionality.
___
ActivePerl mailing list
[EMAIL
Hi all
I recently wrote a script that performs a controlled installation of various apps
based on several configurations in an ini file.
The problem I have is I want to be able to display the status of the script as it runs.
I thought I could use TK but I dont want the program to be interactive (
Hi Everyone
I have a slight problem that requires your wealth of
experience/knowledge
I wrote a program in perl that will update IE shortcuts with new url's.
The program works fine except for files with special characters in the file
name
I am using the following to get a list of the files th
I believe the problem is that you are escaping the dollar sign $ in $ext
&bad_files($entry,$size) if($entry =~ /\$ext$/);
this should be
&bad_files($entry,$size) if($entry =~ /$ext$/);
the trailing dolar sign matches if the $entry variable ends with whatever
is in $ext variable
hope this helps
24 matches
Mail list logo
