[gptalk] Re: Registry Logic Statement

  • From: "Paul Williams" <paul.williams@xxxxxxxxxxxxxx>
  • To: <gptalk@xxxxxxxxxxxxx>
  • Date: Mon, 4 Dec 2006 13:41:42 -0000

Answers inline...


----- Original Message ----- From: <dcnash@xxxxxxxxxxxxx>
To: <gptalk@xxxxxxxxxxxxx>
Sent: Friday, December 01, 2006 3:30 PM
Subject: [gptalk] Re: Registry Logic Statement


I have never written vbscript before so this is a new venture for me. Might you be kind enough to give me a crash course breakdown of how I would write this code? I started reading up on it, but MS website doesnt explain things very well. I just need it in plain words, i.e. what is the purpose of a "declaration". I need a quick rundown of code. I found a sample code, if you could just run throught it real quick and tell me what each function does and why, it will help me out a great deal. Thank you for your time and effort, the code is:

Option Explicit

This is forcing you to decalre your variants.


Dim objShell
Dim strCachedLogon, strShell, strPwdWarn, strWinLogon

Variant declarations. Required because of option explicit. Simply defining the variants that will be used. Think of these as portions of memory that you can store values in.


strPwdWarn = "passwordexpirywarning"
strShell = "Shell"
strCachedLogon ="cachedlogonscount"
strWinLogon = "HKLM\SOFTWARE\Microsoft\"_
& "Windows NT\currentVersion\Winlogon\"

Here you are assigning values to your variants.


Set objShell = CreateObject("WScript.Shell")

Instantiating an Windows Shell object. This object allows you to use Windows system variables, read the registry, etc.


strShell = objShell.RegRead(strWinLogon & strShell)
strPwdWarn = objShell.RegRead(strWinLogon & strPwdWarn)
strCachedLogon = objShell.RegRead(strWinLogon & strCachedLogon)

Assign the values of registry keys to variants.


Wscript.Echo "Shell Program " & vbTab & strShell & vbCr _
& "Password Expires " & vbTab & strPwdWarn & vbCr _
& "Cached Logons " & vbTab & strCachedLogon

Output the values read from the registry.


WScript.Quit

Exit script.

' End of Registry Example VBscript.

DC Nash


From: Jeremy Saunders <jeremy.saunders@xxxxxxxxxxx>
Date: 2006/12/01 Fri AM 03:01:41 EST
To: gptalk@xxxxxxxxxxxxx
Subject: [gptalk] Re: Registry Logic Statement

Yep, that's how I would do it...or if you want it in a VBScript, then use
the RegRead function.

--------------------------------------------------
strRegKey = "HKCU\Environment\"
strValue= "Temp"
Set objShell = CreateObject("WScript.Shell")
strValueData = objShell.RegRead(strRegKey & strValue)
Wscript.Echo "The TEMP environment variable is set to: " & strValueData
--------------------------------------------------

Cheers.

 Kind regards,

 Jeremy Saunders
 Senior Technical Specialist

 Infrastructure Technology Services
 (ITS) & Cerulean
 Global Technology Services (GTS)
 IBM Australia
 Level 2, 1060 Hay Street
 West Perth  WA  6005

 Visit us at
 http://www.ibm.com/services/au/its

 P:  +61 8 9261 8412                F:  +61 8 9261 8486
 M:  TBA                            E-mail:
                                    jeremy.saunders@xxxxxxxxxxx











             "Jeremy Waldrop"
             <jwaldrop@cookcon
sultingservices.c To
             om>                       <gptalk@xxxxxxxxxxxxx>
Sent by: cc
             gptalk-bounce@fre
elists.org Subject
                                       [gptalk] Re: Registry Logic
                                       Statement
             01/12/2006 07:27
             AM


             Please respond to
             gptalk@freelists.
                    org






Use reg.exe with the query command.

Reg query

-----Original Message-----
From: gptalk-bounce@xxxxxxxxxxxxx [mailto:gptalk-bounce@xxxxxxxxxxxxx]
On Behalf Of dcnash@xxxxxxxxxxxxx
Sent: Thursday, November 30, 2006 4:28 PM
To: gptalk@xxxxxxxxxxxxx
Subject: [gptalk] Registry Logic Statement

Does anyone know of a way to create a logic statement that checks the
presence of a value in the registry?
My goal is to check a specific value in the registry, if the value is
there, do nothing. If its not there then run a program to add the entry.
Ive tried to create an adm to solve this issue, but the value is a
binary value. To my knowledge you cant write a binary value to the
registry using .adm files. Any ideas would be appreciated! BTW I found a
VBScript that does what I need it to do, however it creates an error if
the value is already present, I need it to be invisible to the users on
our network.

Thanks,

DC Nash

***********************
You can unsubscribe from gptalk by sending email to
gptalk-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject field OR
by logging into the freelists.org Web interface. Archives for the list
are available at http://www.freelists.org/archives/gptalk/
************************
***********************
You can unsubscribe from gptalk by sending email to
gptalk-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject field OR by
logging into the freelists.org Web interface. Archives for the list are
available at http://www.freelists.org/archives/gptalk/
************************


***********************
You can unsubscribe from gptalk by sending email to gptalk-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject field OR by logging into the freelists.org Web interface. Archives for the list are available at http://www.freelists.org/archives/gptalk/
************************


***********************
You can unsubscribe from gptalk by sending email to gptalk-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject field OR by logging into the freelists.org Web interface. Archives for the list are available at http://www.freelists.org/archives/gptalk/ ************************

***********************
You can unsubscribe from gptalk by sending email to 
gptalk-request@xxxxxxxxxxxxx with 'unsubscribe' in the Subject field OR by 
logging into the freelists.org Web interface. Archives for the list are 
available at http://www.freelists.org/archives/gptalk/
************************

Other related posts: