------Original Message------
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: November 22, 2000 7:29:35 PM GMT
Subject: Perl-Win32-Admin digest, Vol 1 #175 - 3 msgs
Send Perl-Win32-Admin mailing list submissions to
[EMAIL PROTECTED]
To subscribe or unsubscribe via the World Wide Web, visit
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-Admin digest..."
Today's Topics:
1. AdminMisc ([EMAIL PROTECTED])
2. RE: Workstations Only ([EMAIL PROTECTED])
3. RE: Workstations Only ([EMAIL PROTECTED])
--__--__--
Message: 1
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Wed, 22 Nov 2000 08:47:12 +0000
Subject: AdminMisc
Has anybody experienced problems with the ExitWindows($Flag) function?
Environment:
Compaq ENSS 866 (Shuts down, logs off and restarts fine as manually)
NT 4
SP 6a
Perl V5.6.0 Build 620
What happens?
ExitWindows(EWX_LOGOFF) - Does nothing
ExitWindows(EWX_POWEROFF) - Restarts
ExitWindows(EWX_REBOOT) - Restarts
ExitWindows(EWX_SHUTDOWN) - Restarts
Any help greatly appreciated.
Regards
Daryll
The information in this e-mail and any attachments is confidential and may be
legally privileged. It is intended solely for the addressee or addressees. If
you are not an intended recipient, please delete the message and any attachments
and notify the sender of misdelivery: any use or disclosure of the contents of
either is unauthorised and may be unlawful. All liability for viruses is
excluded to the fullest extent permitted by law. Any views expressed in this
message are those of the individual sender, except where the sender states them,
with requisite authority, to be those of a specific LAZARD company or
partnership.
--__--__--
Message: 2
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: RE: Workstations Only
Date: Wed, 22 Nov 2000 11:16:10 -0800
Try using NETDOM utility..This can be used to take all the workstations from the
domain in a text file.
Cheeers!
Vinod
Is there a way to get a list of all NT workstations including those inactive
in the domain? I want to get a list that is matching what is showing in the
Server Manager. The perl script that I use similar to the one that posted
can only give me those currently active.
--Gary Wong
-----Original Message-----
From: Bellenger, Bruno (Paris) [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, November 14, 2000 4:33 AM
To: '[EMAIL PROTECTED]'
Cc: 'Raghuram P'
Subject: RE: Workstations Only
To list all workstations in the given domains using NetAdmin :
(see the attached .TXT file in the mailer messes up the code)
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
#List all workstations in the given domains using NetAdmin
use Win32::NetAdmin;
foreach $domain (@ARGV) {
print "\nDOMAIN:\t$domain\n";
unless (Win32::NetAdmin::GetDomainController("", $domain, $pdc)) {
print "Unable to obtain the PDC name for $domain."; next;
}
unless (Win32::NetAdmin::GetServers($pdc, $domain, 0x00000001,
\@workstations)) {
print "Unable to get the PDC name.\n";
}
foreach $workstation (@workstations) {
print " WS:\t$workstation\n";
}
}
@servers = (@workstations, @servers2, @servers3);
print " TOTAL:\t", $#workstations + 1,"\n" if (@workstations);
$grandtotal += $#workstations + 1 if (($#domains) && (@workstations));
print "\nGRAND TOTAL: $grandtotal\n" if $grandtotal;
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
Or you can use the Lanman module too.
(see the attached .TXT file too in the mailer messes up the code)
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
# NetServerEnum($server, $domain, $type, \@info)
# Lists all servers of the type SV_TYPE_NT that are visible
# in the domain testdomain. The command will be executed on \\\\$server.
# For more on server types see
# http://www.outbreaksw.com/Code/Network/NetServerEnum.html
# SV_TYPE_WORKSTATION All workstations
# SV_TYPE_SERVER All servers
# SV_TYPE_SQLSERVER Any server running with Microsoft SQL Server
# SV_TYPE_DOMAIN_CTRL Primary domain controller
# SV_TYPE_DOMAIN_BAKCTRL Backup domain controller
# SV_TYPE_TIME_SOURCE Server running the Timesource service
# SV_TYPE_AFP Apple File Protocol servers
# SV_TYPE_NOVELL Novell servers
# SV_TYPE_DOMAIN_MEMBER LAN Manager 2.x domain member
# SV_TYPE_LOCAL_LIST_ONLY Servers maintained by the browser. See the
following Remarks section.
# SV_TYPE_PRINT Server sharing print queue
# SV_TYPE_DIALIN Server running dial-in service
# SV_TYPE_XENIX_SERVER Xenix server
# SV_TYPE_MFPN Microsoft File and Print for Netware
# SV_TYPE_NT Windows NT/Windows 2000 workstation or
server
# SV_TYPE_WFW Server running Windows for Workgroups
# SV_TYPE_SERVER_NT Windows NT/Windows 2000 server that is not a
domain controller
# SV_TYPE_POTENTIAL_BROWSER Server that can run the browser service
# SV_TYPE_BACKUP_BROWSER Server running a browser service as backup
# SV_TYPE_MASTER_BROWSER Server running the master browser service
# SV_TYPE_DOMAIN_MASTER Server running the domain master browser
# SV_TYPE_DOMAIN_ENUM Primary domain
# SV_TYPE_WINDOWS Windows 95 or later
# SV_TYPE_ALL All servers
# SV_TYPE_TERMINALSERVER Terminal Server
# SV_TYPE_CLUSTER_NT Server clusters available in the domain
#=================================================
# SPECIFY THE TARGET DOMAIN AS FIRST ARGUMENT.
#=================================================
use Win32::Lanman;
$domain = "$ARGV[0]" ;
# Get PDCs
print "\n\n\n PRIMARY DOMAIN CONTROLLERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_DOMAIN_CTRL, \my @PDC)
or die $^E;
foreach (@PDC) {
print " $_->{name} -> $_->{comment}\n";
}
# Get BDCs
print "\n\n\n DOMAIN BACKUP CONTROLLERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_DOMAIN_BAKCTRL, \my
@BDC) or die $^E;
foreach (@BDC) {
print " $_->{name} -> $_->{comment}\n";
}
# Get Member Servers
print "\n\n\n DOMAIN MEMBER SERVERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_SERVER_NT, \my @Servers)
or die $^E;
foreach (@Servers) {
print " $_->{name} -> $_->{comment}\n";
}
# Take a look at the $ref->{type} field returned, to see what values are
attributed to Terminal Servers, SMS, etc.
#print "------------------------------------------\n" x 3 ;
# Get list of servers running SQL server :
print "\n\n\n SERVERS RUNNING SQL SERVERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_SQLSERVER, \my
@SQLservers) or die $^E;
foreach (@SQLservers) {
print " $_->{name} -> $_->{comment}\n";
}
print "------------------------------------------\n" x 5 ;
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
<<Win32_Lanman_NetServerEnum2.txt>>
<<LIST_WORKSTATIONS_IN_DOMAIN.txt>>
_____________________________________________
Bruno Bellenger
Sr. Network/Systems Administrator
-----Original Message-----
From: Raghuram P [SMTP:[EMAIL PROTECTED]]
Sent: Tuesday, November 14, 2000 11:21
To: '[EMAIL PROTECTED]'
Subject: Workstations Only
Hello All
I am trying to list all the Windows NT Workstations only for a given
domain
by using the following line
Win32::NetAdmin::GetServers(' ',$domain,$machtype,\@List1)
where
$domain = "Somedomain"
$machtype = SV_TYPE_WORKSTATION,
but the output list also contains all the Win NT Server Names in the
domain.
1) Am I doing something wrong , is there another way for listing
only
windows nt workstations.?
2) Is it possible to find the Number of Hard Disks/CD Rom /DVD Rom
and there
identifiers( for ex ST39236 Seagate 9 GB) on a remote pc ?
Thanks In Advance
Raghu
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
--__--__--
Message: 3
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Wed, 22 Nov 2000 14:23:53 -0500
Subject: RE: Workstations Only
--0__=2nXweQ6NLnbBSufcMmyitxdZCcPutwTBiu8DqREt5tFIRQUCs1iGZ57U
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline
Try using:
Win32::AdminMisc::GetMachines($PDC, UF_WORKSTATION_TRUST_ACCOUNT, \@List, "")
This returns a list of all workstation accounts on the PDC. You will need to
delete the trailing $ from each element in the list.
Eric Buller
[EMAIL PROTECTED] on 11/22/2000 02:16:10 PM
To: [EMAIL PROTECTED]
cc: (bcc: Eric Buller/Lrcc)
Subject: RE: Workstations Only
Is there a way to get a list of all NT workstations including those inactive
in the domain? I want to get a list that is matching what is showing in the
Server Manager. The perl script that I use similar to the one that posted
can only give me those currently active.
--Gary Wong
-----Original Message-----
From: Bellenger, Bruno (Paris) [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, November 14, 2000 4:33 AM
To: '[EMAIL PROTECTED]'
Cc: 'Raghuram P'
Subject: RE: Workstations Only
To list all workstations in the given domains using NetAdmin :
(see the attached .TXT file in the mailer messes up the code)
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
#List all workstations in the given domains using NetAdmin
use Win32::NetAdmin;
foreach $domain (@ARGV) {
print "\nDOMAIN:\t$domain\n";
unless (Win32::NetAdmin::GetDomainController("", $domain, $pdc)) {
print "Unable to obtain the PDC name for $domain."; next;
}
unless (Win32::NetAdmin::GetServers($pdc, $domain, 0x00000001,
\@workstations)) {
print "Unable to get the PDC name.\n";
}
foreach $workstation (@workstations) {
print " WS:\t$workstation\n";
}
}
@servers = (@workstations, @servers2, @servers3);
print " TOTAL:\t", $#workstations + 1,"\n" if (@workstations);
$grandtotal += $#workstations + 1 if (($#domains) && (@workstations));
print "\nGRAND TOTAL: $grandtotal\n" if $grandtotal;
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
Or you can use the Lanman module too.
(see the attached .TXT file too in the mailer messes up the code)
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
# NetServerEnum($server, $domain, $type, \@info)
# Lists all servers of the type SV_TYPE_NT that are visible
# in the domain testdomain. The command will be executed on \\\\$server.
# For more on server types see
# http://www.outbreaksw.com/Code/Network/NetServerEnum.html
# SV_TYPE_WORKSTATION All workstations
# SV_TYPE_SERVER All servers
# SV_TYPE_SQLSERVER Any server running with Microsoft SQL Server
# SV_TYPE_DOMAIN_CTRL Primary domain controller
# SV_TYPE_DOMAIN_BAKCTRL Backup domain controller
# SV_TYPE_TIME_SOURCE Server running the Timesource service
# SV_TYPE_AFP Apple File Protocol servers
# SV_TYPE_NOVELL Novell servers
# SV_TYPE_DOMAIN_MEMBER LAN Manager 2.x domain member
# SV_TYPE_LOCAL_LIST_ONLY Servers maintained by the browser. See the
following Remarks section.
# SV_TYPE_PRINT Server sharing print queue
# SV_TYPE_DIALIN Server running dial-in service
# SV_TYPE_XENIX_SERVER Xenix server
# SV_TYPE_MFPN Microsoft File and Print for Netware
# SV_TYPE_NT Windows NT/Windows 2000 workstation or
server
# SV_TYPE_WFW Server running Windows for Workgroups
# SV_TYPE_SERVER_NT Windows NT/Windows 2000 server that is not a
domain controller
# SV_TYPE_POTENTIAL_BROWSER Server that can run the browser service
# SV_TYPE_BACKUP_BROWSER Server running a browser service as backup
# SV_TYPE_MASTER_BROWSER Server running the master browser service
# SV_TYPE_DOMAIN_MASTER Server running the domain master browser
# SV_TYPE_DOMAIN_ENUM Primary domain
# SV_TYPE_WINDOWS Windows 95 or later
# SV_TYPE_ALL All servers
# SV_TYPE_TERMINALSERVER Terminal Server
# SV_TYPE_CLUSTER_NT Server clusters available in the domain
#=================================================
# SPECIFY THE TARGET DOMAIN AS FIRST ARGUMENT.
#=================================================
use Win32::Lanman;
$domain = "$ARGV[0]" ;
# Get PDCs
print "\n\n\n PRIMARY DOMAIN CONTROLLERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_DOMAIN_CTRL, \my @PDC)
or die $^E;
foreach (@PDC) {
print " $_->{name} -> $_->{comment}\n";
}
# Get BDCs
print "\n\n\n DOMAIN BACKUP CONTROLLERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_DOMAIN_BAKCTRL, \my
@BDC) or die $^E;
foreach (@BDC) {
print " $_->{name} -> $_->{comment}\n";
}
# Get Member Servers
print "\n\n\n DOMAIN MEMBER SERVERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_SERVER_NT, \my @Servers)
or die $^E;
foreach (@Servers) {
print " $_->{name} -> $_->{comment}\n";
}
# Take a look at the $ref->{type} field returned, to see what values are
attributed to Terminal Servers, SMS, etc.
#print "------------------------------------------\n" x 3 ;
# Get list of servers running SQL server :
print "\n\n\n SERVERS RUNNING SQL SERVERS : \n" ;
print "------------------------------------------\n" ;
Win32::Lanman::NetServerEnum('', "$domain", SV_TYPE_SQLSERVER, \my
@SQLservers) or die $^E;
foreach (@SQLservers) {
print " $_->{name} -> $_->{comment}\n";
}
print "------------------------------------------\n" x 5 ;
#///////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
<<Win32_Lanman_NetServerEnum2.txt>>
<<LIST_WORKSTATIONS_IN_DOMAIN.txt>>
_____________________________________________
Bruno Bellenger
Sr. Network/Systems Administrator
-----Original Message-----
From: Raghuram P [SMTP:[EMAIL PROTECTED]]
Sent: Tuesday, November 14, 2000 11:21
To: '[EMAIL PROTECTED]'
Subject: Workstations Only
Hello All
I am trying to list all the Windows NT Workstations only for a given
domain
by using the following line
Win32::NetAdmin::GetServers(' ',$domain,$machtype,\@List1)
where
$domain = "Somedomain"
$machtype = SV_TYPE_WORKSTATION,
but the output list also contains all the Win NT Server Names in the
domain.
1) Am I doing something wrong , is there another way for listing
only
windows nt workstations.?
2) Is it possible to find the Number of Hard Disks/CD Rom /DVD Rom
and there
identifiers( for ex ST39236 Seagate 9 GB) on a remote pc ?
Thanks In Advance
Raghu
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
--0__=2nXweQ6NLnbBSufcMmyitxdZCcPutwTBiu8DqREt5tFIRQUCs1iGZ57U
Content-type: application/octet-stream;
name="att1.eml"
Content-Disposition: attachment; filename="att1.eml"
Content-transfer-encoding: base64
UmVjZWl2ZWQ6IGZyb20gdGl0YW4ubGhzYy5vbi5jYSAoWzE0Mi4xNTguMi4yMF0pIGJ5IG1haWwu
bHJjYy5vbi5jYSAoTG90dXMgU01UUCBNVEEgdjQuNi43ICAoOTM0LjEgMTItMzAtMTk5OSkpIHdp
dGggU01UUCBpZCA4NTI1Njk5Ri4wMDY5QkI1QjsgV2VkLCAyMiBOb3YgMjAwMCAxNDoxNDo1MiAt
MDUwMA0KUmVjZWl2ZWQ6IGZyb20gbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29tIChndy5hY3RpdmVz
dGF0ZS5jb20gWzIwOS4xNy4xODMuMjQ5XSkNCglieSB0aXRhbi5saHNjLm9uLmNhICg4LjkuMytT
dW4vOC45LjMpIHdpdGggU01UUCBpZCBPQUExNTkzMw0KCWZvciA8RXJpYy5CdWxsZXJAbHJjYy5v
bi5jYT47IFdlZCwgMjIgTm92IDIwMDAgMTQ6MTc6MDEgLTA1MDAgKEVTVCkNClJlY2VpdmVkOiAo
cW1haWwgOTQ5MSBpbnZva2VkIGJ5IHVpZCA1MDYpOyAyMiBOb3YgMjAwMCAxOToxNzowMCAtMDAw
MA0KUmVjZWl2ZWQ6IGZyb20gbG9jYWxob3N0IChIRUxPIHNob3QuQWN0aXZlU3RhdGUuY29tKSAo
MTI3LjAuMC4xKQ0KICBieSBsb2NhbGhvc3Qgd2l0aCBTTVRQOyAyMiBOb3YgMjAwMCAxOToxNzow
MCAtMDAwMA0KRGVsaXZlcmVkLVRvOiBwZXJsLXdpbjMyLWFkbWluQGxpc3RzZXJ2MS5BY3RpdmVT
dGF0ZS5jb20NClJlY2VpdmVkOiAocW1haWwgOTQ3MSBpbnZva2VkIGJ5IHVpZCA1MDYpOyAyMiBO
b3YgMjAwMCAxOToxNjoxOCAtMDAwMA0KUmVjZWl2ZWQ6IGZyb20gczA0MzZmLm9kb3Quc3RhdGUu
b3IudXMgKEhFTE8gPzE2Ny4xMzEuMTQuOT8pICgxNjcuMTMxLjE0LjkpDQogIGJ5IGxpc3RzZXJ2
MS5hY3RpdmVzdGF0ZS5jb20gd2l0aCBTTVRQOyAyMiBOb3YgMjAwMCAxOToxNjoxOCAtMDAwMA0K
UmVjZWl2ZWQ6IGZyb20gRVhTQUxFTTEgYnkgWzE2Ny4xMzEuMTQuOV0NCiAgICAgICAgICB2aWEg
c210cGQgKGZvciBsaXN0c2VydjEuQWN0aXZlU3RhdGUuY29tIFsxOTkuNjAuNDguNDJdKSB3aXRo
IFNNVFA7IDIyIE5vdiAyMDAwIDE5OjE2OjE4IFVUDQpSZWNlaXZlZDogYnkgZXhzYWxlbTEuaXNi
Lm9kb3Quc3RhdGUub3IudXMgd2l0aCBJbnRlcm5ldCBNYWlsIFNlcnZpY2UgKDUuNS4yNjUwLjIx
KQ0KCWlkIDxYTDRIQUhEWD47IFdlZCwgMjIgTm92IDIwMDAgMTE6MTY6MTYgLTA4MDANCk1lc3Nh
Z2UtSUQ6IDw3NkEwMDBBODIyODlENDExOTUyRjAwMTA4M0Y5REQwNjBFNjA5Q0BFWFNBTEVNNC5o
aWdod2F5Lm9kb3Quc3RhdGUub3IudXM+DQpGcm9tOiBHYXJ5LlcuV09OR0BvZG90LnN0YXRlLm9y
LnVzDQpUbzogcGVybC13aW4zMi1hZG1pbkBsaXN0c2VydjEuQWN0aXZlU3RhdGUuY29tDQpTdWJq
ZWN0OiBSRTogV29ya3N0YXRpb25zIE9ubHkNCk1JTUUtVmVyc2lvbjogMS4wDQpYLU1haWxlcjog
SW50ZXJuZXQgTWFpbCBTZXJ2aWNlICg1LjUuMjY1MC4yMSkNCkNvbnRlbnQtVHlwZTogdGV4dC9w
bGFpbjsNCgljaGFyc2V0PSJpc28tODg1OS0xIg0KU2VuZGVyOiBwZXJsLXdpbjMyLWFkbWluLWFk
bWluQGxpc3RzZXJ2MS5BY3RpdmVTdGF0ZS5jb20NCkVycm9ycy1UbzogcGVybC13aW4zMi1hZG1p
bi1hZG1pbkBsaXN0c2VydjEuQWN0aXZlU3RhdGUuY29tDQpYLUJlZW5UaGVyZTogcGVybC13aW4z
Mi1hZG1pbkBsaXN0c2Vydi5BY3RpdmVTdGF0ZS5jb20NClgtTWFpbG1hbi1WZXJzaW9uOiAyLjBy
YzINClByZWNlZGVuY2U6IGJ1bGsNCkxpc3QtSGVscDogPG1haWx0bzpwZXJsLXdpbjMyLWFkbWlu
LXJlcXVlc3RAbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29tP3N1YmplY3Q9aGVscD4NCkxpc3QtUG9z
dDogPG1haWx0bzpwZXJsLXdpbjMyLWFkbWluQGxpc3RzZXJ2LkFjdGl2ZVN0YXRlLmNvbT4NCkxp
c3QtU3Vic2NyaWJlOiA8aHR0cDovL2xpc3RzZXJ2LkFjdGl2ZVN0YXRlLmNvbS9tYWlsbWFuL2xp
c3RpbmZvL3Blcmwtd2luMzItYWRtaW4+LA0KCTxtYWlsdG86cGVybC13aW4zMi1hZG1pbi1yZXF1
ZXN0QGxpc3RzZXJ2LkFjdGl2ZVN0YXRlLmNvbT9zdWJqZWN0PXN1YnNjcmliZT4NCkxpc3QtSWQ6
IDxwZXJsLXdpbjMyLWFkbWluLmxpc3RzZXJ2LkFjdGl2ZVN0YXRlLmNvbT4NCkxpc3QtVW5zdWJz
Y3JpYmU6IDxodHRwOi8vbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29tL21haWxtYW4vbGlzdGluZm8v
cGVybC13aW4zMi1hZG1pbj4sDQoJPG1haWx0bzpwZXJsLXdpbjMyLWFkbWluLXJlcXVlc3RAbGlz
dHNlcnYuQWN0aXZlU3RhdGUuY29tP3N1YmplY3Q9dW5zdWJzY3JpYmU+DQpMaXN0LUFyY2hpdmU6
IDxodHRwOi8vbWFpbGFyY2hpdmUuYWN0aXZlc3RhdGUuY29tL2Jyb3dzZS9wZXJsLXdpbjMyLWFk
bWluLz4NCkRhdGU6IFdlZCwgMjIgTm92IDIwMDAgMTE6MTY6MTAgLTA4MDANCg0KSXMgdGhlcmUg
YSB3YXkgdG8gZ2V0IGEgbGlzdCBvZiBhbGwgTlQgd29ya3N0YXRpb25zIGluY2x1ZGluZyB0aG9z
ZSBpbmFjdGl2ZQ0KaW4gdGhlIGRvbWFpbj8gSSB3YW50IHRvIGdldCBhIGxpc3QgdGhhdCBpcyBt
YXRjaGluZyB3aGF0IGlzIHNob3dpbmcgaW4gdGhlDQpTZXJ2ZXIgTWFuYWdlci4gVGhlIHBlcmwg
c2NyaXB0IHRoYXQgSSB1c2Ugc2ltaWxhciB0byB0aGUgb25lIHRoYXQgcG9zdGVkDQpjYW4gb25s
eSBnaXZlIG1lIHRob3NlIGN1cnJlbnRseSBhY3RpdmUuDQoNCi0tR2FyeSBXb25nDQoNCi0tLS0t
T3JpZ2luYWwgTWVzc2FnZS0tLS0tDQpGcm9tOiBCZWxsZW5nZXIsIEJydW5vIChQYXJpcykgW21h
aWx0bzpCZWxsZUJydUBleGNoYW5nZS5mci5tbC5jb21dDQpTZW50OiBUdWVzZGF5LCBOb3ZlbWJl
ciAxNCwgMjAwMCA0OjMzIEFNDQpUbzogJ3Blcmwtd2luMzItYWRtaW5AbGlzdHNlcnYxLkFjdGl2
ZVN0YXRlLmNvbScNCkNjOiAnUmFnaHVyYW0gUCcNClN1YmplY3Q6IFJFOiBXb3Jrc3RhdGlvbnMg
T25seQ0KDQoNClRvIGxpc3QgYWxsIHdvcmtzdGF0aW9ucyBpbiB0aGUgZ2l2ZW4gZG9tYWlucyB1
c2luZyBOZXRBZG1pbiA6DQooc2VlIHRoZSBhdHRhY2hlZCAuVFhUIGZpbGUgaW4gdGhlIG1haWxl
ciBtZXNzZXMgdXAgdGhlIGNvZGUpDQoNCg0KIy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLw0KLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vDQoNCiNMaXN0
IGFsbCB3b3Jrc3RhdGlvbnMgaW4gdGhlIGdpdmVuIGRvbWFpbnMgdXNpbmcgTmV0QWRtaW4NCg0K
dXNlIFdpbjMyOjpOZXRBZG1pbjsgDQoNCmZvcmVhY2ggJGRvbWFpbiAoQEFSR1YpIHsNCglwcmlu
dCAiXG5ET01BSU46XHQkZG9tYWluXG4iOyANCgl1bmxlc3MgKFdpbjMyOjpOZXRBZG1pbjo6R2V0
RG9tYWluQ29udHJvbGxlcigiIiwgJGRvbWFpbiwgJHBkYykpIHsNCgkJcHJpbnQgIlVuYWJsZSB0
byBvYnRhaW4gdGhlIFBEQyBuYW1lIGZvciAkZG9tYWluLiI7IG5leHQ7DQoJCX0NCgl1bmxlc3Mg
KFdpbjMyOjpOZXRBZG1pbjo6R2V0U2VydmVycygkcGRjLCAkZG9tYWluLCAweDAwMDAwMDAxLA0K
XEB3b3Jrc3RhdGlvbnMpKSAgeyAgICANCgkJcHJpbnQgIlVuYWJsZSB0byBnZXQgdGhlIFBEQyBu
YW1lLlxuIjsNCiAgICAgCQl9DQogICAgIAlmb3JlYWNoICR3b3Jrc3RhdGlvbiAoQHdvcmtzdGF0
aW9ucykgew0KCQlwcmludCAiIFdTOlx0JHdvcmtzdGF0aW9uXG4iOw0KICAgICAJCX0NCiAgICAg
CQl9DQogICAgIA0KICAgICBAc2VydmVycyA9IChAd29ya3N0YXRpb25zLCBAc2VydmVyczIsIEBz
ZXJ2ZXJzMyk7DQogICAgIHByaW50ICIgVE9UQUw6XHQiLCAkI3dvcmtzdGF0aW9ucyArIDEsIlxu
IiBpZiAoQHdvcmtzdGF0aW9ucyk7DQogICAgICRncmFuZHRvdGFsICs9ICQjd29ya3N0YXRpb25z
ICsgMSBpZiAoKCQjZG9tYWlucykgJiYgKEB3b3Jrc3RhdGlvbnMpKTsNCg0KDQpwcmludCAiXG5H
UkFORCBUT1RBTDogJGdyYW5kdG90YWxcbiIgaWYgJGdyYW5kdG90YWw7DQoNCiMvLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8NCi8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8vLw0KDQoNCg0KDQoNCk9yIHlvdSBjYW4gdXNlIHRoZSBMYW5tYW4gbW9kdWxlIHRv
by4NCihzZWUgdGhlIGF0dGFjaGVkIC5UWFQgZmlsZSB0b28gaW4gdGhlIG1haWxlciBtZXNzZXMg
dXAgdGhlIGNvZGUpDQoNCg0KDQoNCiMvLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8NCi8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLw0KDQojIE5ldFNlcnZl
ckVudW0oJHNlcnZlciwgJGRvbWFpbiwgJHR5cGUsIFxAaW5mbykNCiMgTGlzdHMgYWxsIHNlcnZl
cnMgb2YgdGhlIHR5cGUgU1ZfVFlQRV9OVCB0aGF0IGFyZSB2aXNpYmxlIA0KIyBpbiB0aGUgZG9t
YWluIHRlc3Rkb21haW4uIFRoZSBjb21tYW5kIHdpbGwgYmUgZXhlY3V0ZWQgb24gXFxcXCRzZXJ2
ZXIuIA0KIyBGb3IgbW9yZSBvbiBzZXJ2ZXIgdHlwZXMgc2VlIA0KIyBodHRwOi8vd3d3Lm91dGJy
ZWFrc3cuY29tL0NvZGUvTmV0d29yay9OZXRTZXJ2ZXJFbnVtLmh0bWwNCiMgU1ZfVFlQRV9XT1JL
U1RBVElPTiBBbGwgd29ya3N0YXRpb25zIA0KIyBTVl9UWVBFX1NFUlZFUiBBbGwgc2VydmVycyAN
CiMgU1ZfVFlQRV9TUUxTRVJWRVIgCQlBbnkgc2VydmVyIHJ1bm5pbmcgd2l0aCBNaWNyb3NvZnQg
U1FMIFNlcnZlcg0KDQojIFNWX1RZUEVfRE9NQUlOX0NUUkwgCQlQcmltYXJ5IGRvbWFpbiBjb250
cm9sbGVyIA0KIyBTVl9UWVBFX0RPTUFJTl9CQUtDVFJMIAlCYWNrdXAgZG9tYWluIGNvbnRyb2xs
ZXIgDQojIFNWX1RZUEVfVElNRV9TT1VSQ0UgCQlTZXJ2ZXIgcnVubmluZyB0aGUgVGltZXNvdXJj
ZSBzZXJ2aWNlIA0KIyBTVl9UWVBFX0FGUCAJCQlBcHBsZSBGaWxlIFByb3RvY29sIHNlcnZlcnMg
DQojIFNWX1RZUEVfTk9WRUxMIAkJTm92ZWxsIHNlcnZlcnMgDQojIFNWX1RZUEVfRE9NQUlOX01F
TUJFUiAJTEFOIE1hbmFnZXIgMi54IGRvbWFpbiBtZW1iZXIgDQojIFNWX1RZUEVfTE9DQUxfTElT
VF9PTkxZIAlTZXJ2ZXJzIG1haW50YWluZWQgYnkgdGhlIGJyb3dzZXIuIFNlZSB0aGUNCmZvbGxv
d2luZyBSZW1hcmtzIHNlY3Rpb24uIA0KIyBTVl9UWVBFX1BSSU5UIAkJU2VydmVyIHNoYXJpbmcg
cHJpbnQgcXVldWUgDQojIFNWX1RZUEVfRElBTElOIAkJU2VydmVyIHJ1bm5pbmcgZGlhbC1pbiBz
ZXJ2aWNlIA0KIyBTVl9UWVBFX1hFTklYX1NFUlZFUiAJCVhlbml4IHNlcnZlciANCiMgU1ZfVFlQ
RV9NRlBOIAkJCU1pY3Jvc29mdCBGaWxlIGFuZCBQcmludCBmb3IgTmV0d2FyZSANCiMgU1ZfVFlQ
RV9OVCAJCQlXaW5kb3dzIE5UL1dpbmRvd3MgMjAwMCB3b3Jrc3RhdGlvbiBvcg0Kc2VydmVyIA0K
IyBTVl9UWVBFX1dGVyAJCQlTZXJ2ZXIgcnVubmluZyBXaW5kb3dzIGZvciBXb3JrZ3JvdXBzIA0K
IyBTVl9UWVBFX1NFUlZFUl9OVCAJCVdpbmRvd3MgTlQvV2luZG93cyAyMDAwIHNlcnZlciB0aGF0
IGlzIG5vdCBhDQpkb21haW4gY29udHJvbGxlciANCiMgU1ZfVFlQRV9QT1RFTlRJQUxfQlJPV1NF
UiAJU2VydmVyIHRoYXQgY2FuIHJ1biB0aGUgYnJvd3NlciBzZXJ2aWNlIA0KIyBTVl9UWVBFX0JB
Q0tVUF9CUk9XU0VSICAJU2VydmVyIHJ1bm5pbmcgYSBicm93c2VyIHNlcnZpY2UgYXMgYmFja3Vw
IA0KIyBTVl9UWVBFX01BU1RFUl9CUk9XU0VSIAlTZXJ2ZXIgcnVubmluZyB0aGUgbWFzdGVyIGJy
b3dzZXIgc2VydmljZSANCiMgU1ZfVFlQRV9ET01BSU5fTUFTVEVSIAlTZXJ2ZXIgcnVubmluZyB0
aGUgZG9tYWluIG1hc3RlciBicm93c2VyIA0KIyBTVl9UWVBFX0RPTUFJTl9FTlVNIAkJUHJpbWFy
eSBkb21haW4gIA0KIyBTVl9UWVBFX1dJTkRPV1MgCQlXaW5kb3dzIDk1IG9yIGxhdGVyIA0KIyBT
Vl9UWVBFX0FMTCAJCQlBbGwgc2VydmVycyANCiMgU1ZfVFlQRV9URVJNSU5BTFNFUlZFUiAJVGVy
bWluYWwgU2VydmVyIA0KIyBTVl9UWVBFX0NMVVNURVJfTlQgCQlTZXJ2ZXIgY2x1c3RlcnMgYXZh
aWxhYmxlIGluIHRoZSBkb21haW4gDQoNCg0KDQojPT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PQ0KIyBTUEVDSUZZIFRIRSBUQVJHRVQgRE9NQUlOIEFTIEZJ
UlNUIEFSR1VNRU5ULg0KIz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT0NCnVzZSBXaW4zMjo6TGFubWFuOw0KDQokZG9tYWluID0gIiRBUkdWWzBdIiA7DQoN
Cg0KIyBHZXQgUERDcw0KcHJpbnQgIlxuXG5cbiBQUklNQVJZIERPTUFJTiBDT05UUk9MTEVSUyA6
IFxuIiA7DQpwcmludCAiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
XG4iIDsNCg0KV2luMzI6Okxhbm1hbjo6TmV0U2VydmVyRW51bSgnJywgIiRkb21haW4iLCBTVl9U
WVBFX0RPTUFJTl9DVFJMLCBcbXkgQFBEQykNCm9yIGRpZSAkXkU7DQpmb3JlYWNoIChAUERDKSB7
DQpwcmludCAiICRfLT57bmFtZX0gLT4gJF8tPntjb21tZW50fVxuIjsNCn0NCg0KDQojIEdldCBC
RENzDQpwcmludCAiXG5cblxuIERPTUFJTiBCQUNLVVAgQ09OVFJPTExFUlMgOiBcbiIgOw0KcHJp
bnQgIi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxuIiA7DQpXaW4z
Mjo6TGFubWFuOjpOZXRTZXJ2ZXJFbnVtKCcnLCAiJGRvbWFpbiIsIFNWX1RZUEVfRE9NQUlOX0JB
S0NUUkwsIFxteQ0KQEJEQykgb3IgZGllICReRTsNCmZvcmVhY2ggKEBCREMpIHsNCnByaW50ICIg
JF8tPntuYW1lfSAtPiAkXy0+e2NvbW1lbnR9XG4iOw0KfQ0KDQoNCg0KIyBHZXQgTWVtYmVyIFNl
cnZlcnMNCnByaW50ICJcblxuXG4gRE9NQUlOIE1FTUJFUiBTRVJWRVJTIDogXG4iIDsNCnByaW50
ICItLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1cbiIgOw0KV2luMzI6
Okxhbm1hbjo6TmV0U2VydmVyRW51bSgnJywgIiRkb21haW4iLCBTVl9UWVBFX1NFUlZFUl9OVCwg
XG15IEBTZXJ2ZXJzKQ0Kb3IgZGllICReRTsNCmZvcmVhY2ggKEBTZXJ2ZXJzKSB7DQpwcmludCAi
ICRfLT57bmFtZX0gLT4gJF8tPntjb21tZW50fVxuIjsNCn0NCg0KDQojIFRha2UgYSBsb29rIGF0
IHRoZSAkcmVmLT57dHlwZX0gZmllbGQgcmV0dXJuZWQsIHRvIHNlZSB3aGF0IHZhbHVlcyBhcmUN
CmF0dHJpYnV0ZWQgdG8gVGVybWluYWwgU2VydmVycywgU01TLCBldGMuDQoNCiNwcmludCAiLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXG4iIHggMyA7DQoNCiMgR2V0
IGxpc3Qgb2Ygc2VydmVycyBydW5uaW5nIFNRTCBzZXJ2ZXIgOg0KcHJpbnQgIlxuXG5cbiBTRVJW
RVJTIFJVTk5JTkcgU1FMIFNFUlZFUlMgOiBcbiIgOw0KcHJpbnQgIi0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxuIiA7DQpXaW4zMjo6TGFubWFuOjpOZXRTZXJ2ZXJF
bnVtKCcnLCAiJGRvbWFpbiIsIFNWX1RZUEVfU1FMU0VSVkVSLCBcbXkNCkBTUUxzZXJ2ZXJzKSBv
ciBkaWUgJF5FOw0KZm9yZWFjaCAoQFNRTHNlcnZlcnMpIHsNCnByaW50ICIgJF8tPntuYW1lfSAt
PiAkXy0+e2NvbW1lbnR9XG4iOw0KfQ0KDQpwcmludCAiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tXG4iIHggNSA7DQoNCiMvLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8NCi8vLy8v
Ly8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLy8vLw0KDQoN
CiA8PFdpbjMyX0xhbm1hbl9OZXRTZXJ2ZXJFbnVtMi50eHQ+PiAgICAgIA0KPDxMSVNUX1dPUktT
VEFUSU9OU19JTl9ET01BSU4udHh0Pj4gDQpfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f
X19fX19fX19fX19fX18NCkJydW5vIEJlbGxlbmdlcg0KU3IuIE5ldHdvcmsvU3lzdGVtcyBBZG1p
bmlzdHJhdG9yIA0KDQoNCgktLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLQ0KCUZyb206CVJhZ2h1
cmFtIFAgW1NNVFA6UC5SYWdodXJhbUBibHIuc3BjbmwuY28uaW5dDQoJU2VudDoJVHVlc2RheSwg
Tm92ZW1iZXIgMTQsIDIwMDAgMTE6MjENCglUbzoJJ3Blcmwtd2luMzItYWRtaW5AbGlzdHNlcnYx
LkFjdGl2ZVN0YXRlLmNvbScNCglTdWJqZWN0OglXb3Jrc3RhdGlvbnMgT25seQ0KDQoJSGVsbG8g
QWxsDQoNCglJIGFtIHRyeWluZyB0byBsaXN0IGFsbCB0aGUgV2luZG93cyBOVCBXb3Jrc3RhdGlv
bnMgb25seSBmb3IgYSBnaXZlbg0KZG9tYWluDQoJYnkgdXNpbmcgdGhlIGZvbGxvd2luZyBsaW5l
DQoJV2luMzI6Ok5ldEFkbWluOjpHZXRTZXJ2ZXJzKCcgJywkZG9tYWluLCRtYWNodHlwZSxcQExp
c3QxKQ0KCXdoZXJlIA0KCSRkb21haW4gPSAiU29tZWRvbWFpbiINCgkkbWFjaHR5cGUgPSBTVl9U
WVBFX1dPUktTVEFUSU9OLCANCglidXQgdGhlIG91dHB1dCBsaXN0IGFsc28gY29udGFpbnMgYWxs
IHRoZSBXaW4gTlQgU2VydmVyIE5hbWVzIGluIHRoZQ0KZG9tYWluLg0KDQoJMSkgQW0gSSBkb2lu
ZyBzb21ldGhpbmcgd3JvbmcgLCBpcyB0aGVyZSBhbm90aGVyIHdheSBmb3IgbGlzdGluZw0Kb25s
eQ0KCXdpbmRvd3MgbnQgd29ya3N0YXRpb25zLj8NCgkyKSBJcyBpdCBwb3NzaWJsZSB0byBmaW5k
IHRoZSBOdW1iZXIgb2YgSGFyZCBEaXNrcy9DRCBSb20gL0RWRCBSb20NCmFuZCB0aGVyZQ0KCWlk
ZW50aWZpZXJzKCBmb3IgZXggU1QzOTIzNiBTZWFnYXRlIDkgR0IpICBvbiBhIHJlbW90ZSBwYyA/
DQoNCglUaGFua3MgSW4gQWR2YW5jZQ0KCVJhZ2h1DQoNCglfX19fX19fX19fX19fX19fX19fX19f
X19fX19fX19fX19fX19fX19fX19fX19fXw0KCVBlcmwtV2luMzItQWRtaW4gbWFpbGluZyBsaXN0
DQoJUGVybC1XaW4zMi1BZG1pbkBsaXN0c2Vydi5BY3RpdmVTdGF0ZS5jb20NCglodHRwOi8vbGlz
dHNlcnYuQWN0aXZlU3RhdGUuY29tL21haWxtYW4vbGlzdGluZm8vcGVybC13aW4zMi1hZG1pbg0K
X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX18NClBlcmwtV2lu
MzItQWRtaW4gbWFpbGluZyBsaXN0DQpQZXJsLVdpbjMyLUFkbWluQGxpc3RzZXJ2LkFjdGl2ZVN0
YXRlLmNvbQ0KaHR0cDovL2xpc3RzZXJ2LkFjdGl2ZVN0YXRlLmNvbS9tYWlsbWFuL2xpc3RpbmZv
L3Blcmwtd2luMzItYWRtaW4NCg==
--0__=2nXweQ6NLnbBSufcMmyitxdZCcPutwTBiu8DqREt5tFIRQUCs1iGZ57U--
--__--__--
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
End of Perl-Win32-Admin Digest
______________________________________________
FREE Personalized Email at Mail.com
Sign up at http://www.mail.com/?sr=signup
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
