I'm trying to find a *simple* way to enumerate just the workstations in my NT domain (NT4 and W2K Pro systems only). In Lanman and AdminMisc I seem to be able to find servers and various flavors of them easily but not just the workstations. I was enumerating the domain and checking the registry but I'd like to eliminate the 2 step process there. I'm using ActivePerl build 633 and was noodling around with Win32::Lanman::NetServerEnum which looks promising. The keys enumerate as follows but I can't find a reference for what the values are or what they describe. It looks as if the type key could be parsed for workstations, but I'm not sure. Any ideas? version_major=5 comment=Bruderer #4 platform_id=500 type=69635 version_minor=0 name=URBDC06C ==<< Sample code >>== use Win32::Lanman; if(!Win32::Lanman::NetServerEnum("\\\\myPDC", "myDomain", SV_TYPE_NT, \@info)) { print "Sorry, something went wrong; error: "; # get the error code print Win32::Lanman::GetLastError(); exit 1; } foreach $server (@info) { @keys = keys %$server; foreach $key(@keys) { print "$key=${$server}{$key}\n"; } } ................................................................
Regards Glenn Deans "It's not what you look at that matters, it's what you see." Henry David Thoreau American Essayist and Poet