RE: Win2k Perl accessing Oracle Parameters?
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=3Durn:schemas-microsoft-com:vml =
xmlns:o=3Durn:schemas-microsoft-com:office:office =
xmlns:w=3Durn:schemas-microsoft-com:office:word =
xmlns:st1=3Durn:schemas-microsoft-com:office:smarttags =
xmlns=3Dhttp://www.w3.org/TR/REC-html40
head
META HTTP-EQUIV=3DContent-Type CONTENT=3Dtext/html; =
charset=3Dus-ascii
meta name=3DProgId content=3DWord.Document
meta name=3DGenerator content=3DMicrosoft Word 10
meta name=3DOriginator content=3DMicrosoft Word 10
link rel=3DFile-List href="3Dcid:[EMAIL PROTECTED]
link rel=3DEdit-Time-Data href="3Dcid:[EMAIL PROTECTED]
!--[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]--
titleWin2k Perl accessing Oracle Parameters?/title
o:SmartTagType =
namespaceuri=3Durn:schemas-microsoft-com:office:smarttags
name=3Ddate/
o:Sm
Win2k Perl accessing Oracle Parameters?
Title: Win2k Perl accessing Oracle Parameters?
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
www.marshalsoftware.com
RE: Win2k Perl accessing Oracle Parameters?
;color:navy;mso-no-proof:yes'Kent/span/font/st1:Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes', = /span/fontst1:PostalCodefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier New;color:navy;mso-no-proof:yes'DA6 = 7RR/span/font/st1:PostalCode/st1:placefont size=3D2 color=3Dnavy face=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Phone : 020 8298 = 3418o:p/o:p/span/font/p p class=3DMsoNormal = style=3D'mso-layout-grid-align:none;text-autospace:none'st1:Cityst1:= placefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier = New;color:navy;mso-no-proof:yes'Mobile/span/font/st1:place/st1:= Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes': 07950 = 380857o: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=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'quot;Enabling Competitive = Advantage for Barclays in IT and Business = Processingquot;o:p/o:p/span/font/p p class=3DMsoNormalfont size=3D3 color=3Dnavy face=3DTimes New = Romanspan style=3D'font-size:12.0pt;color:navy;mso-no-proof:yes'nbsp;/span/fo= nto:p/o:p/p /div p class=3DMsoNormal style=3D'margin-left:36.0pt'font size=3D2 = face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'--= ---Original Message-br bspan style=3D'font-weight:bold'From:/span/b Denham Eva [mailto:EvaD;TFMC.co.zaspan class=3DGramE] br bspan style=3D'font-weight:bold'Sent/span/b/spanbspan style=3D'font-weight:bold':/span/b /span/fontst1:date = Month=3D10 Day=3D29 Year=3D2002font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'29= October 2002/span/font/st1:datefont size=3D2 face=3DTahomaspan = lang=3DEN-US style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US' = /span/fontst1:time Hour=3D8 Minute=3D43font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'08= :43/span/font/st1:timefont size=3D2 face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma; mso-ansi-language:EN-US'br bspan style=3D'font-weight:bold'To:/span/b Multiple recipients = of list ORACLE-Lbr bspan 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=3DTimes New Romanspan = style=3D'font-size:12.0pt'o:pnbsp;/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'codefont size=3D3 face=3DCourier = Newspan 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/codefont face=3DCourier Newspan style=3D'font-family:Courier New'br codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'presence of computer viruses. = /span/font/codebr br codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'Corporate IT/span/font/codebr codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'THE WOOLWICH/span/font/codebr codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'-= -/span/font/code/span/fonto:p/o:p= /p p style=3D'margin-left:36.0pt'font size=3D2 face=3DArialspan = 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=3DArialspan = 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/fonto:p/o:p/p p style=3D'margin-left:36.0pt'font size=3D2 face=3DArialspan = 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
Re: Win2k Perl accessing Oracle Parameters?
size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Oracle Database = Consultanto: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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Watling Street, Bexleyheath, = /span/fontst1:placest1:Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier = New;color:navy;mso-no-proof:yes'Kent/span/font/st1:Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes', = /span/fontst1:PostalCodefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier New;color:navy;mso-no-proof:yes'DA6 = 7RR/span/font/st1:PostalCode/st1:placefont size=3D2 color=3Dnavy face=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Phone : 020 8298 = 3418o:p/o:p/span/font/p p class=3DMsoNormal = style=3D'mso-layout-grid-align:none;text-autospace:none'st1:Cityst1:= placefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier = New;color:navy;mso-no-proof:yes'Mobile/span/font/st1:place/st1:= Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes': 07950 = 380857o: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=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'quot;Enabling Competitive = Advantage for Barclays in IT and Business = Processingquot;o:p/o:p/span/font/p p class=3DMsoNormalfont size=3D3 color=3Dnavy face=3DTimes New = Romanspan style=3D'font-size:12.0pt;color:navy;mso-no-proof:yes'nbsp;/span/fo= nto:p/o:p/p /div p class=3DMsoNormal style=3D'margin-left:36.0pt'font size=3D2 = face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'--= ---Original Message-br bspan style=3D'font-weight:bold'From:/span/b Denham Eva [mailto:EvaD;TFMC.co.zaspan class=3DGramE] br bspan style=3D'font-weight:bold'Sent/span/b/spanbspan style=3D'font-weight:bold':/span/b /span/fontst1:date = Month=3D10 Day=3D29 Year=3D2002font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'29= October 2002/span/font/st1:datefont size=3D2 face=3DTahomaspan = lang=3DEN-US style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US' = /span/fontst1:time Hour=3D8 Minute=3D43font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'08= :43/span/font/st1:timefont size=3D2 face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma; mso-ansi-language:EN-US'br bspan style=3D'font-weight:bold'To:/span/b Multiple recipients = of list ORACLE-Lbr bspan 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=3DTimes New Romanspan = style=3D'font-size:12.0pt'o:pnbsp;/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'codefont size=3D3 face=3DCourier = Newspan 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/codefont face=3DCourier Newspan style=3D'font-family:Courier New'br codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'presence of computer viruses. = /span/font/codebr br codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'Corporate IT/span/font/codebr codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'THE WOOLWICH/span/font/codebr codefont face=3DCourier Newspan = style=3D'mso-ansi-font-size:12.0pt; mso-bidi-font-size:12.0pt'-= -/span/font/code/span/fonto:p/o:p
RE: Win2k Perl accessing Oracle Parameters?
= Bishopo: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=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Barclays Enable - ISS - E-NTRUST/Bexleyheath NTo: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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Oracle Database = Consultanto: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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Watling Street, Bexleyheath, = /span/fontst1:placest1:Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier = New;color:navy;mso-no-proof:yes'Kent/span/font/st1:Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes', = /span/fontst1:PostalCodefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier New;color:navy;mso-no-proof:yes'DA6 = 7RR/span/font/st1:PostalCode/st1:placefont size=3D2 color=3Dnavy face=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'Phone : 020 8298 = 3418o:p/o:p/span/font/p p class=3DMsoNormal = style=3D'mso-layout-grid-align:none;text-autospace:none'st1:Cityst1: = placefont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt; font-family:Courier = New;color:navy;mso-no-proof:yes'Mobile/span/font/st1:place/st1: = Cityfont size=3D2 color=3Dnavy face=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes': 07950 = 380857o: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=3DCourier Newspan = 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=3DCourier Newspan = style=3D'font-size:10.0pt;font-family: Courier New;color:navy;mso-no-proof:yes'quot;Enabling Competitive = Advantage for Barclays in IT and Business = Processingquot;o:p/o:p/span/font/p p class=3DMsoNormalfont size=3D3 color=3Dnavy face=3DTimes New = Romanspan style=3D'font-size:12.0pt;color:navy;mso-no-proof:yes'nbsp;/span/fo = nto:p/o:p/p /div p class=3DMsoNormal style=3D'margin-left:36.0pt'font size=3D2 = face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'-- = ---Original Message-br bspan style=3D'font-weight:bold'From:/span/b Denham Eva [mailto:EvaD;TFMC.co.zaspan class=3DGramE] br bspan style=3D'font-weight:bold'Sent/span/b/spanbspan style=3D'font-weight:bold':/span/b /span/fontst1:date = Month=3D10 Day=3D29 Year=3D2002font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'29 = October 2002/span/font/st1:datefont size=3D2 face=3DTahomaspan = lang=3DEN-US style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US' = /span/fontst1:time Hour=3D8 Minute=3D43font size=3D2 face=3DTahomaspan = lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'08 = :43/span/font/st1:timefont size=3D2 face=3DTahomaspan lang=3DEN-US = style=3D'font-size:10.0pt;font-family:Tahoma; mso-ansi-language:EN-US'br bspan style=3D'font-weight:bold'To:/span/b Multiple recipients = of list ORACLE-Lbr bspan 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=3DTimes New Romanspan = style=3D'font-size:12.0pt'o:pnbsp;/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'codefont size=3D3 face=3DCourier = Newspan 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/codefont face=3DCourier Newspan style=3D'font
RE: Win2k Perl accessing Oracle Parameters?
Cary,
Here's what my search of Registry revealed:
PPM search Registry
Packages available from
http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/PPMServer:
Win32-Registry-File [1.09] Perl interface to MS-Windows
registry
files.
Win32-TieRegistry [0.24] Powerful and easy ways to
manipulate a
registry [on Win32 for now].
Win32-TieRegistry-Dump [0.03] dump Win32 registry tree
Win32-TieRegistry-PMVersionInfo [0.2 ] store in Win32 Registry PM $VERSION
info
XML-Registry[0.02] Perl module for loading and saving
an
XML registry.
PPM
The version that usually comes with ActiveState Perl is 0.23, not 1.23 as
I implied before.
The version you want is version 0.24.
HTH
Jared
Cary Millsap [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
10/29/2002 09:13 AM
Please respond to ORACLE-L
To: Multiple recipients of list ORACLE-L [EMAIL PROTECTED]
cc:
Subject:RE: Win2k Perl accessing Oracle Parameters?
Jared:
PPM search Tie::Registry
PPM search Win32::Registry
Packages available from
http://ppm.ActiveState.com/cgibin/PPM/ppmserver.pl?urn:/
PPMServer:
Win32-Registry-File [1.09] Perl interface to MS-Windows registry files.
PPM
Is 1.09 really what I want to install?
Cary Millsap
Hotsos Enterprises, Ltd.
http://www.hotsos.com
Upcoming events:
- Hotsos Clinic, Dec 9-11 Honolulu
- 2003 Hotsos Symposium on OracleR System Performance, Feb 9-12 Dallas
- Jonathan Lewis' Optimising Oracle, Nov 19-21 Dallas
-Original Message-
Still
Sent: Tuesday, October 29, 2002 9:35 AM
To: Multiple recipients of list ORACLE-L
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
