Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: (tye)Re: Win32::TieRegistry and remote machines

by rchiav (Deacon)
on Sep 21, 2001 at 23:50 UTC ( #113984=note: print w/ replies, xml ) Need Help??


in reply to (tye)Re: Win32::TieRegistry and remote machines
in thread Win32::TieRegistry and remote machines

Though this is hackish, it's going to suit my needs for now. This something that just needs to get the job done. I'll work more on it later, but for now, this block of code is going to make it work good enough..

my $enum; eval {$enum = Win32::OLE::Enum->new("WinNT://$comp")}; unless ($enum) { print "$comp is not NT/2000\n"; return; }
Thanks for the ideas. They got me thinking in a different direction.

Rich

Update: *sigh* this doesn't work. Guess I'm trying to get this done too fast. I'll update when it *does* work. Update II:

Here's what I ended up going with. It's not portable, but pulling registry entries isn't portable anyway. Win32::Process gave me what I needed...

sub RegConnect { my ($pObj, $ExitCode); my $comp = shift; my $pString = "perl -MWin32::TieRegistry -e " . '"' . '$Registry->Connect(' ."'" . $comp . "', 'LMachine');" . '"'; Win32::Process::Create($pObj, "c:\\perl\\bin\\perl.exe", $pString, 0, NORMAL_PRIORITY_CLASS, ".")|| die "Can't create Perl Process: $!\n"; $pObj->Wait(7000); $pObj->GetExitCode($ExitCode); if ($ExitCode) { $pObj->Kill(1); return 0; } return 1; }


Comment on Re: (tye)Re: Win32::TieRegistry and remote machines
Select or Download Code
Re: Re: (tye)Re: Win32::TieRegistry and remote machines
by Moonie (Friar) on Sep 22, 2001 at 01:53 UTC
    This may be a bit off... but I was wondering, why not use Win32 module? It has the nice Win32::IsWinNT() and Win32::IsWin95(). I'm making a bit of assumption that Win32::IsWin95() would work with Win98 as well. I'm not sure. Anyways, just a suggestion - it may not fit your needs.

    Good Luck!
    - Moon

    Update: Oops..as usual..assumption.. bad bad! Thanks tye!

      Because those only tell you about the local computer. The problem was to determine if a remote computer is running Win9x.

              - tye (but my friends call me "Tye")

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://113984]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2014-12-21 03:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (102 votes), past polls