RE: Win2k Perl accessing Oracle Parameters?

Denham Eva Wed, 30 Oct 2002 00:35:29 -0800

Title: RE: Win2k Perl accessing Oracle Parameters?

Thanks for the input, both of you!!!

-----Original Message-----
From: Jared Still [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 29, 2002 5:35 PM
To: Multiple recipients of list ORACLE-L
Subject: Re: Win2k Perl accessing Oracle Parameters?

In addition to BIshop's excellent response, be sure to install
the latest version of Tie:Registry. The one that comes with
ActiveState Perl doesn't work properly.

The current version (as installed from ActiveState via PPM)
is I believe 1.24. Just reinstall it.

Jared

On Tuesday 29 October 2002 01:53, Bishop Lewis wrote:
> Here's something to read registry keys I used a while back. Obviously needs
> the win32 module installed.
>
> use Win32::Registry;
>
> $terminal = $ARGV[0];
>
> $HKEY_LOCAL_MACHINE->Connect ($terminal, $hNode) || die "Cannot connect to
> $node";
> $hNode->Open ("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon",
> $hKey) || die "Cannot open registry !";
> $hKey->GetValues (\%values);
> $hKey->Close ();
> $hNode->Close ();
>
> foreach $value (keys(%values)) {
> $RegType = $values{$value}->[1];
> $RegValue = $values{$value}->[2];
> $RegKey = $values{$value}->[0];
> if ($RegKey eq "DefaultUserName") {$username = $RegValue;
> print "$RegValue\n";
> }
> }
>
>
> exit;
>
> Modify accordingly. HTH.
>
> Lewis Bishop
> ---
> Barclays Enable - ISS - E-NTRUST/Bexleyheath NT
> Oracle Database Consultant
> Watling Street, Bexleyheath, Kent, DA6 7RR (Mail Van R)
> Phone : 020 8298 3418
> Mobile: 07950 380857
> Email : [EMAIL PROTECTED]
> "Enabling Competitive Advantage for Barclays in IT and Business Processing"
>
> -----Original Message-----
> Sent: 29 October 2002 08:43
> To: Multiple recipients of list ORACLE-L
>
> This header confirms that this email message has been swept for the
> presence of computer viruses.
>
> Corporate IT
> THE WOOLWICH
> ----------------------------------------------------------------------
> Hello All,
> I am writing an perl script. I cann't figure out and have been going
> through the docs, but cann't find exactly what I need.
> A way to access Oracle Parameters as they are set up in the Win2k
> registary. I am specifically thinking of ORACLE_HOME. I do know how to
> obtain an environmental variable/parameter with $ENV{}.
> But the ORACLE_HOME is not an environmental parameter per se.
> I have a workaround by setting it up in the enviroment, however I would
> like to write this script with the aim at it being machine unspecific.
> (Jared, hope you can answer me on this. Want to get a copy of your book,
> unfortunately with the exchange rate and import taxes etc it will cost me
> R590,00. Quiet a chunk of the ole budget, maybe early next year.)
> Regards
> Denham Eva
> Oracle DBA
> "UNIX is basically a simple operating system, but you have to be a genius
> to understand the simplicity."
> Dennis Ritchie.
> _____
>
> DISCLAIMER
> This message is for the named person's use only. It may contain
> confidential, proprietary or legally privileged information. No
> confidentiality or privilege is waived or lost by any mistransmission. If
> you receive this message in error, please immediately delete it and all
> copies of it from your system, destroy any hard copies of it and notify the
> sender. You must not, directly or indirectly, use, disclose, distribute,
> print, or copy any part of this message if you are not the intended
> recipient. TFMC, its holding company, and any of its subsidiaries each
> reserve the right to monitor and manage all e-mail communications through
> its networks.
> Any views expressed in this message are those of the individual sender,
> except where the message states otherwise and the sender is authorized to
> state them to be views of any such entity.
> _____
>
> _____
>
> This e-mail message has been scanned for Viruses and Content and cleared by
> MailMarshal - For more information please visit
> <http://www.marshalsoftware.com> www.marshalsoftware.com
> _____
>
>
> ------_=_NextPart_001_01C27F2F.5CF0F180
> Content-Type: text/html
> Content-Transfer-Encoding: quoted-printable
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
> <html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
> xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
> xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
> xmlns:st1=3D"urn:schemas-microsoft-com:office:smarttags" =
> xmlns=3D"http://www.w3.org/TR/REC-html40">
>
> <head>
> <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
> charset=3Dus-ascii">
>
>
> <meta name=3DProgId content=3DWord.Document>
> <meta name=3DGenerator content=3D"Microsoft Word 10">
> <meta name=3DOriginator content=3D"Microsoft Word 10">
> <link rel=3DFile-List href="3D"cid:[EMAIL PROTECTED]">
> <link rel=3DEdit-Time-Data href="3D"cid:[EMAIL PROTECTED]">
> 
> <title>Win2k Perl accessing Oracle Parameters?</title>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"date"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"time"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"place"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"PostalCode"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"City"/>
> 
> <style>
> 
> </style>
> 
> </head>
>
> <body lang=3DEN-GB link=3Dblue vlink=3Dblue =
> >
>
> <div class=3DSection1>
>
> >
> 10.0pt;font-family:Arial;color:navy'>Here's something to read registry
> keys I used a while back. Obviously needs the win32 module =
> installed.<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> face=3DArial> >
>
> >
> size=3D2 color=3Dnavy face=3DArial> >
> color:navy'> Win32::Registry;<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$terminal =3D $ class=3DGramE>ARGV[0];<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$HKEY_LOCAL_MACHINE->Connect
> ($terminal, $hNode) || die "Cannot =
> connect to
> $node";<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$ class=3DSpellE>hNode->Open
> ("SOFTWARE\\Microsoft\\Windows NT\\ class=3DSpellE>CurrentVersion\\Winlogon",
> $hKey) || die "Cannot open class=3DGramE>registry
> !";<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$ class=3DSpellE>hKey-> class=3DSpellE>GetValues =
> (\%values);<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$ class=3DSpellE>hKey->Close
> ();<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'>$ class=3DSpellE>hNode->Close
> ();<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> size=3D2
> color=3Dnavy face=3DArial> >
> color:navy'>foreach color=3Dnavy
> face=3DArial> $value
> (keys(%values)) {<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'> $ class=3DSpellE>RegType =3D $ class=3DGramE>values{$value}->[1];<o:p></o:p></p=
>
>
> >
> 10.0pt;font-family:Arial;color:navy'> $ class=3DSpellE>RegValue =3D $ class=3DGramE>values{$value}->[2];<o:p></o:p></p=
>
>
> >
> 10.0pt;font-family:Arial;color:navy'> $ class=3DSpellE>RegKey =3D $values{$val=
> ue}->[0];<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'> class=3DGramE>if ($RegKey class=3DSpellE>eq
> "DefaultUserName") {$username =3D =
> $ class=3DSpellE>RegValue;<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'> class=3DGramE>print "$ class=3DSpellE>RegValue\n";<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'> }<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'>}<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> face=3DArial> >
> t> size=3D2 color=3Dnavy face=3DArial> >
> color:navy'>;<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial;color:navy'><o:p> </o:p>=
>
>
> <div>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Modify accordingly. =
> HTH.<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier =
> New";color:navy;mso-no-proof:yes'><o:p> </o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Lewis =
> Bishop<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier =
> New";color:navy;mso-no-proof:yes'>---<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Barclays Enable - ISS -
> E-NTRUST/Bexleyheath NT<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Oracle Database =
> Consultant<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Watling Street, Bexleyheath, =
> <st1:place><st1:City> size=3D2 color=3Dnavy face=3D"Courier New"> >
> font-family:"Courier =
> New";color:navy;mso-no-proof:yes'>Kent</st1:City> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>, =
> <st1:PostalCode> size=3D2 color=3Dnavy face=3D"Courier New"> >
> font-family:"Courier New";color:navy;mso-no-proof:yes'>DA6 =
> 7RR</st1:PostalCode></st1:place> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'> (Mail Van =
> R)<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Phone : 020 8298 =
> 3418<o:p></o:p>
>
> >
> place> size=3D2 color=3Dnavy face=3D"Courier New"> >
> font-family:"Courier =
> New";color:navy;mso-no-proof:yes'>Mobile</st1:place></st1:=
> City> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>: 07950 =
> 380857<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>Email : =
> [EMAIL PROTECTED]<o:p></o:p>
>
> >
> size=3D2 color=3Dnavy face=3D"Courier New"> >
> "Courier New";color:navy;mso-no-proof:yes'>"Enabling Competitive =
> Advantage
> for Barclays in IT and Business =
> Processing"<o:p></o:p>
>
> Roman"> >
> nt><o:p></o:p>
>
> </div>
>
> face=3DTahoma> lang=3DEN-US =
> >
> ---Original
> Message----- 
> [mailto:[EMAIL PROTECTED]] 
> 
> <st1:date =
> Month=3D"10"
> Day=3D"29" Year=3D"2002"> lang=3DEN-US
> =
> >
> October
> 2002</st1:date> lang=3DEN-US
> =
> <st1:time
> Hour=3D"8" Minute=3D"43"> lang=3DEN-US
> =
> >
>
> :43</st1:time>
> size=3D2 face=3DTahoma> >
> mso-ansi-language:EN-US'> 
> of list
> ORACLE-L 
> accessing
> Oracle Parameters?
>
> face=3D"Times New Roman"> >
>
> >
> 12.0pt;margin-left:36.0pt'><code> New"> >
> 2.0pt'>This
> header confirms that this email message has been swept for ="
> the</code> face=3D"Courier New"> 
> <code> >
> mso-bidi-font-size:12.0pt'>presence of computer viruses. =
> </code> 
> 
> <code> >
> mso-bidi-font-size:12.0pt'>Corporate IT</code> 
> <code> >
> mso-bidi-font-size:12.0pt'>THE WOOLWICH</code> 
> <code> >
> mso-bidi-font-size:12.0pt'>---------------------------------------------=
> -------------------------</code><o:p></o:p><=
> /p>
>
> >
> 10.0pt;font-family:Arial'>Hello All, <o:p></o:p>
>
> >
> 10.0pt;font-family:Arial'>I am writing an perl script. I cann't figure =
> out and
> have been going through the docs, but cann't find exactly what I =
> need.<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial'>A way to access Oracle Parameters as they are =
> set up
> in the Win2k registary. I am specifically thinking of ORACLE_HOME. I do =
> know
> how to obtain an environmental variable/parameter with =
> $ENV{}.<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial'>But the ORACLE_HOME is not an environmental =
> parameter
> per se. 
> have
> a workaround by setting it up in the enviroment, however I would like =
> to write
> this script with the aim at it being machine =
> unspecific.<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial'>(Jared, hope you can answer me on this. Want =
> to get a
> copy of your book, unfortunately with the exchange rate and import =
> taxes etc it
> will cost me R590,00. Quiet a chunk of the ole budget, maybe early next =
> year.)<o:p></o:p>
>
> >
> 10.0pt;font-family:Arial'>Regards 
> >
> font-style:italic'>Denham Eva 
> >
> font-weight:bold;font-style:italic'>Oracle DBA =
> 
> >
> font-family:Arial;color:black;font-style:italic'>"UNIX is =
> basically a
> simple operating system, but you have to be a genius to understand the
> simplicity." 
> >
> font-family:Arial;color:black;font-style:italic'>Dennis =
> Ritchie.
> <o:p></o:p>
>
> <div class=3DMsoNormal align=3Dcenter =
> >
> =
> size=3D3
> color=3D"#0000a0" face=3DArial> >
> color:#0000A0;font-weight:normal'>
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </div>
>
> size=3D2
> color=3D"#0000a0" face=3DArial> >
> color:#0000A0'>DISCLAIMER <o:p></o:p>
>
> >
> 7.5pt;font-family:Arial'>This message is for the named person's use =
> only. It
> may contain confidential, proprietary or legally privileged =
> information. No
> confidentiality or privilege is waived or lost by any mistransmission. =
> If you
> receive this message in error, please immediately delete it and all =
> copies of
> it from your system, destroy any hard copies of it and notify the =
> sender. You
> must not, directly or indirectly, use, disclose, distribute, print, or =
> copy any
> part of this message if you are not the intended recipient. TFMC, its =
> holding
> company, and any of its subsidiaries each reserve the right to monitor =
> and
> manage all e-mail communications through its =
> networks. size=3D1><o:p></o:p>
>
> >
> 7.5pt;font-family:Arial'>Any views expressed in this message are those =
> of the
> individual sender, except where the message states otherwise and the =
> sender is
> authorized to state them to be views of any such =
> entity. size=3D1><o:p></o:p>
>
> <div class=3DMsoNormal align=3Dcenter =
> >
> size=3D3 face=3D"Times New Roman">
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </div>
>
> <div class=3DMsoNormal align=3Dcenter =
> >
> size=3D3 face=3D"Times New Roman">
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </div>
>
> face=3D"Times New Roman"> message has
> been scanned for Viruses and Content and cleared by color=3D"#ff8000" face=3D"Times New Roman"> >
> - For more information please visit face=3D"Times New Roman"> <a
> href="3D"http://www.marshalsoftware.com"> New =
> Roman">www.marshalsoftware.com</a> face=3D"Times New Roman"> =
> <o:p></o:p>
>
> <div class=3DMsoNormal align=3Dcenter =
> >
> size=3D3 face=3D"Times New Roman">
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </div>
>
> </div>
>
> </body>
>
> </html>
>
> ------_=_NextPart_001_01C27F2F.5CF0F180--
--
Please see the official ORACLE-L FAQ: http://www.orafaq.com
--
Author: Jared Still
INET: [EMAIL PROTECTED]

Fat City Network Services -- 858-538-5051 http://www.fatcity.com
San Diego, California -- Mailing list and web hosting services
---------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from). You may
also send the HELP command for other information (like subscribing).

DISCLAIMER

This message is for the named person's use only. It may contain confidential, proprietary or legally privileged information. No confidentiality or privilege is waived or lost by any mistransmission. If you receive this message in error, please immediately delete it and all copies of it from your system, destroy any hard copies of it and notify the sender. You must not, directly or indirectly, use, disclose, distribute, print, or copy any part of this message if you are not the intended recipient. TFMC, its holding company, and any of its subsidiaries each reserve the right to monitor and manage all e-mail communications through its networks.

Any views expressed in this message are those of the individual sender, except where the message states otherwise and the sender is authorized to state them to be views of any such entity.

This e-mail message has been scanned for Viruses and Content and cleared by MailMarshal - For more information please visit www.marshalsoftware.com

RE: Win2k Perl accessing Oracle Parameters?

Reply via email to