I'm having a problem getting Dave Roth's Win32::AdminMisc to work properly.
I have created a script that I have tested on Perl 5.6 and on Perl 5.8. On
Perl 5.8 it returns: Failed With: The specified procedure could not be
found. On Perl 5.6 it is successful if I use Win32::AdminMisc ver.
20000708, but none of the 2003 versions.
It appears that "GetMachines" does not work on Perl 5.8. The version of
Win32::AdminMisc is 0.2003.07.14
This is the script that I am using.
use Win32::AdminMisc;
my $domain = "DOMAIN";
print "Generating domain list for $domain ...\n";
Win32::AdminMisc::GetMachines($domain, UF_SERVER_TRUST_ACCOUNT |
UF_WORKSTATION_TRUST_ACCOUNT, [EMAIL PROTECTED], "") ||die "Failed With: ",
Win32::FormatMessage(Win32::GetLastError());
$domnum = 0;
foreach (@domlist) {
print "$_\n";
$domnum = $domnum+1;
}
print "List of $domain generated $domnum systems.\n";
Does anyone else have this problem? Is there any way around it.
Tad Chrapko
Internal Technology Services (ITS)
City of St. Albert
mailto:[EMAIL PROTECTED]
http://www.city.st-albert.ab.ca
Tel: 780-459-1666
T8N 3Z9
The information contained in this e-mail is intended for the addressee only.
Any other distribution, coping or disclosure in whole or in part by any
other person is prohibited. If you have received this e-mail in error,
please notify me immediately and delete any electronic and any hard copies.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
