FYI,
I prefer the Paul's method because no need of WinNT: object to be
installed.
Yves
-Message d'origine-
De: Ky-Anh Phan [mailto:[EMAIL PROTECTED]]
Date: jeudi 5 juillet 2001 19:35
À: 'Shea, Linchi'; [EMAIL PROTECTED]
Objet: RE: Enumerating NT domains
This works for me
work with
@result=`dir remotepc\\d\$\\*.*`;
print @result;
-Message d'origine-
De: Sibi John [mailto:[EMAIL PROTECTED]]
Date: mardi 30 octobre 2001 15:50
À: 'Dutrieux Yves'
Cc: Perl (E-mail)
Objet: RE: Win Module
One of the problems i have
Comment should be specified with Quotes.
Try without comment if it's okay ?
Yves
-Message d'origine-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Date: jeudi 10 janvier 2002 20:29
À: [EMAIL PROTECTED]
Objet: RE: Win32::NetAdmin::LocalGroupCreate
Okay, now I just
Don't know if you want add your workstation from NT or Linux.
so, here is linux approach :
http://samba.linuxbe.org/en/samba/config/pdc-1.html
Yves
-Message d'origine-
De: Alexander Apprich [mailto:[EMAIL PROTECTED]]
Date: vendredi 8 février 2002 14:08
À: Mike Brentlinger
Cc: [EMAIL
Your $objMail was probably undefined when you use Win32::OLE-
Do you have tested with WIN32::OLE ? (case sentivity...)
is this code work on another machine ?
Yves
-Message d'origine-
De: Samantha [mailto:[EMAIL PROTECTED]]
Date: vendredi 15 février 2002 20:03
À: [EMAIL PROTECTED]
Work better if :
@files = ('abc.txt', 'demo.log');
and
Message = This is a test.\nFile List:\n\. @files .\n
if @files is not interpreted, try to create a variable $mess (for example)
before to assign it to Message = $mess
Yves
-Original Message-
From: Cary Hung [mailto:[EMAIL
Oops ...
and may be $arr=$pop-get($msgnum,FILE);
Yves
-Original Message-
From: Dutrieux Yves [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, July 24, 2002 3:55 PM
To: 'Arthur Araoz'
Cc: '[EMAIL PROTECTED]'
Subject: RE: :pop3
Try with this change :
open(FILE,'mail.dat');
I suppose
This little script will help you ;-)
Yves
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 25, 2002 8:18 AM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Perl - Mailing Related doubt [ Mail Merge ]
Dear friends,
I would
I agree.
And if you w9x machine are connected to a WIN nt server, you can make change
to registry through a KIXTART script started at netlogon share folder.
Yves
-Original Message-
From: LaPole, Chris [mailto:CLLapole;mvh.org]
Sent: Friday, October 18, 2002 3:42 PM
To: '[EMAIL
You have a missed $c\$ I think.
Yves.
-Original Message-
From: [EMAIL PROTECTED] [mailto:extern.Lars.Oeschey;audi.de]
Sent: Tuesday, October 22, 2002 10:21 AM
To: [EMAIL PROTECTED]
Subject: test file existence
could this work?
if (-e ($machine\\c$\\WINNT\\system32\\smscpl32.cpl))
sorry \\c\$ ...
-Original Message-
From: Dutrieux Yves [mailto:YDU;cph.be]
Sent: Tuesday, October 22, 2002 10:28 AM
To: '[EMAIL PROTECTED]'
Cc: [EMAIL PROTECTED]
Subject: RE: test file existence
You have a missed $c\$ I think.
Yves.
-Original Message-
From: [EMAIL PROTECTED
I have set a setcdrom.reg file with this content and it work for me in NT4 ,
also, make sure that this change is stored for the default user :
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\DISK]
\\Device\\CdRom0=X file://\\Device\\CdRom0 :
Yves
-Original Message-
From: GuessWho344
the code below work for me with :
perl version 5.6.1 Build 633
lanman 1.0.9.2
Yves.
==
use Win32::Lanman;
Win32::Lanman::NetGetDCName(, $domain, \$pdc);
print pdc is $pdc\n;
$userdomain =~ tr/a-z/A-Z/;
$group_counter = 0;
$user_counter = 0;
@group_array = (mydomain\\Domain
Sorry, I have note write this
its \ \Device\ \CdRom0=X:
Remove space between \ ... because my outlook make some changes when I use
\\
Yves.
-Original Message-
From: Dutrieux Yves [mailto:YDU;cph.be]
Sent: Monday, November 04, 2002 9:36 AM
To: 'GuessWho344'
Cc: [EMAIL PROTECTED
Through psexec (from sysinternals.com) you can make your ipconfig on a
remote machine :-)
Yves
-Original Message-
From: Eric Hennessey [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, November 19, 2002 3:14 PM
To: [EMAIL PROTECTED]
Subject: Enumerating MAC addresses on remote machines
Hi
perhaps invert the process,
your perl fill a table/server or anything else.
and the client would regularly check your table/server or anything else. so
the process is on client...
Yves.
-Original Message-
From: Teifke Sascha ZFF FW-EI [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 09,
Why not use 'snort' to do this job ?
Yves
-Original Message-
From: Robert-Jan Mora [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 16, 2002 9:59 PM
To: [EMAIL PROTECTED]
Subject: port scan detector
Hello,
I would like to make a tcp and udp port scan detector in perl for win32. Has
you should be look at AT service.
Change the user that start the service to your username and try.
If it work, that's the user's privilege specified on AT service.
Yves.
-Original Message-
From: Glenn Meyer [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 06, 2003 9:19 AM
To: [EMAIL
With PPM :
set repository RothConsultinghttp://www.roth.net/perl/packages
http://www.roth.net/perl/packages
set save
install Win32::AdminMisc
install Win23::EventLog
the first line indicate to PPM to search on Dave's Website,
the second save your setting (for future install ;-) )
now
Thanks to Nguyen code ;-)
#!/usr/local/bin/perl
#require (sys/socket.ph);
use Socket;
#
# //
# // Perl Port Scan
# // Author: Thu Nguyen
# //
# ///
#dump it out right away
$|=1;
#
Apimon.exe from NT Resource Kit ?
Yves
-Original Message-
From: Rangan, Govindaraj [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 12, 2003 3:39 PM
To: '[EMAIL PROTECTED]';
[EMAIL PROTECTED]
Subject: RE: watching API calls
Something like truss on Unix? I was also looking for one such
From an old message in this list :
===
Cruickshanks, Darin [mailto:[EMAIL PROTECTED] wrote:
Does anyone know of a way to make changes to the registry (in particular
HKCU)
take effect immediately using Perl? For instance if you change the mouse
speed by
I suspect you have some special character un your line or some extra spaces.
So to delete the special characters, you must know the character (display it
in hexa)
if it is some extra spaces ,
s/\s\s+/\s/g before your print will replace two spaces or more with only
one.
Yves
-Original
I think you don't include \\ inyour hostname.
Try with only Web1,data1,
let me know if it's ok.
Yves
-Original Message-
From: pineau [mailto:[EMAIL PROTECTED]
Sent: Monday, August 18, 2003 2:33 PM
To: [EMAIL PROTECTED]
Subject: win32::eventlog
Hi all.
Here is a script that
Instead of
if (($hashRef-{TimeGenerated} = $time - 86400)
($hashRef-{EventType} eq EVENTLOG_ERROR_TYPE || $hashRef-{EventType} eq
EVENTLOG_WARNING_TYPE))
try to use :
if (($hashRef-{TimeGenerated} = $time - 86400)
($hashRef-{EventType}
Hi,
I think there is a program called netdom and shutdown in the w2k reskit
that will do the job.
Based on this logon script (for example) :
logon,
if temporary file doesn't exist
use netdom to change the domain,
create temporary file on the disk,
(perhaps fix the
Look at GFI Languard network security scanner
But not really a perl question isn't-it ?
Yves
-Message d'origine-
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] la part de
Hon Shi
Date: mardi 13 janvier 2004 13:50
À: [EMAIL PROTECTED];
[EMAIL PROTECTED]
Objet: network inventory, how do
Ok not see this on outlook who underline the wole line :-)
Perhaps this :
http://www.jsiinc.com/SUBN/tip6600/rh6613.htm
Yves
-Message d'origine-
De : Arun Budhwani [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 12 février 2004 17:23
À : Dutrieux Yves
Cc : [EMAIL PROTECTED]
Objet : Re: RE
:[EMAIL PROTECTED]
Envoyé : jeudi 12 février 2004 17:38
À : Dutrieux Yves
Cc : [EMAIL PROTECTED]
Objet : Re: RE : RE : Copying a file from a remote server
Yeah thanks, I saw that article and chnaged my I.P to
static, still does not work. I might be barking up the
wrong tree using Win32
What king of client ? NT W2k , XP ?
If Xp , perhaps through 'Netsh'... But not used this command for now.
Yves
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de [EMAIL PROTECTED]
Envoyé : jeudi 25 mars 2004 10:02
À : [EMAIL PROTECTED]
Objet : changing
With a DOS batch,
You can rename your downloaded file in SDATfile.exe for example.
And then in your batch file, copy the file if more recent with xcopy /D.
Analyse return code of Xcopy command to execute
If file copied, then execute it.
Another way :
Fix a batch file with a Environment
I Think with this script and argument like : http://devicename/cgi-bin/getimage.cgi?filename=
test.bmp
that's it , no ?
Yves.
require
LWP::UserAgent;require HTTP::Request;use open IN = ":crlf", OUT
= ":raw";
$webtotest = shift
ARGV;$stringtosearch = shift ARGV;
$ua =
Title: Message
Try to read the log in binary mode.
open LOG, ":raw","$logfile" or die $!
;
Yves
De:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] De la part de
Conor LillisEnvoyé: mardi 20 juillet 2004
13:46À: Perl-Win32-Admin (E-mail)Objet: Ignore
rogue EOF
Hi,
I havge a script qwhich
Look belowregistry key
HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\
to find the correct folder where Firefox is installed (and
the plugins too)
Andlist all the file in the plugin, directory to know
what plugins are installed.
Yves
De:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] De la part de
When you take a dir tran*.zip, you get some annoying lines in the head of
response (volume, label, ...).
To avoid this, use dir tran*.zip /b instead ;)
Yves
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de Liza Das
Envoyé : lundi 24 janvier 2005 22:10
À
Same code works for me with this version
:
ppm query AdminMiscQuerying target 1 (ActivePerl
5.8.2.808) 1. Win32-AdminMisc [0.2000.07.08] The Win32::AdminMisc
extension for Win32 X86ppm
Yves
De:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] De la part de
Christopher RosenEnvoyé: mardi 7
Hi,
Hummm...
Do you know that exchange can do this for you ? Right-click on Mailbox Store -
Limits :-)
Yves.
-Message d'origine-
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de Steven Manross
Envoyé : mercredi 30 mai 2007 2:57
À :
37 matches
Mail list logo