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:filelist.xml@;01C27F2F.66CF0930">
<link rel=3DEdit-Time-Data href=3D"cid:editdata.mso@;01C27F2F.66CF0930">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<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"/>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:553679495 -2147483648 8 0 66047 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:blue;
text-decoration:underline;
text-underline:single;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
code
{font-family:"Courier New";
mso-ascii-font-family:"Courier New";
mso-fareast-font-family:"Times New Roman";
mso-hansi-font-family:"Courier New";
mso-bidi-font-family:"Courier New";}
span.EmailStyle20
{mso-style-type:personal-reply;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:navy;}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
span.GramE
{mso-style-name:"";
mso-gram-e:yes;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */=20
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
</head>
<body lang=3DEN-GB link=3Dblue vlink=3Dblue =
style=3D'tab-interval:36.0pt'>
<div class=3DSection1>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
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></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><span class=3DGramE><font size=3D2 color=3Dnavy =
face=3DArial><span
style=3D'font-size:10.0pt;font-family:Arial;color:navy'>use</span></font=
></span><font
size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;
color:navy'> Win32::Registry;<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$terminal =3D $<span =
class=3DGramE>ARGV[</span>0];<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$HKEY_LOCAL_MACHINE->Connect
($terminal, $<span class=3DSpellE>hNode</span>) || die "Cannot =
connect to
$node";<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$<span =
class=3DSpellE>hNode</span>->Open
("SOFTWARE\\Microsoft\\Windows NT\\<span =
class=3DSpellE>CurrentVersion\\Winlogon</span>",
$<span class=3DSpellE>hKey</span>) || die "Cannot open <span =
class=3DGramE>registry
!</span>";<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$<span =
class=3DSpellE>hKey</span>-><span
class=3DSpellE>GetValues</span> =
(\%values);<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$<span =
class=3DSpellE>hKey</span>->Close
();<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>$<span =
class=3DSpellE>hNode</span>->Close
();<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><span class=3DSpellE><span class=3DGramE><font =
size=3D2
color=3Dnavy face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;
color:navy'>foreach</span></font></span></span><font size=3D2 =
color=3Dnavy
face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;color:navy'> $value
(keys(%values)) {<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span>$<span
class=3DSpellE>RegType</span> =3D $<span =
class=3DGramE>values{</span>$value}->[1];<o:p></o:p></span></font></p=
>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span>$<span
class=3DSpellE>RegValue</span> =3D $<span =
class=3DGramE>values{</span>$value}->[2];<o:p></o:p></span></font></p=
>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span>$<span
class=3DSpellE>RegKey</span> =3D $<span class=3DGramE>values{</span>$val=
ue}->[0];<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span><span
class=3DGramE>if</span> ($<span class=3DSpellE>RegKey</span> <span =
class=3DSpellE>eq</span>
"<span class=3DSpellE>DefaultUserName</span>") {$username =3D =
$<span
class=3DSpellE>RegValue</span>;<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span><span
class=3DGramE>print</span> "$<span =
class=3DSpellE>RegValue</span>\n";<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><span =
style=3D'mso-spacerun:yes'> </span>}<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'>}<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<p class=3DMsoNormal><span class=3DGramE><font size=3D2 color=3Dnavy =
face=3DArial><span
style=3D'font-size:10.0pt;font-family:Arial;color:navy'>exit</span></fon=
t></span><font
size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;
color:navy'>;<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>=
<div>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Modify accordingly. =
HTH.<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
New";color:navy;mso-no-proof:yes'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Lewis =
Bishop<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier =
New";color:navy;mso-no-proof:yes'>---<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Barclays Enable - ISS -
E-NTRUST/Bexleyheath NT<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Oracle Database =
Consultant<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Watling Street, Bexleyheath, =
</span></font><st1:place><st1:City><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier =
New";color:navy;mso-no-proof:yes'>Kent</span></font></st1:City><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>, =
</span></font><st1:PostalCode><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New";color:navy;mso-no-proof:yes'>DA6 =
7RR</span></font></st1:PostalCode></st1:place><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'> (Mail Van =
R)<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Phone : 020 8298 =
3418<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><st1:City><st1:=
place><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier =
New";color:navy;mso-no-proof:yes'>Mobile</span></font></st1:place></st1:=
City><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>: 07950 =
380857<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>Email : =
[EMAIL PROTECTED]<o:p></o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-layout-grid-align:none;text-autospace:none'><font
size=3D2 color=3Dnavy face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:
"Courier New";color:navy;mso-no-proof:yes'>"Enabling Competitive =
Advantage
for Barclays in IT and Business =
Processing"<o:p></o:p></span></font></p>
<p class=3DMsoNormal><font size=3D3 color=3Dnavy face=3D"Times New =
Roman"><span
style=3D'font-size:12.0pt;color:navy;mso-no-proof:yes'> </span></fo=
nt><o:p></o:p></p>
</div>
<p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D2 =
face=3DTahoma><span
lang=3DEN-US =
style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>--=
---Original
Message-----<br>
<b><span style=3D'font-weight:bold'>From:</span></b> Denham Eva
[mailto:EvaD@;TFMC.co.za<span class=3DGramE>] <br>
<b><span style=3D'font-weight:bold'>Sent</span></b></span><b><span
style=3D'font-weight:bold'>:</span></b> </span></font><st1:date =
Month=3D"10"
Day=3D"29" Year=3D"2002"><font size=3D2 face=3DTahoma><span =
lang=3DEN-US
=
style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>29=
October
2002</span></font></st1:date><font size=3D2 face=3DTahoma><span =
lang=3DEN-US
style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'> =
</span></font><st1:time
Hour=3D"8" Minute=3D"43"><font size=3D2 face=3DTahoma><span =
lang=3DEN-US
=
style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>08=
:43</span></font></st1:time><font
size=3D2 face=3DTahoma><span lang=3DEN-US =
style=3D'font-size:10.0pt;font-family:Tahoma;
mso-ansi-language:EN-US'><br>
<b><span style=3D'font-weight:bold'>To:</span></b> Multiple recipients =
of list
ORACLE-L<br>
<b><span style=3D'font-weight:bold'>Subject:</span></b> Win2k Perl =
accessing
Oracle Parameters?</span></font></p>
<p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D3
face=3D"Times New Roman"><span =
style=3D'font-size:12.0pt'><o:p> </o:p></span></font></p>
<p class=3DMsoNormal =
style=3D'mso-margin-top-alt:0cm;margin-right:0cm;margin-bottom:
12.0pt;margin-left:36.0pt'><code><font size=3D3 face=3D"Courier =
New"><span
style=3D'font-size:12.0pt;mso-ansi-font-size:12.0pt;mso-bidi-font-size:1=
2.0pt'>This
header confirms that this email message has been swept for =
the</span></font></code><font
face=3D"Courier New"><span style=3D'font-family:"Courier New"'><br>
<code><font face=3D"Courier New"><span =
style=3D'mso-ansi-font-size:12.0pt;
mso-bidi-font-size:12.0pt'>presence of computer viruses. =
</span></font></code><br>
<br>
<code><font face=3D"Courier New"><span =
style=3D'mso-ansi-font-size:12.0pt;
mso-bidi-font-size:12.0pt'>Corporate IT</span></font></code><br>
<code><font face=3D"Courier New"><span =
style=3D'mso-ansi-font-size:12.0pt;
mso-bidi-font-size:12.0pt'>THE WOOLWICH</span></font></code><br>
<code><font face=3D"Courier New"><span =
style=3D'mso-ansi-font-size:12.0pt;
mso-bidi-font-size:12.0pt'>---------------------------------------------=
-------------------------</span></font></code></span></font><o:p></o:p><=
/p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial'>Hello All,</span></font> <o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
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.</span></font><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
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{}.</span></font><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial'>But the ORACLE_HOME is not an environmental =
parameter
per se.</span></font> <br>
<font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial'>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.</span></font><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
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.)</span></font><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial'>Regards</span></font> <br>
<b><i><font face=3DArial><span =
style=3D'font-family:Arial;font-weight:bold;
font-style:italic'>Denham Eva</span></font></i></b> <br>
<b><i><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;
font-weight:bold;font-style:italic'>Oracle DBA</span></font></i></b> =
<br>
<i><font size=3D2 color=3Dblack face=3DArial><span =
style=3D'font-size:10.0pt;
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."</span></font></i> <br>
<i><font size=3D2 color=3Dblack face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial;color:black;font-style:italic'>Dennis =
Ritchie.</span></font></i>
<o:p></o:p></p>
<div class=3DMsoNormal align=3Dcenter =
style=3D'margin-left:36.0pt;text-align:center'><strong><b
style=3D'mso-ansi-font-weight:normal;mso-bidi-font-weight:normal'><font =
size=3D3
color=3D"#0000a0" face=3DArial><span =
style=3D'font-size:12.0pt;font-family:Arial;
color:#0000A0;font-weight:normal'>
<hr size=3D2 width=3D"100%" align=3Dcenter>
</span></font></b></strong></div>
<p class=3DMsoNormal style=3D'margin-left:36.0pt'><strong><b><font =
size=3D2
color=3D"#0000a0" face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial;
color:#0000A0'>DISCLAIMER</span></font> </b></strong><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D1 face=3DArial><span =
style=3D'font-size:
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.</span></font><font
size=3D1><span style=3D'font-size:7.5pt'> </span></font><o:p></o:p></p>
<p style=3D'margin-left:36.0pt'><font size=3D1 face=3DArial><span =
style=3D'font-size:
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.</span></font><font
size=3D1><span style=3D'font-size:7.5pt'> </span></font><o:p></o:p></p>
<div class=3DMsoNormal align=3Dcenter =
style=3D'margin-left:36.0pt;text-align:center'><font
size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
<hr size=3D2 width=3D"100%" align=3Dcenter>
</span></font></div>
<div class=3DMsoNormal align=3Dcenter =
style=3D'margin-left:36.0pt;text-align:center'><font
size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
<hr size=3D2 width=3D"100%" align=3Dcenter>
</span></font></div>
<p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D3
face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>This e-mail =
message has
been scanned for Viruses and Content and cleared by <strong><b><font
color=3D"#ff8000" face=3D"Times New Roman"><span =
style=3D'color:#FF8000'>MailMarshal</span></font>
- </b></strong>For more information please visit<strong><b><font
face=3D"Times New Roman"> </font></b></strong><a
href=3D"http://www.marshalsoftware.com";><strong><b><font face=3D"Times =
New =
Roman">www.marshalsoftware.com</font></b></strong></a><strong><b><font
face=3D"Times New Roman"> =
</font></b></strong><o:p></o:p></span></font></p>
<div class=3DMsoNormal align=3Dcenter =
style=3D'margin-left:36.0pt;text-align:center'><font
size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
<hr size=3D2 width=3D"100%" align=3Dcenter>
</span></font></div>
</div>
</body>
</html>
------_=_NextPart_001_01C27F2F.5CF0F180--
--
Please see the official ORACLE-L FAQ: http://www.orafaq.com
--
Author: Bishop Lewis
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).
