If you are trying to find out which ones are Win2k, you can iterate over the
list of computers and check the registry like so:
use Win32::TieRegistry(Delimiter => "/");
$verRoot =
$Registry->{"//$client/HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
NT/CurrentVersion/"};
if($verRoot->{'CurrentVersion'} eq '5.0'){ #OS Version Info
$OS = "Microsoft Windows 2000 ";
}elsif($verRoot->{'CurrentVersion'} eq '4.0'){
$OS = "Microsoft Windows NT 4.0 ";
}elsif($verRoot->{'CurrentVersion'} eq '5.1'){
$OS = "Microsoft Windows XP ";
}else{
$OS = "Unknown Operating System";
}
$servicepack = $verRoot->{'CSDVersion'};
$OSType = $verRoot->{'CurrentType'};
$build = $verRoot->{'CurrentBuildNumber'};
It's a lot faster than you would think, and doesn't take very much by way of
resources.
-----Original Message-----
From: Timothy Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 09, 2002 2:46 PM
To: 'Mark Richmond'; [EMAIL PROTECTED]
Subject: RE: How to find all active windows hosts on a network
Are you saying that you want to get all Windows hosts on the network, or are
you specifically trying to get the number of hosts that have Windows 2000
installed?
-----Original Message-----
From: Mark Richmond [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 09, 2002 2:31 PM
To: Mark Richmond; [EMAIL PROTECTED]
Subject: RE: How to find all active windows hosts on a network
As a follow up: Win32::NodeName() produces the local NodeName I need
a list of all the nodes. The hunt continues
> -----Original Message-----
> From: Mark Richmond
> Sent: Monday, September 09, 2002 5:10 PM
> To: [EMAIL PROTECTED]
> Subject: How to find all active windows hosts on a network
>
>
>
> Hello all:
>
> I need to produce a list Windows2k hosts on our network. It
> would seem that I could obtain the information
> from the domain controllers I looked at Win32::NetResource
> but can't figure out how to get the node name.
> Any thoughts ?
>
> -thanks
> -mark
>
> -
> Mark Richmond <[EMAIL PROTECTED]>
> Airvana Inc.
> 25 Industrial Ave.
> Chelmsford, MA 01824
> Voice: 978-250-2669
> Cell: 978-815-4298
> Fax: 978-250-3910
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
