Just a thought. I got it
to work if you map the paths of
each server to a drive letter on
a machine and run it that way.
It worked for me.
thanks,
John
-Original Message-
From: Arun Budhwani [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 12, 2004 11:21 AM
To: Ned Cunningham; Dutrieux
Thanks,
I got it working.
regards,
John
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 04, 2004 9:36 AM
To: John Deretich; Perl-Win32-Admin-Request (E-mail)
Subject: RE: Copying the contents of one mapped drive onto another
Why doesn&#
Steven,
do you know how to do this command
in a system's command?
thanks,
John
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 04, 2004 9:36 AM
To: John Deretich; Perl-Win32-Admin-Request (E-mail)
Subject: RE: Copying the contents o
Hi,
does anyone know how to copy the contents of one
mapped drive onto another, including all files and
directories? Xcopy doesn't work.
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/ma
Try using psloggedon and
run it in a perl script.
It will tell you what user is signed
on to a workstation. Hope this helps.
You can get psloggedon as freeware
on the internet.
John
-Original Message-
From: hugh s [mailto:[EMAIL PROTECTED]
Sent: Friday, January 30, 2004 1:31 PM
To: [EMAIL
Thanks,
It works with the Date: header like
you said, and to use gmtime function instead
of the local time function.
regards,
John
-Original Message-
From: Herbert, Mark [mailto:[EMAIL PROTECTED]
Sent: Saturday, December 06, 2003 3:51 AM
To: 'John Deretich'
Subject: RE: :SMTP
Thanks,
That fixed the problem.
regards,
John
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Friday, December 05, 2003 3:03 PM
To: John Deretich
Cc: Perl-Win32-Admin-Request (E-mail)
Subject: Re: :SMTP
John Deretich wrote:
> Thanks for the help B
John Deretich
Cc: Perl-Win32-Admin-Request (E-mail)
Subject: Re: :SMTP
John Deretich wrote:
> Thanks Mark,
>
> but one question?
> I tried $smtp->datasend("X-Sent: xxx\n");
> But it didn't put the additional line into
> the header. Any idea why?
This should do i
-
From: Herbert, Mark [mailto:[EMAIL PROTECTED]
Sent: Friday, December 05, 2003 8:48 AM
To: 'John Deretich'
Cc: 'Perl-Win32-Admin'
Subject: RE: :SMTP
Hi John,
did the line end up in the body of the message? Once you start writing
data, you must write the header lines with no
Thanks Mark,
but one question?
I tried $smtp->datasend("X-Sent: xxx\n");
But it didn't put the additional line into
the header. Any idea why?
regards,
John
-Original Message-
From: Herbert, Mark [mailto:[EMAIL PROTECTED]
Sent: Friday, December 05, 2003 2:55 AM
$smtp->datasend("Sent: xx:xx::xx \n");
$smtp->datasend("\n");
$smtp->datasend("xxx\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
For this didn't work.
thanks,
John
Hi,
My emails are being sent with no sent date.
How can I use NET::SMTP to fix the problem?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hello,
does anyone know how to put
in the date and time in the "sent:"
section of the email using Net::SMTP?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Mike,
are you trying to see who's logged on
to each machine? If you are, you can
write a script using psloggedon. I
believe it's freeware under
the web site www.sysinternals.com.
regards,
John
-Original Message-
From: Mike Singleton [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 1
Hello,
is there a way of removing all of the
files and directories below the base directory,
while not deleting the base directory.
For example, system (`rd /s /q f://new`)
will remove everything below "new" while including
"new" as well. I just want to removing everything
below "new" only.
tha
Hello,
can anyone tell me how to do
a complete copy of files and directories
from one directory to another?
I tried system('copy g:\*.* F:\test\test2')
with no success.
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: ht
Hi Roy,
I was just wondering.
I know rd is remove directory with
a /s and a /q option, but what is cmd /c?
thanks,
John
-Original Message-
From: Roy Sprague [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 12, 2003 11:39 AM
To: 'John Deretich'; Perl-Win32-Admin-Reque
Hello,
I just wanted to find out if anyone knows how to remove a
non empty directory. Say for example, J:\test\test1.
just remove only test1 and any subdirectories below it,
not the entire contents of the J: Drive.
thanks,
John
___
Perl-Win32-Admi
Hi Mark,
will this remove only the empty directories
or all of the directories?
thanks,
John
-Original Message-
From: Messenger, Mark [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 30, 2003 4:58 PM
To: John Deretich; Perl-Win32-Admin-Request (E-mail)
Subject: RE: removing empty
Hello,
I was wondering if anyone has a script that
will remove empty directories and subdirectories.
The code that I am using will delete the entries
at the first sublevel but not at multiple sublevels.
Here's my code:
opendir(EMPTYDIR, $searchdrive1) ;
while ($directoryempty = readdir(EMPTYDIR
Thanks for the code.
I modified it to suit my needs.
regards,
John
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Friday, September 26, 2003 3:22 PM
To: John Deretich
Cc: Perl-Win32-Admin-Request (E-mail)
Subject: RE: removing an empty directory
$dir = &q
Do you know how to test
for the existence of an empty directory?
thanks,
John
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Friday, September 26, 2003 3:01 PM
To: John Deretich
Subject: RE: removing an empty directory
Or change the current directory to that
Thanks,
I found out, that I need to add the full path
to the file $directoryempty = $searchdrive1 . $directoryempty;
regards,
John
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: Friday, September 26, 2003 11:17 AM
To: John Deretich; Perl-Win32-Admin-Request (E
empty directory
Maybe it's the fact that you're trying to deleted it while you still have it
open (open as in "opendir()"). Try doing a closedir() before deleting it.
>>> John Deretich <[EMAIL PROTECTED]> 09/26/03 01:55PM >>>
Hello,
I was wondering if an
Thanks,
I found out, that I need to add the full path
to the file $directoryempty = $searchdrive1 . $directoryempty;
regards,
John
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
Sent: Friday, September 26, 2003 11:14 AM
To: John Deretich
Cc: Perl-Win32-Admin-Request
Thanks,
I found out, that I do need to add the full path
to the file $directoryempty = $searchdrive1 . $directoryempty;
regards,
John
-Original Message-
From: HAWKINS,JOSHUA (HP-FtCollins,ex1) [mailto:[EMAIL PROTECTED]
Sent: Friday, September 26, 2003 11:31 AM
To: 'John Der
Hello,
I was wondering if anyone would know
why rmdir wouldn't remove an empty directory?
This is the code that I'm using:
use strict;
my $directoryempty = undef;
my $searchdrive1 = 'I:\\';
opendir(EMPTYDIR, $searchdrive1) ;
while($directoryempty = readdir(EMPTYDIR) ) {
chom
al Message-
From: Patrick J. LoPresti [mailto:[EMAIL PROTECTED]
Sent: Thursday, September 25, 2003 9:26 AM
To: John Deretich
Cc: 'SUMNER, Peter'; Perl-Win32-Admin-Request (E-mail)
Subject: Re: s/ / / operator
To get the file name, use the File::Spec or File::Basename module.
They
PM
To: '[EMAIL PROTECTED]'
Cc: 'John Deretich'
Subject: RE: s/ / / operator
Do a SPLIT on the string using the "\" as the character to split by.
This gives you an array @ of values.
use the POP function to remove the last value from the array, which would be
the filen
Hi,
would you know how to strip off
the file name on the end?
'F:\new\new\test\test'
Trying but unsuccessfull.
thanks,
John
-Original Message-
From: HAWKINS,JOSHUA (HP-FtCollins,ex1) [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 24, 2003 6:21 PM
To: 'John De
Thanks,
I got it to work.
John:)
-Original Message-
From: HAWKINS,JOSHUA (HP-FtCollins,ex1) [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 24, 2003 6:21 PM
To: 'John Deretich'
Subject: RE: s/ / / operator
Nope, sorry that works for me. I get 'F:\new\new\test\test
I was able to use $test1 =~ s/\Q$test\E/$new/i;
thanks,
John:)
-Original Message-
From: Tim Johnson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 24, 2003 6:29 PM
To: 'John Deretich'; 'HAWKINS,JOSHUA (HP-FtCollins,ex1)'
Cc: Perl-Win32-Admin-Request (E-
Sorry,
it didn't work.
Any more ideas:)
John
-Original Message-
From: HAWKINS,JOSHUA (HP-FtCollins,ex1) [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 24, 2003 6:11 PM
To: 'John Deretich'; Perl-Win32-Admin-Request (E-mail)
Subject: RE: s/ / / operator
Try
$new
Hello,
I was wondering if anyone knows how to use this s/ / / operator
with variable interpolation.
For example:
$new = "F:\\new\\new";
$test = "F:\\test";
$test1 = "F:\\test\\test\\test";
$test1 =~ s/$test/$new/i;
doesn't seem to work.
Does anyone know why?
thanks,
John
Title: RE: copying files
Awesome, system("copy \"$copyfile\"
\"$directoryexists\" ");
worked
great.
Thanks!!
John
:)
-Original Message-From: Messenger, Mark
[mailto:[EMAIL PROTECTED]Sent: Tuesday, September 16, 2003
3:29 PMTo: &#x
Hi, I was just wonder if
anyone has a solution to this problem.
I am trying copy a set of files into a directory.
The directory has spaces in it's name.
For example, z - test - test. But
when I try to copying the filenames
in using system("copy $copyfile") command,
I am getting the following erro
Eric,
from
this code it looks like your
splitting on the entire variable in $line.
Split
will pull out whatever _expression_
that
you give it and return what's left.
For
example,
$line
= "c:\\;;c:\\test\\;c:\\test\\test;";
@fields = split(/;/,$line);
@fields will be ("c:\", "", "c:\te
I wouldn't use win32::API it
could cause some machine problems.
Go on to www.roth.net and check
out some of the win32 extensions.
For example, Win32::AdminMisc::UserGetMiscAttributes
has a flag called USER_PRIV which
could show if the user priviledge could be
an administrator, which means
he coul
]Sent: Tuesday, September 02, 2003
8:18 PMTo: 'John Deretich'Subject: RE: perl
script
I'm not sure what you're looking for, but you might consider
just md5-ing the two files. If the hashes match, it's the same
file.
HTH... :)
-----Original Message-
whip something
up.
-Original Message-From: John Deretich
[mailto:[EMAIL PROTECTED]Sent: Tuesday, September
02, 2003 9:25 PMTo: Messenger, MarkCc:
Perl-Win32-Admin-Request (E-mail)Subject: RE: perl
script
Thanks for the information
Mark.
I
am
Hi,
does anyone have a script in which
you can tell if a file have been moved
from one directory to another?
regards,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hi,
I just wanted to confirm that the -c file test operator,
checks to see when the file was created?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Raymond,
try using $result2 = Win32::Perms::ResolveSid ("W2KASVM1\\administrator")
with $result3 = Win32::Perms::ResolveAccount ("W2KASVM1\\administrator");
your missing some parameters in both function calls,
for ResolveSid( $Account [, $BinarySid ] ) $Account =
"W2KASVM1\\administrator";
initia
Check the rights of your user account.
Look on Dave Roth's web site. You
might need special rights or permissions
to run the logonasuser.
regards,
John
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 27, 2003 2:27 PM
To: [EMAIL PROTECTED]
Subjec
Solli,
have you tried win32::eventlog?
John
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, March 24, 2003 11:19 AM
To: [EMAIL PROTECTED]
Subject: Getting incomplete value with
Win32::Lanman::GetEventDescription
I'm trying to get the security event d
joachim,
have you done any research on win32::console?
John
-Original Message-
From: Patrick J. LoPresti [mailto:[EMAIL PROTECTED]
Sent: Friday, March 21, 2003 6:14 AM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Re: AW: Control another Window
[EMAIL PROTECTE
Have
you tried the stat function.
regards,
John
-Original Message-From: Giarrocco, Camillo
[mailto:[EMAIL PROTECTED]Sent: Thursday, March 20, 2003
2:07 AMTo: [EMAIL PROTECTED] ActiveState. com;
[EMAIL PROTECTED] ActiveState. com Subject: How can I
check the size of a
th information that remains in effect after the system has
been reinitialized.
James Krummel
-----Original Message-
From: John Deretich <[EMAIL PROTECTED]>
To: "Perl-Win32-Admin-Request \(E-mail\)"
<[EMAIL PROTECTED]>
Subject: win32::netadmin::loggedonusers
Date: Tue, 11
John
-Original Message-
From: Martin, Greg (CSC) [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 11, 2003 7:19 PM
To: 'John Deretich '; 'Perl-Win32-Admin-Request (E-mail) '
Subject: RE: win32::netadmin::loggedonusers
John, NT does not maintain central database of logon/o
Hi,
I was wonder if anyone was familiar with
win32::netadmin::loggedonusers.
When I run this at night, the function
tells me that the user is still logged on
but he isn't. Can anyone tell me why?
Here's a snippet of my code that
I'm running:
Win32::NetAdmin::LoggedOnUsers($Machines, \%users);
James C - PGGC-6 [mailto:[EMAIL PROTECTED]
Sent: Monday, March 10, 2003 7:50 AM
To: '[EMAIL PROTECTED]'
Cc: '[EMAIL PROTECTED]'
Subject: RE: signoff message
John,
You can also open the HKEY_Users registry hive and go through the root key
names. Domain accounts will start
. LoPresti [mailto:[EMAIL PROTECTED]
Sent: Saturday, March 08, 2003 7:37 AM
To: John Deretich
Cc: Perl-Win32-Admin-Request (E-mail)
Subject: Re: signoff message
John Deretich <[EMAIL PROTECTED]> writes:
> I was wondering if there's a win32 module that can tell if a user is
> log
Hi,
I was wondering if there's a win32 module
that can tell if a user is logged on to there machine?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hi,
does anyone know if there's a module
that can check for available ports on a network?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Thanks for the response.
I am trying to check to see if
this http://$Machine:port exists and
what password this accepts.
regards,
John
-Original Message-
From: King, Jason G [mailto:[EMAIL PROTECTED]
Sent: Sunday, March 02, 2003 3:12 PM
To: Perl-Win32-Admin-Request (E-mail)
Subject: RE:
Hi,
I was wondering if anybody knows how
to fetch a url and read it's contents.
I can't seem to get the complete array
form the CrackURL method, any thoughts.
use strict;
use Win32::Internet;
my @file1 = undef;
my $Machine = Win32::NodeName();
my $inet = new Win32::Internet();
my $file = $inet-
Thanks for the info.
I am actually trying to get
the time on our oracle data base
and compare it to the local time on
each machine. Then if there's
a difference + or - say 10 minutes.
Put it into a report showing
that the machine needs to be reset.
Is there a way to convert the
HH24:MI:SS to tot
d Derek Douglas-Hecker [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 21, 2003 1:25 PM
To: John Deretich
Subject: RE: sql statements
below works for meactually both statements return the same value...what
are you trying to do?
?d
use DBI;
$dbh = DBI->connect("dbi:Oracle:",&
date into :mydate from dual});
if ( $sth ) {
$sth->execute;
}
$dbh->disconnect;
regards,
John
-Original Message-
From: Cliff [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 20, 2003 4:30 PM
To: John Deretich
Cc: Perl-Win32-Admin-Request \(E-mail\)
Subject: Re: sql statem
REPLY SEPARATOR ***
On 2003-02-20 at 13:07 John Deretich wrote:
[snip]
>Did you run it from the command line with the -w switch?
>
>regards,
>
>John
>
>-Original Message-
>From: "Sören Edzen" [mailto:[EMAIL PROTECTED]]
>Sent: Thursday, February 20, 2
:30 PM
To: John Deretich
Cc: Perl-Win32-Admin-Request \(E-mail\)
Subject: Re: sql statements
yes and yes. you are pulling the current oracle system date from the dummy
table
dual, and loading it into a user variable. in essence, you are getting the
localtime according to the oracle system you
Hi
does anyone understand
this sql statement, select sysdate into :mydate from dual,
using the dbi module? And is the :mydate a variable where the
sysdate gets loaded into?
regards,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsub
Did you run it from the command line with the -w switch?
regards,
John
-Original Message-
From: "Sören Edzen" [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 20, 2003 10:55 AM
To: [EMAIL PROTECTED]
Subject: Dave Roth's Example 2-1 (Creaing accounts) error/warning
Hello!
I'm not sur
Hi,
I am having a problem formatting
a header onto 1 page of the
report not to all of them.
Perl will put this header on all of the
pages on the report.
Any ideas?
ex.
title\n";
or R
Are
you reading each machine on your network
or are
your reading your server?
-Original Message-From: Robert-Jan Mora
[mailto:[EMAIL PROTECTED]]Sent: Wednesday, February 12, 2003
7:24 AMTo:
[EMAIL PROTECTED]Subject: win32::eventlog
windows 2000 security eventlog slow
H
Hi Everyone,
I am having a problem printing my report
within the script that's creating the report.
Here's my code:
if (eof ERROR_RPT) {
close (ERROR_RPT);
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->{'Visible'}
Hi, does anyone know
how to insert proper page breaks
using OLE?
I am trying to insert a perl created report into a microsoft
word document to get the proper page
breaks, and then print the report. Any thoughts?
Here's the code that I am running:
use Win32::OLE;
my $File = "\\filename";
my $
Hi,
does anyone know how to code, give me everything in the
suffixlist for type (or extension)?
($base,$path,$type) = fileparse($File::Find::name,@suffixlist);
Thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://l
Hello,
would anyone know why, if I run the
Win:32::EventLog against the system log on my local machine,
would display a negative event Id number?
Here's my code:
$handle=Win32::EventLog->new($Logfile, "$Machine")
or warn "Can't open System EventLog\n";
$handle->GetNumber($recs)
When you do \f where do you position in
the formatted section: by the format_top
or before the .
John
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 09, 2003 1:40 PM
To: 'John Deretich'; '[
Hi ,
does any one know how to insert a page break when
formatting a report? Using the select operator to
change the number of lines per page isn't very accurate.
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://li
Where do I put $-=0 at in the
formatted area?
John :)
-Original Message-
From: Lanteigne, Bob P. [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 09, 2003 1:42 PM
To: 'John Deretich'; '[EMAIL PROTECTED]'
Subject: RE: Perl page breaks
One of the first questions I
Hi,
does anyone know if win32::shortcuts can view the properties
of the shortcuts on a user's workstation?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hello,
does anybody no how to find out using perl,
when was the last time a workstation was logged
on to a domain. I am trying to get a figure of
45 to 90 days, since the last login?
thanks,
John
___
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To u
Hi ,
is any one familiar with using a last statement
when exiting a subroutine?
Here's the code that I am working with:
use strict;
my $logdrive=undef; #Establishing
variable;
my $logdrive1=undef; #Establishing
variab
Hi,
is anyone familiar with passing
environment variables through subroutines?
I am noticing that when I create a test env variable,
my subroutine won't locate it, but if I use one that is already out there,
that it accesses it?
please advise,
John
___
76 matches
Mail list logo
