$HKLM is a Registry2 definition as defined by Jenda's Patch/Enhancement of
Win32::Registry.
http://jenda.mccann.cz/perl/Registry2-0.00.26.zip
Steven
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 02, 2001 10:53 AM
To: [EMAIL PROTECTED]
I've been woking this issue on and off for a while now having issues
connecting to an Exchange server's LDAP interface and creating mailboxes.
The current problem is that I manage 3 exchange servers in different
locations of our WAN, and the script, once connected to one server to do
maintenance
There's a Win32::TaskScheduler project on SourceForge. Though it hasn't
been fully released yet and is a 1.0.0 release, it is very functional and
allows most all the options to be set.
I'd like to thank Umberto Nicoletti for all his work for this project.
Here's a link to the sourceforge
in the archives
( http://aspn.activestate.com/ASPN/Mail/Message/215825 ) and modified for
my environment.
Thanks to Steven Manross, I got past my first hurdle (i did not know my
exchange ou value). (actually, i think the code i found in the archive
is by him as well)
So, now the code creates a mailbox
If you strictly use NT systems the following code will enum all the mac
addresses on the system (dual-nic aware)
use Win32::Lanman;
if (!Win32::Lanman::NetServerTransportEnum(server, \@info)) {
print Sorry, something went wrong; error: ;
# get the error code
print
Hi,
I've put together a wrapper to all the OLE calls involved in Mailbox
creation (and a few other functions) and packaged them up as Win32-Exchange,
and I wanted to know what you think.
This is purely perl and has no back-end DLLs (except what Win32-OLE uses)...
I would love to hear any
Win32-Lanman can do this.
Check out CPAN:
Look at grabbing 1.0.9.2
http://www.cpan.org/modules/by-authors/id/J/JH/JHELBERG/
Steven
-Original Message-
From: Brian Gibson [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 21, 2002 9:10 AM
To: [EMAIL PROTECTED]
Subject: best way to
::Lanman from PPM I cannot download it.
On 21/08/2002 17:15:45 Steven Manross wrote:
Win32-Lanman can do this.
You didn't seem to rad his post to the end...
Brian, in the meantime, try this:
#!perl -wl
use strict;
my @sessions = `net session`;
foreach
Hi,
I've put together a wrapper to all the OLE calls involved in Mailbox
creation (and a few other functions) and packaged them up as
Win32-Exchange, and I wanted to know what you think.
This is purely perl and has no back-end DLLs (except what Win32-OLE
uses)...
I would love to hear any
I always use utime after the file copy (to change the last modified time to
what the source file modify time was)..
And then Win32::Perms to find and set the perms and owner.
Steven
-Original Message-
From: Michael D. Schleif [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 18,
It's not available using the WinNT provider.. The WinNT provider just has
attributes that were commonly available via Lan Manager (and some more, but
not telephone or e-mail).
You must use the LDAP Provider.. And for that you must know the exact
location of the user or use ADODB to find the
Can't you just turn your for loop into a hash reference instead of an array
ref as such?
%eventlogs = (Application = 'appevent.evt',
System = 'system.evt', #not sure of filenames
Security= 'security.evt' #not sure of filenames
);
for my $eventLog
The best way to start troubleshooting this is to put a SetInfo after each
PutEx and an error check of..
If (Win32::OLE-LastError != 0) {
print objuser (or whatever): .Win32::OLE-LastError();
}
After each SetInfo.
As well, I think a simple Put (instead of PutEx) will work.
Steven
values as needed...
#
$NewUser-SetInfo; #Commit change
/snip from URL
Steven
-Original Message-
From: henry isham [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 14, 2003 3:36 PM
To: Steven Manross; [EMAIL PROTECTED];
[EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: Adding
I found this code on MS' site after looking on and off for about 6 months...
The only problem is that after converting it to Perl, it outputs garbage,
and I don't know how to read it..
ipsec = ? Ç4 Ç ÇD Ç? L ? ? ? ? ? L Ç
?e-^?hn]
I'm guessing that it's packed and
town (or email) unexpectedly).
:)
Steven
-Original Message-
From: Ulf Lowig [mailto:[EMAIL PROTECTED]
Sent: Friday, June 06, 2003 5:03 AM
To: [EMAIL PROTECTED]
Cc: Steven Manross
Subject: RE: Win32::OLE
Thanks for pointing me to Win32::TaskScheduler.
I have made some testing
That's not an implemented function at this time, but I could work
offline with you to create one..
It should be relatively easy to create.
Sadly, I don't have an Exchange 5.5 server to test on anymore.
Mail me offline, and we can talk.
Steven
-Original Message-
From: Molumuri,
Win32::Exchange is a 5.5 and 2000 (and possibly soon to be 2003)
mailbox/Exchange Admin module. (It was made by translating VB to
perl..)
Exchange 5.5 development is in a lot slower pace than it used to be
because I don't have an E55 server to test much stuff on anymore. (I do
have friends that
As said before Win32::InternetExplorer::Window can do this..
It's currently limited in functionality beyond navigating to a site and
then navigating to a new site, maybe pressing the IE back button, and
some other stuff, but it will get you familiar with some of the OLE
Methods that Internet
I'm guessing here, but if you are using Win32::OLE to call your ADO
routines, you might get a human-readable date/time by loading the
Win32::OLE::Variant module, which makes variant conversions for you.
Hope this helps.
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
The easiest way to look at the available attributes (unless you are
looking for this information programatically), is to use an AD/LDAP
viewer like ADSVW (from the ADSI SDK on Microsoft's site).
http://www.microsoft.com/ntworkstation/downloads/Other/ADSI25.asp
Change the drop-down box to the
I think you're trying too hard...
Once the message hits someone's mailbox and it's hand identified as
spam, the user can move it to some folder somewhere, say a Public Folder
(or even a folder in the user's mailbox and keep the headers in tact).
From there it's trivial to log in and check the
[mailto:[EMAIL PROTECTED]
Sent: Friday, January 09, 2004 2:46 PM
To: Steven Manross; Perl-Win32-Users (E-mail)
Subject: RE: Using Win32::OLE and Outlook to *resend* a message
H you may be right. Although I would automate the procedure
that you mention (i.e., I would automate the saving
PM
To: Steven Manross; Perl-Win32-Users (E-mail)
Subject: RE: Using Win32::OLE and Outlook to *resend* a message
Steven, thanks for the code example. However, I do see the same problem
with your code that I'm experiencing. If the spam you received is in
HTML format (as many
{
print No Fields\n;
return 0;
}
}
Steven
-Original Message-
From: Tony White [mailto:[EMAIL PROTECTED]
Sent: Monday, January 12, 2004 9:40 AM
To: Steven Manross; Perl-Win32-Users (E-mail)
Subject: RE: Using Win32::OLE and Outlook to *resend* a message
Steven, I just found a problem
Problem 1 really 2:
$string=My name is Asim Siddiqui.;
while($i=length($string)) {
$Alphabat = substr($string,$i,1);
print $Alphabat.\n;
$i++;
}
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Asim Siddiqui
Sent: Wednesday, February 25, 2004 11:00
That works (with the for loop instead of the while)...
@vars = (coyote,fish,Wile E. Coyote);
$var = coyote;
#foreach (FILE) {
foreach (@vars) {
if ($_ =~ /$var/i) {
print $_ . matches\n;
};
}
Outputs:
coyote matches
Wile E. Coyote matches
R U sure it's not the while loop.. I've
Not sure why, but I got that same error with your code, until I ran
Umberto's trigger.pl example from the download file on sourceforge.
And now your code works.
:( :)
Odd, but... Hey, it works!
Steven
Modified it slightly to see where things were failing... The two errors
were in
:29 AM
To: Steven Manross; [EMAIL PROTECTED]
Subject: RE: Win32 OLE modification of component identity
No go unfortunately.. I get the following error:
Found component Win32::OLE=HASH(0x1f91e70)
Check1
retrying default method at C:/Perl/site/lib/Win32/OLE/Lite.pm line 156.
Check2
after modifying
::OLE::Variant;
At the top for good measure.
Not 100% sure this will work, but seems like the way to go after looking
at the object model.
Steven
-Original Message-
From: Miguel Laborde [mailto:[EMAIL PROTECTED]
Sent: Monday, May 03, 2004 11:29 AM
To: Steven Manross; [EMAIL PROTECTED
to be set.
You've reached the end of my rope. I don't know where to go from here.
Sorry.
Steven
-Original Message-
From: Miguel Laborde [mailto:[EMAIL PROTECTED]
Sent: Monday, May 03, 2004 12:52 PM
To: Steven Manross; [EMAIL PROTECTED]
Subject: RE: Win32 OLE modification of component
The embedded HTML example might be a little off -- not sure when I last
updated it. But now see that I should be updating it a little more
often.
Instead, please use the exchange_example.pl located in the
perl\site\lib\win32 directory.
Sorry for any confusion.
Steven
-Original
As always, THANK YOU (for correcting my mistakes)!
I knew it was just a syntactical error. I, just, didn't know the right
syntax to throw it.
:)
Steven
-Original Message-
From: Jan Dubois [mailto:[EMAIL PROTECTED]
Sent: Monday, May 03, 2004 1:51 PM
To: Steven Manross; 'Miguel Laborde
might need to uninstall/reinstall the tools.
The module needs the CDO.Person COM object for Exchange 2000/2003
mailbox manipulation.
Steven
-Original Message-
From: Chris Purcell [mailto:[EMAIL PROTECTED]
Sent: Monday, May 03, 2004 2:08 PM
To: Steven Manross
Cc: [EMAIL PROTECTED]
Subject
Load the Exchange Admin tools on the system that the script is running
on.
Steven
-Original Message-
From: Chris Purcell [mailto:[EMAIL PROTECTED]
Sent: Monday, May 03, 2004 1:57 PM
To: Steven Manross
Cc: [EMAIL PROTECTED]
Subject: RE: Win32::Exchange module
Ok, I used the example
.
Steven
-Original Message-
From: Chris Purcell [mailto:[EMAIL PROTECTED]
Sent: Friday, May 07, 2004 6:40 AM
To: Steven Manross
Cc: [EMAIL PROTECTED]
Subject: RE: conflict between Win32::Exchange and Net::SSH::W32Perl
I'm running ActiveState Perl 5.8.2 and Win::Exchange 0042. I tried
-
From: Chris Purcell [mailto:[EMAIL PROTECTED]
Sent: Friday, May 07, 2004 1:17 PM
To: [EMAIL PROTECTED]
Cc: Steven Manross
Subject: RE: conflict between Win32::Exchange and Net::SSH::W32Perl
[RESOLVED]
That fixed it. That and downgrading to ActivePerl 5.6, which isn't a
big deal anyway
Can anyone seem to think of a less memory intensive way of doing this
(besides chopping the file up into smaller chunks -- which is my next
step unless I receive a better option?
The txt file is 335MB.
The column and row delimiter can change, but needs to be an odd
mutli-char delimiter due to
--- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 01, 2004 11:21 AM
To: Steven Manross; [EMAIL PROTECTED]
Subject: RE: parsing large file for character usage
[EMAIL PROTECTED] wrote:
Can anyone seem to think of a less memory intensive way of doing this
(besides
Why yes... yes, I can... But depending on what you are trying to
query, this module may just be the starter code for you... As this
really doesn't look at the mail items in the mailbox, but the mailbox
itself, it's owner, the people that have perms to it, and so on.
Win32::Exchange
available
And if that's all you are looking for, Win32::TaskScheduler should be of
great help...
It's available on sourceforge if you can't find it anywhere else.
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Aaron.Tesch
Sent: Wednesday, June 23, 2004
If your listing is like mine, you have multiple listings for DBI (the
base module) because there are different versions of the module.
1.42 seems to be the latest, but I seem to remember that there were
issues with the PPM for it on Activestate's site a couple weeks ago (but
maybe those kinks got
If you can route the mail through the Exchange server's SMTP interface,
then I am guessing you can use most of the modules you are used to..
Otherwise you are looking at writing a MAPI or Outlook script which is
something new for you to learn, but by no means incredibly difficult
(since there are
The following code is erroring out..
I want it to use the constants for the most recent version of the
ActiveX Library that is installed on a client...
Anyone think they can help?
The top portion of the code was graciously stolen from the OLE browser
with slight modifications, and my thanks.
I would guess that $flist would need the same escaping on the \ that the
first part of your UNC path has or change to ''..
HTH
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Adam R. Frielink
Sent: Wednesday, October 13, 2004 12:00 PM
To: Perl
my $ldap = Win32::OLE-GetObject( $spec);
subR($ldap);
sub subR {
my ($ad) = $_[0];
my $className = $ad-{'Class'};
}
Should work as long as the Class property is valid...
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Hon Shi
Sent:
I'm guessing here, but I think you are looking at the difference
between:
--- FileVersion
- and -
--- ProductVersion.
HTH
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Ben Conrad
Sent: Wednesday, September 29, 2004 11:18 AM
To:
VBScript isn't a problem unless there's a debugging error popping up, or
an ActiveX control that wants to download, that you need to click yes
on.
And, you would have to mark that ActiveX control as trusted for download
beforehand.
And to answer the original question, the problem with the
For some sample code, you can look at:
http://aspn.activestate.com/ASPN/docs/ActivePerl-5.6/Windows/ActiveServe
rPages.html
Be advised that there are issues with
$Response-Redirect('http://;); in certain versions of 5.6 (build
638 should work well) and all versions of 5.8.
For your mysql,
I initially was having issues with the same thing, but through some
digging, found GOOGLED articles that suggest this as a fix... I never
thought to use a VARCHAR though.
$sth-bind_param(3, '2004-05-05',{TYPE = SQL_DATETIME});
I'm not 100% sure about the syntax differences from just sending the
Works for 2k3 here...
Sounds like something's screwy on the 2k3 server. Did you check the
event log on the 2k3 server?
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
jason
Sent: Tuesday, November 16, 2004 9:46 AM
To: [EMAIL PROTECTED]
Subject:
I'll go one further, and I was looking at this earlier today and
couldn't get anything to EnumAllObjects or GetActiveObjects (not knowing
this thread was here) and tried to get an active instance of IE in quite
the same way without any luck.
I do remember being able to do this 6 months to a year
There are a few bugs posted in BugZilla re this problem with 5.8 and
earlier versions of 5.6 (concerning Redirect and the dreaded 'ASP 0240'
problem).
None of these bugs are verified for perl 5.8.
My suggestion to you is to stay on build 638, and not go any higher or
lower.
P.S. This is
Scraping HTML pages is relatively easy.. Figuring out someone's HTML
format on the other hand is relatively difficult (in my opinion). :)
The InternetExplorer.Application COM object has everything you need to
pull out the compartmentalized text in any tag (or attributes of a tag).
HTMLBODYA
I use events with IE automation.
use Win32::OLE qw(EVENTS)
Then check the Win32::OLE docs or the archive lists to see how to use
them.
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Kevin Carothers
Sent: Tuesday, February 22, 2005 4:21 PM
To:
And with that said, use the Win32::GuiTest module to send the keystrokes
to the windows machine for otherwise unprogrammable tasks...
Search for SendKeys on the activestate archive list for more info if
you need it. It's pretty much like typing keystrokes.
:)
Steven
-Original Message-
You're likely running into issues with NTLM authentication on the other
box..
You'll have to check what user account IIS is running as (for anonymous
access) to the web server.
If it's a local account, You'll need to either:
--Create an account on the box you are mapping that exactly matches
Isn't that the easy part? (knowing the scriptname)?
print scriptname = .$0.\n;
C:\perl\scriptsperl thisscript.pl
scriptname = thisscript.pl
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Chris Wagner
Sent: Saturday, May 28, 2005 3:23 PM
To:
Well, the registry is a good place to start... (HKCR)
It has all the ProgIDs that are installed on your system...
Then, the OLE-Browser would help you find out what methods are available
to you with that particular ProgID.
Steven
-Original Message-
From: [EMAIL PROTECTED]
What type of column is nodeName? char or varchar?
And also just make sure there's no spaces after the end of the server
name in the DB...
Select ''+nodename+'' from smarts_nodes
In something like query analyzer if you haven't already.
Steven
-Original Message-
From: [EMAIL PROTECTED]
IE-Tools-Internet Options-Settings-Change the radio box to Every
visit to the page
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Jerry Kassebaum
Sent: Friday, June 10, 2005 8:38 AM
To: perl-win32-users@listserv.ActiveState.com
Subject: Prevent
Sorry for the late reply.. I kind of forgot about Activestate for a
month.. :(
I have absolutely no problems with IE.Application scripts... I'd be
available for personal requests for help if necessary. I create a lot
of IE scripts.
I'd probably suggest that you take your Navigate method down
Hmmm.. I think this is a permissions delegation issue.. Is the IIS
Server trusted for delegation?
This is of course a security risk... But so is opening IE.. :)
Steven
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Zeltov Alex
Sent: Tuesday,
Try this...
$cmCmd-Properties('Output stream')-{'Value'} = $sResponseStream;
I can't test it but I think that's the correct invocation.
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Luke Bakken
Sent: Monday, October 10, 2005 2:25 PM
To:
Start using Win32::Daemon to have what looks like a service (your
script) act like a service and shut down gracefully when asked to do so.
http://www.roth.net/perl/Daemon/
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Ted Zeng
Sent: Monday,
Your prepare cannot be a multi-statement operation... And should be like
so..
if (!($sth1 = $dbh-prepare('exec spsomeproc_or_sqlstatement ?,?,?')))
{
print Failed preparing sql call\n.$dbh-errstr.\n;
return 0;
}
Or in your example...
$MinsUsedInRangeQuery1
=
Shouldn't your
Win32::OLE-Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
Be after the use Win32::OLE qw (.);
As well, threading probably doesn't work all that well considering the
single-threaded apartment model required for Outlook connections in
Perl. But maybe someone can correct me if
Well, you certainly have created quite a rant here.
But if you are looking for unique filenames, have you tried this?
use Time::HiRes qw (time);
printf(%0.6f\.txt,time);
Just a thought.
It's also guaranteed no dupes for about 20 years, unless you want lots
of file names in a VERY VERY short
It depends on the threading model of the COM object.. Perl OLE is not
multithreading capable yet (and probably won't be any time soon (But,
leave it to Jan to prove me wrong). But yes, in general, Perl can call
COM components (like Outlook, Excel, Word, ChartDirector and others)
with Win32::OLE.
If everything is saved correctly inside a dir called c:\perl\scripts,
the following subs return the same info.. But based on different
argument positions...
I'd say you have a code issue. Try comparing your code to the attached
code. As well, when trying to help you debug your code, it
Checking LastError is usually the best course of action.
If you are looking for just the number (like VB's Err.Number) here's a
few ways of doing it.
use Win32::OLE;
$this = Win32::OLE-new(This.That);
if (Win32::OLE-LastError != 0) {
printf (hex = 0x%x\n, Win32::OLE-LastError());
print dec
Use an ADSI editor like the IIS 6 Metabase Explorer, ADSVW or others..
The metabase is stored here:
IIS://SERVERNAME
From there you can do all sorts of cool stuff...
I use it to do some SOX auditing of IIS settings..
Realtime access and every possible setting is exposed via this
interface.
Replace :
die Oops, cannot start Outlook;
with
open (FILE,c:\\outlookerror.txt);
print FILE Oops, cannot start Outlook\n.Win32::OLE-LastError();
close (FILE);
die Oops, cannot start Outlook;
It will help refine what error the script is throwing (and refine the
possible solutions to the
You can get around this popup box in Outlook XP with this fix
Actually it's a security setting that says that x user is allowed to run
programatically.. You'll need Exchange Admin rights to install it in a
Public Folder. So, this may or may not help you.
It's actually a security risk to enable
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Nigel Cannings
Sent: Thursday, February 02, 2006 8:16 AM
To: perl-win32-users@listserv.ActiveState.com
Subject: Redemption
I am trying to access the Redemption MAPIUtils NewMail event
using
the Outlook's own
sent mail event to see this, and then identify the message
Can't work out what I am supposed to be giving MAPIUtils as
an object, though
Thoughts gratefully received.
Nigel
-Original Message-
From: Steven Manross [mailto:[EMAIL PROTECTED]
Sent: 02
I was seeing the same behavior, but hadn't looked to see where it was
coming from.
Yes, I am getting old mail that I participated in -- for about 2 or 3
hours now.
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Chris Wagner
Sent:
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Chris Wagner
Sent: Sunday, March 12, 2006 8:40 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: list dead?
I haven't gotten any list traffic for several days and I
don't see the recent
:)
Steven
my $colItems = $objWMIService-ExecQuery(SELECT * FROM Win32_Service,
WQL,
wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems) {
print Name: . $objItem-{Name};
print DisplayName: . $objItem-{DisplayName};
}
Has anyone seen an issue where sleep 1; causes an infinite loop in
perl (100% CPU usage -- no movement in the script)? Build 816 in case
it matters.. It just started happenning today in a script I wrote a
very long time ago and haven't modified in a while. Similarly, running
perl from the
@myArray = (aacs1110, brbt4332, rtxa4320, aacs2000, brig5621,
brbt5220, nbvc);
foreach $data (@myArray) {
$data =~ /()()/;
if ($hash{$1} $2) {
$hash{$1} = $2;
}
}
foreach $key (keys %hash) {
print $key . = .$hash{$key}.\n;
}
Seems to work...
Steven
-Original
-Original Message-
From: Jan Dubois [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 05, 2006 2:24 PM
To: Steven Manross; perl-win32-users@listserv.ActiveState.com
Subject: RE: sleep oddness
On Wed, 05 Apr 2006, Steven Manross wrote:
Has anyone seen an issue where sleep 1
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
$Win32::OLE::Warn = 3; # Die on Errors.
my $Excel = Win32::OLE-new('Excel.Application', 'Quit');
$Excel-{DisplayAlerts}=0;
$Excel-{Visible}=1; #It's always good
That info is not readily available from WMI as there's no SQL Server
class that I am aware of that holds that data.
However, I believe data you are looking for is in the registry and in
SQL tables, that could be gathered remotely using WMI's stdRegProv or
ADODB.Commands or from SQL-DMO
Yes.. Event Sinks can be created in Perl... It uses PerlScript.
I have one that I use to call SpamAssassin.
Enclose your script in SCRIPT tags like below, then name your sink with
a VBS extension, register it, and watch it run (you can't really see
it.. There's no console output).
SCRIPT
It sounds like you want to get all incoming (and maybe outgoing mails)
to carbon copy another recipient.. (Yes, this script tags all
--incoming-- and --outgoing-- messages from the SMTP server. If you
want to only tag incoming mails, use the code I included for the
cdoClientIPAddress to wrap
Exchange Event Sinks wouldn't run simultaneously, it's a FIFO method
(unless you write lov-level C-Code), so this doesn't ever come into
play.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of angelos
Sent: Friday, December 01, 2006 6:21 AM
To:
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of Suresh Govindachar
Sent: Thursday, December 14, 2006 9:57 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Replacing WWW::Mechanize with Win32::OLE via IE
Hello,
I found two
I no longer use DBI for my database queries so I can't help you there..
If that's the way you want to go, you might consider using DBI::ODBC
instead (I never had any problems there) and check it's documentation
for syntaxes.
However, this code has always worked for me on a Win32 platform, while
I don't think Dave Roth is maintaining that module anymore.
However, www.roth.net is his home (well... on the web). Try his PPM
site. I will not guarantee that he has an updated version (I haven't
looked lately, and I highly doubt it).
PPM http://www.roth.net/perl/packages/
-Original
C:\Perl\Scriptsperl -e @s = Win32::GetOSVersion; print \$s[-1] $s[1]
$s[2]\
On a X86 2K3 system, I get
3 5 2
And on a X86 W2K Server,
3 5 0
Steven
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Sisyphus
Sent: Wednesday, May 23, 2007 9:39 AM
To:
The following code has the benefit of using NT credentials of the
currently logged in user. But, the currently logged in user needs to
have access in Exchange. :)
No passwords in clear text to glean from your scripts That's
usually a good thing. :)
$OLECon =
You didn't specify what you wanted to filter for, so the following
filter will get all objects and when they were created.. Providing they
have a whenCreated property populated.
Here's the oly line you should need to modify:
query_ldap(LDAP://OU=someou,dc=somedomain,dc=com;(whenCreated=*);adsp
I'm not sure about DBD::ADO, but this code works..
I'm pretty sure tis will look very similar to your VB code.
Steven
--
use Win32::OLE qw (in);# base functionality
use Win32::OLE::Variant;
The WMI class you'd probably want to talk to is
Win32_NetworkAdapterConfiguration
Change this line:
our $drives = $wmi-ExecQuery(Select * from Win32_LogicalDisk);
To read:
our $drives = $wmi-ExecQuery(Select * from
Win32_NetworkAdapterConfiguration where IPEnabled = 1);
And then use this
I don't think Win32::OLE is strict safe.
take out the.
use strict;
I tested it here on my systems, and it returned what I think you are
looking for (software titles that were installed on the remote system.
Steven
From: [EMAIL PROTECTED]
: Jan Dubois [mailto:[EMAIL PROTECTED]
Sent: Tuesday, October 30, 2007 2:33 PM
To: Steven Manross; 'StoneBeat';
perl-win32-users@listserv.activestate.com
Subject: RE: WMI Problem
On Mon, 29 Oct 2007, Steven Manross wrote:
I don't think Win32::OLE is strict safe.
What makes you think
Along those same lines, since I am entering in the VB and Perl
divisions, does anyone want to join in making an Activestate Perl Users
Group.
Part of the registration to the scripting games is the User Group you
are trying to show support in/for.
It's as easy as emailing off
Name
Country
Any chance you could try this instead...
VARIANT(VT_ARRAY|VT_BSTR, Payload)
Since it looks like you want an Array string, not an Array of unsigned
integers...
[id(3)] HRESULT SetDataBits([in] long Bitlength, [in] SAFEARRAY(char)
*ppsa);
I could be wrong, but I'd play around with the Variant
WMI is a standard way that Microsoft is giving access to product data
like the OS Name. The URL below should help if you need any other data
like numbers for the oslevel as opposed to the name of it.. Of
particular interest might be the OperatingSystemSKU and
OSProductSuite.
One of my
1 - 100 of 108 matches
Mail list logo
