Re: Accessing Microsoft Message Queue using Win32 Perl

2005-09-28 Thread $Bill Luebkert
Peter Debus wrote:
> After some searching I can't find a reference for accessing a Microsoft 
> Message Queue (MSMQ) using Win32 Perl. Is it possible to read data from 
> a MSMQ using Perl ? If so what modules would be used to achieve this ?

If there are API calls, you could probably manage it using Win32::API.

-- 
  ,-/-  __  _  _ $Bill LuebkertMailto:[EMAIL PROTECTED]
 (_/   /  )// //   DBE CollectiblesMailto:[EMAIL PROTECTED]
  / ) /--<  o // //  Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Accessing Microsoft Message Queue using Win32 Perl

2005-09-28 Thread Peter Debus
After some searching I can't find a reference for accessing a Microsoft 
Message Queue (MSMQ) using Win32 Perl. Is it possible to read data from 
a MSMQ using Perl ? If so what modules would be used to achieve this ?


Thanks

-Peter

-
Peter Debus
Email: [EMAIL PROTECTED]
-


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Win32::PerfMon install problems

2005-09-28 Thread Sisyphus

- Original Message - 
From: "Giuoco, Aaron"

>
> And reading the messages, I'm pretty sure that my problem was that I
didn't have MS VC++ installed.  I had just downloaded nmake hoping it would
be a quick fix.
>

Yes - 'nmake' will work fine for installing pure perl modules, but for
modules that require compilation (such as Win32::PerfMon), you need a
compiler as well.

Cheers,
Rob

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Wnn32::Procecc question

2005-09-28 Thread Sisyphus

- Original Message - 
From: <[EMAIL PROTECTED]>
To: 
Sent: Wednesday, September 28, 2005 5:00 PM
Subject: Wnn32::Procecc question


> Hi All!
> I Have 2 perl scripts
> first script calls Win32::Process::Create
> and exits
> in second script I want to kill
> process  created in first script
> But how I can pass $procobj to second
> script to kill it like  <$procobj->Kill($exi)>
> Or how can I in first script get $pid of process from $procobj?

my $pid =  $procobj->GetProcessID();

Then pass that value on to second script via @ARGV, and kill the process by
calling Win32::Process::KillProcess($pid, $exitcode).

Cheers,
Rob

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


(no subject)

2005-09-28 Thread Mark Sutfin








___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Email Attachments

2005-09-28 Thread Alejandro Santillan Iturres



I was trying to get an email attachment 
downloaded into a file unsuccessfully.
I used the following simple script:
 
 
use Mail::POP3Client;use 
MIME::Parser
 
#email part
$pop = new Mail::POP3Client( 
USER => 
"aba", 
PASSWORD => 
"aba", 
HOST => "200.45.71.180" );
$msg=1;$body=$pop->Body($msg);$pop->Close();
 
#parsing part
$parser = new MIME::Parser;$entity = 
$parser->parse_data($body);
 
The aba account is working fine, and it has a unique email with an 
Excel file attached.
The script works well up to creating a file into the working 
directory, but is completely different to the original attached file.
Moreover, the name of the downloaded file has nothing to do with the 
original one.
As far as I know the body is well retrieved, but the parsing is not doing 
its job.
Any idea about how to get the right email attach downloaded?
 
Thank you all,
 
Alejandro
 
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Help: Query All Network Drives - Available or Not

2005-09-28 Thread Giuoco, Aaron



 Win32::DriveInfo might be of some use.  Get all of the drive 
letters with DrivesInUse().  I guess testing can be done with a 
DriveSpace() slice.  If it's successful, the drive is 
accessible.
 
AG
 

  -Original Message-From: Michael Cohen 
  [mailto:[EMAIL PROTECTED]Sent: Wednesday, September 28, 2005 1:18 
  PMTo: perl-win32-users@listserv.ActiveState.comSubject: 
  Help: Query All Network Drives - Available or Not
  I have a problem trying to query all network drives that are currently used 
  by my machine. If I perform a simple "net use" command, I get the following 
  response:New connections will be 
  remembered.Status       Local     
  Remote                   
   Network---Unavailable 
   L:       
   \\rtpgsa.raleigh.ibm.com\rtpgsa        
                        
                     Microsoft 
  Windows NetworkUnavailable  M:       
   \\rtpgsa.raleigh.ibm.com\homes        
                        
                     Microsoft 
  Windows NetworkUnavailable  P:       
   \\MICOHEN3-AFS\projects   Microsoft Windows 
  NetworkUnavailable  R:       
   \\MICOHEN3-AFS\root       Microsoft Windows 
  NetworkUnavailable  T:       
   \\MICOHEN3-AFS\nt         Microsoft Windows 
  NetworkUnavailable  U:       
   \\MICOHEN3-AFS\user       Microsoft Windows 
  NetworkUnavailable  V:       
   \\MICOHEN3-AFS\vlib       Microsoft Windows 
  NetworkDisconnected X:        \\squeaker\f$ 
              Microsoft Windows 
  NetworkDisconnected Y:        \\squeaker\c$ 
              Microsoft Windows 
  NetworkOK           Z:     
     \\micohen2.raleigh.ibm.com\g$      
                        
                      
   Microsoft Windows NetworkThe command completed 
  successfully.However, if I use either the 
  Win32::AdminMisc::GetDrives or Win32::FileOp::Mapped commands to query the 
  network drives, I only get responses indicating the two drives, "X" and "Y", 
  which in "net use" are "disconnected", and "Z", which is "OK".How do I 
  get a list of ALL network drives, "Available", "Unavailable", and 
  "Disconnected", without actually using the "net use" command?Thank you 
  for your assistance!Regards,Michael 
Cohen
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Help: Query All Network Drives - Available or Not

2005-09-28 Thread Michael Cohen

I have a problem trying to query all network drives that are currently used by my machine.  If I perform a simple "net use" command, I get the following response:

New connections will be remembered.

Status       Local     Remote                    Network
---
Unavailable  L:        \\rtpgsa.raleigh.ibm.com\rtpgsa
                                                 Microsoft Windows Network
Unavailable  M:        \\rtpgsa.raleigh.ibm.com\homes
                                                 Microsoft Windows Network
Unavailable  P:        \\MICOHEN3-AFS\projects   Microsoft Windows Network
Unavailable  R:        \\MICOHEN3-AFS\root       Microsoft Windows Network
Unavailable  T:        \\MICOHEN3-AFS\nt         Microsoft Windows Network
Unavailable  U:        \\MICOHEN3-AFS\user       Microsoft Windows Network
Unavailable  V:        \\MICOHEN3-AFS\vlib       Microsoft Windows Network
Disconnected X:        \\squeaker\f$             Microsoft Windows Network
Disconnected Y:        \\squeaker\c$             Microsoft Windows Network
OK           Z:        \\micohen2.raleigh.ibm.com\g$
                                                 Microsoft Windows Network
The command completed successfully.


However, if I use either the Win32::AdminMisc::GetDrives or Win32::FileOp::Mapped commands to query the network drives, I only get responses indicating the two drives, "X" and "Y", which in "net use" are "disconnected", and "Z", which is "OK".

How do I get a list of ALL network drives, "Available", "Unavailable", and "Disconnected", without actually using the "net use" command?

Thank you for your assistance!

Regards,
Michael Cohen
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Win32::PerfMon install problems

2005-09-28 Thread Giuoco, Aaron
Sweet!  It worked.  Thanks for the solution.

And reading the messages, I'm pretty sure that my problem was that I didn't 
have MS VC++ installed.  I had just downloaded nmake hoping it would be a quick 
fix.

AG


> -Original Message-
> From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, September 28, 2005 9:25 AM
> To: Giuoco, Aaron
> Cc: perl-win32-users@listserv.ActiveState.com
> Subject: Re: Win32::PerfMon install problems
> 
> 
> Giuoco, Aaron wrote:
> > Hi Everybody!
> > 
> > I wasn't able to find the Win32::PerfMon module through 
> ppm, so I am attempting (unsuccessfully) to install it from 
> the CPAN tarball.  I am using NMake 1.5 from Microsoft.  
> Creating the makefile went fine.  But when I execute the 
> second command as instructed in the README as follows:
> > 
> > nmake -f Makefile all
> > 
> > I get the error:
> > 
> ...
> > 
> > 
> > Does anyone have an idea why this error occurs or how to 
> fix it?  Thanks.
> 
> As a general rule, you want to avoid CPAN modules that need 
> compilation
> since PPM is so much easier on Windoze unless of course 
> you've compiled
> your Perl from the CPAN distro.
> 
> Try using PPM from Bribes:  http://www.bribes.org/perl/ppm/
> 
> -- 
>   ,-/-  __  _  _ $Bill Luebkert
Mailto:[EMAIL PROTECTED]
 (_/   /  )// //   DBE CollectiblesMailto:[EMAIL PROTECTED]
  / ) /--<  o // //  Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Win32::PerfMon install problems

2005-09-28 Thread $Bill Luebkert
Giuoco, Aaron wrote:
> Hi Everybody!
> 
> I wasn't able to find the Win32::PerfMon module through ppm, so I am 
> attempting (unsuccessfully) to install it from the CPAN tarball.  I am using 
> NMake 1.5 from Microsoft.  Creating the makefile went fine.  But when I 
> execute the second command as instructed in the README as follows:
> 
> nmake -f Makefile all
> 
> I get the error:
> 
...
> 
> 
> Does anyone have an idea why this error occurs or how to fix it?  Thanks.

As a general rule, you want to avoid CPAN modules that need compilation
since PPM is so much easier on Windoze unless of course you've compiled
your Perl from the CPAN distro.

Try using PPM from Bribes:  http://www.bribes.org/perl/ppm/

-- 
  ,-/-  __  _  _ $Bill LuebkertMailto:[EMAIL PROTECTED]
 (_/   /  )// //   DBE CollectiblesMailto:[EMAIL PROTECTED]
  / ) /--<  o // //  Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Win32::PerfMon install problems

2005-09-28 Thread Richard A. Wells

cl(.exe) is the command-line compiler, and your cmd.exe can't find it.

Usually cl.exe and nmake.exe are in the same directory, so it is 
surprising that cmd.exe can find one but not the other.  When you 
install Visual C++/Studio you have an option of having it modify your 
system path to include the bin directory for command-line execution.  If 
you did not choose this you can run vcvars32.bat, a batch procedure 
which C++ will have installed somewhere, that will adjust the current 
process's environment.


Cheers,
Richard

Giuoco, Aaron wrote:


Hi Everybody!

I wasn't able to find the Win32::PerfMon module through ppm, so I am attempting 
(unsuccessfully) to install it from the CPAN tarball.  I am using NMake 1.5 
from Microsoft.  Creating the makefile went fine.  But when I execute the 
second command as instructed in the README as follows:

nmake -f Makefile all

I get the error:



Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

   cl -c-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_ST
RICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SY
S -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1-DVERSION=\"0.07\"
-DXS_VERSION=\"0.07\"  "-IC:\Perl\lib\CORE"   PerfMon.c
'cl' is not recognized as an internal or external command,
operable program or batch file.
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
Stop.



Does anyone have an idea why this error occurs or how to fix it?  Thanks.

___
Aaron Giuoco
Assistant Systems Admin
Atlantia Offshore Limited
e: [EMAIL PROTECTED]
ph: 281-899-4385

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

 




--
*** Richard A. Wells, [EMAIL PROTECTED], +1.978.371.7425
*** Reality And Wonder, http://www.raw.com/


___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Win32::PerfMon install problems

2005-09-28 Thread Giuoco, Aaron
Hi Everybody!

I wasn't able to find the Win32::PerfMon module through ppm, so I am attempting 
(unsuccessfully) to install it from the CPAN tarball.  I am using NMake 1.5 
from Microsoft.  Creating the makefile went fine.  But when I execute the 
second command as instructed in the README as follows:

nmake -f Makefile all

I get the error:



Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

cl -c-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_ST
RICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SY
S -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1-DVERSION=\"0.07\"
 -DXS_VERSION=\"0.07\"  "-IC:\Perl\lib\CORE"   PerfMon.c
'cl' is not recognized as an internal or external command,
operable program or batch file.
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
Stop.



Does anyone have an idea why this error occurs or how to fix it?  Thanks.

___
Aaron Giuoco
Assistant Systems Admin
Atlantia Offshore Limited
e: [EMAIL PROTECTED]
ph: 281-899-4385

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: perldoc question

2005-09-28 Thread Reinhard Pagitsch






[EMAIL PROTECTED] wrote:

  [EMAIL PROTECTED] wrote:

  
  
Hi All!
I Have 2 perl scripts
first script calls Win32::Process::Create
and exits
in second script I want to kill
process  created in first script
But how I can pass $procobj to second
script to kill it like  <$procobj->Kill($exi)>
Or how can I in first script get $pid of process from $procobj?

 


  
  Hi,
One option is to start the process in the _background_, than you do not have to have a second script to kill the process.
Win32::Process::Create($ProcessObj,
   $archiveprog,
   $paramstring,
   1,
   NORMAL_PRIORITY_CLASS,
   $workdir) || die;

and with
$ProcessObj->GetProcessID();
you get the PID of the process.
Now you can handle the PID in this script and don't need a second one.

Reinhard
===
thanks ! But 
just curious:
can yu tell me where to find
GetProcessID() in the docs ? 
I Looked in Process.pm and didn't
found $ProcessObj->GetProcessID() method there
  

In Version 0.09 of the Win32::Process I can find:
=item $ProcessObj->GetProcessID()

Returns the Process ID.
in the Process.pm file. Did you tryed to search for ProcessID only?  But I think you have 
also look in the Process.xs file to see which functions are available for use. Be aware 
that this module is a part of the libwin32 package. I have here libwin32-0.24, do not 
know if there is a newer version.

Reinhard



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


perldoc question

2005-09-28 Thread assistent
[EMAIL PROTECTED] wrote:

> Hi All!
> I Have 2 perl scripts
> first script calls Win32::Process::Create
> and exits
> in second script I want to kill
> process  created in first script
> But how I can pass $procobj to second
> script to kill it like  <$procobj->Kill($exi)>
> Or how can I in first script get $pid of process from $procobj?
>
>  
>
Hi,
One option is to start the process in the _background_, than you do not have to 
have a second script to kill the process.
Win32::Process::Create($ProcessObj,
   $archiveprog,
   $paramstring,
   1,
   NORMAL_PRIORITY_CLASS,
   $workdir) || die;

and with
$ProcessObj->GetProcessID();
you get the PID of the process.
Now you can handle the PID in this script and don't need a second one.

Reinhard
===
thanks ! But 
just curious:
can yu tell me where to find
GetProcessID() in the docs ? 
I Looked in Process.pm and didn't
found $ProcessObj->GetProcessID() method there



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Wnn32::Procecc question

2005-09-28 Thread Reinhard Pagitsch

[EMAIL PROTECTED] wrote:


Hi All!
I Have 2 perl scripts
first script calls Win32::Process::Create
and exits
in second script I want to kill
process  created in first script
But how I can pass $procobj to second
script to kill it like  <$procobj->Kill($exi)>
Or how can I in first script get $pid of process from $procobj?

 


Hi,
One option is to start the process in the _background_, than you do not 
have to have a second script to kill the process.

Win32::Process::Create($ProcessObj,
   $archiveprog,
   $paramstring,
   1,
   NORMAL_PRIORITY_CLASS,
   $workdir) || die;

and with
$ProcessObj->GetProcessID();
you get the PID of the process.
Now you can handle the PID in this script and don't need a second one.

Reinhard
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Wnn32::Procecc question

2005-09-28 Thread assistent
Hi All!
I Have 2 perl scripts
first script calls Win32::Process::Create
and exits
in second script I want to kill
process  created in first script
But how I can pass $procobj to second
script to kill it like  <$procobj->Kill($exi)>
Or how can I in first script get $pid of process from $procobj?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs