OT: Script question, Doug?

OT: Script question, Doug?

Doug,

I need to write a script to modify a registry entry of a given key with
one of 3 values I will provide. The order it selects the new values isn't
important, so long as it selects a different value each time. This can be a
.exe or .bat, as I will be dropping it into the windows startup. It doesn't
need to be pretty, but must require minimal user intervention.

Can this be done without a code compiler?

The last coding I did was years ago with C++.

I was thinking something like pull the existing key and load into a
variable, then compare the variable against a rule set and replace it
accordingly.

(script grabs value, assigns name 'value')

1 = "jeep"
IF value="jeep" GOTO 2

2 = "wrangler"
IF value="wrangler" GOTO 3

3 = "cherokee"
IF value="cherokee" GOTO 1

(script replaces value)

Some pointers would be great..

Carl

Re: Script question, Doug?

Doug,

Here's what I've got so far.

Set objShell = WScript.CreateObject("WScript.Shell")
Title = objShell.RegRead _
("HKCU\Software\Microsoft\Internet_Explorer\Main\Window")

If Title = "Carl2" Then
Wscript.regwrite "carl3"
Else
Wscript.regwrite "carl7"
End If

The problem is that no matter what combinaton I use to enter my path, it
says not found...

Carl


"Carl S" <carlsaiyed@REMOVE.hotmail,com > wrote in message
news:e9Gdne3Ggv4fjnvbnZ2dnUVZ_r2nnZ2d@comcast,com ...
> Doug,
>
> I need to write a script to modify a registry entry of a given key with
> one of 3 values I will provide. The order it selects the new values isn't
> important, so long as it selects a different value each time. This can be
> a .exe or .bat, as I will be dropping it into the windows startup. It
> doesn't need to be pretty, but must require minimal user intervention.
>
> Can this be done without a code compiler?
>
> The last coding I did was years ago with C++.
>
> I was thinking something like pull the existing key and load into a
> variable, then compare the variable against a rule set and replace it
> accordingly.
>
> (script grabs value, assigns name 'value')
>
> 1 = "jeep"
> IF value="jeep" GOTO 2
>
> 2 = "wrangler"
> IF value="wrangler" GOTO 3
>
> 3 = "cherokee"
> IF value="cherokee" GOTO 1
>
> (script replaces value)
>
> Some pointers would be great..
>
> Carl
>

Re: Script question, Doug?

Err window title is the string name but i made another one called 'window'
for testing.

"Carl S" <carlsaiyed@REMOVE.hotmail,com > wrote in message
news:KbednVqQrp2xvnvbnZ2dnUVZ_tuonZ2d@comcast,com ...
> Doug,
>
> Here's what I've got so far.
>
> Set objShell = WScript.CreateObject("WScript.Shell")
> Title = objShell.RegRead _
> ("HKCU\Software\Microsoft\Internet_Explorer\Main\Window")
>
> If Title = "Carl2" Then
> Wscript.regwrite "carl3"
> Else
> Wscript.regwrite "carl7"
> End If
>
> The problem is that no matter what combinaton I use to enter my path, it
> says not found...
>
> Carl
>
>
> "Carl S" <carlsaiyed@REMOVE.hotmail,com > wrote in message
> news:e9Gdne3Ggv4fjnvbnZ2dnUVZ_r2nnZ2d@comcast,com ...
>> Doug,
>>
>> I need to write a script to modify a registry entry of a given key
>> with one of 3 values I will provide. The order it selects the new values
>> isn't important, so long as it selects a different value each time. This
>> can be a .exe or .bat, as I will be dropping it into the windows startup.
>> It doesn't need to be pretty, but must require minimal user intervention.
>>
>> Can this be done without a code compiler?
>>
>> The last coding I did was years ago with C++.
>>
>> I was thinking something like pull the existing key and load into a
>> variable, then compare the variable against a rule set and replace it
>> accordingly.
>>
>> (script grabs value, assigns name 'value')
>>
>> 1 = "jeep"
>> IF value="jeep" GOTO 2
>>
>> 2 = "wrangler"
>> IF value="wrangler" GOTO 3
>>
>> 3 = "cherokee"
>> IF value="cherokee" GOTO 1
>>
>> (script replaces value)
>>
>> Some pointers would be great..
>>
>> Carl
>>
>
>

Re: Script question, Doug?

I don't have that key in mine fwiw. Internet Explorer doesn't have an
underscore, and there is no Window underneath it.

Dave Milne, Scotland

Carl S wrote:
> Doug,
>
> Here's what I've got so far.
>
> Set objShell = WScript.CreateObject("WScript.Shell")
> Title = objShell.RegRead
> ("HKCU\Software\Microsoft\Internet Explorer\Main\Window")
>
> If Title = "Carl2" Then
> Wscript.regwrite "carl3"
> Else
> Wscript.regwrite "carl7"
> End If
>
> The problem is that no matter what combinaton I use to enter my path, it
> says not found...
>
> Carl
>
>
> "Carl S" <carlsaiyed@REMOVE.hotmail,com > wrote in message
> news:e9Gdne3Ggv4fjnvbnZ2dnUVZ r2nnZ2d@comcast,com ...
>> Doug,
>>
>> I need to write a script to modify a registry entry of a given key with
>> one of 3 values I will provide. The order it selects the new values isn't
>> important, so long as it selects a different value each time. This can be
>> a .exe or .bat, as I will be dropping it into the windows startup. It
>> doesn't need to be pretty, but must require minimal user intervention.
>>
>> Can this be done without a code compiler?
>>
>> The last coding I did was years ago with C++.
>>
>> I was thinking something like pull the existing key and load into a
>> variable, then compare the variable against a rule set and replace it
>> accordingly.
>>
>> (script grabs value, assigns name 'value')
>>
>> 1 = "jeep"
>> IF value="jeep" GOTO 2
>>
>> 2 = "wrangler"
>> IF value="wrangler" GOTO 3
>>
>> 3 = "cherokee"
>> IF value="cherokee" GOTO 1
>>
>> (script replaces value)
>>
>> Some pointers would be great..
>>
>> Carl
>>
>
>

Re: Script question, Doug?

Ya, i was trying diff stuff with adding the underscore. You've got to add
the
'Window Title' string in order to be able to title your internet explorer
window.

Carl


"Dave Milne" <jeep@nospam.milne.info> wrote in message
news:JbqFi.12328$c_1.4752@text.news.blueyonder.co.uk...
>I don't have that key in mine fwiw. Internet Explorer doesn't have an
>underscore, and there is no Window underneath it.
>
> Dave Milne, Scotland
>
> Carl S wrote:
>> Doug,
>>
>> Here's what I've got so far.
>>
>> Set objShell = WScript.CreateObject("WScript.Shell")
>> Title = objShell.RegRead _
>> ("HKCU\Software\Microsoft\Internet_Explorer\Main\Window")
>>
>> If Title = "Carl2" Then
>> Wscript.regwrite "carl3"
>> Else
>> Wscript.regwrite "carl7"
>> End If
>>
>> The problem is that no matter what combinaton I use to enter my path, it
>> says not found...
>>
>> Carl
>>
>>
>> "Carl S" <carlsaiyed@REMOVE.hotmail,com > wrote in message
>> news:e9Gdne3Ggv4fjnvbnZ2dnUVZ_r2nnZ2d@comcast,com ...
>>> Doug,
>>>
>>> I need to write a script to modify a registry entry of a given key
>>> with one of 3 values I will provide. The order it selects the new values
>>> isn't important, so long as it selects a different value each time. This
>>> can be a .exe or .bat, as I will be dropping it into the windows
>>> startup. It doesn't need to be pretty, but must require minimal user
>>> intervention.
>>>
>>> Can this be done without a code compiler?
>>>
>>> The last coding I did was years ago with C++.
>>>
>>> I was thinking something like pull the existing key and load into a
>>> variable, then compare the variable against a rule set and replace it
>>> accordingly.
>>>
>>> (script grabs value, assigns name 'value')
>>>
>>> 1 = "jeep"
>>> IF value="jeep" GOTO 2
>>>
>>> 2 = "wrangler"
>>> IF value="wrangler" GOTO 3
>>>
>>> 3 = "cherokee"
>>> IF value="cherokee" GOTO 1
>>>
>>> (script replaces value)
>>>
>>> Some pointers would be great..
>>>
>>> Carl
>>>
>>

Re: Script question, Doug?

Carl S wrote:
> Ya, i was trying diff stuff with adding the underscore. You've got to
> add the
> 'Window Title' string in order to be able to title your internet
> explorer window.

It's one of those customization tweaks.

objShell.RegWrite strKey,strValue,"REG_SZ"
^^^^^^^^ your using Wscript ^^^^^^^ indicates your writing a string value


in the Set command, you Set objShell. For example, if you did

Set beermug = CreateObject("WScript.Shell")

then you would use

beermug.RegWrite ......


Hope this helps. I gotta get to $dayjob now.



> "Dave Milne" wrote ...
>> I don't have that key in mine fwiw. Internet Explorer doesn't have an
>> underscore, and there is no Window underneath it.
>>
>> Dave Milne, Scotland
>>
>> Carl S wrote:
>>> Doug,
>>>
>>> Here's what I've got so far.
>>>
>>> Set objShell = WScript.CreateObject("WScript.Shell")
>>> Title = objShell.RegRead _
>>> ("HKCU\Software\Microsoft\Internet_Explorer\Main\Window")
>>>
>>> If Title = "Carl2" Then
>>> Wscript.regwrite "carl3"
>>> Else
>>> Wscript.regwrite "carl7"
>>> End If
>>>
>>> The problem is that no matter what combinaton I use to enter my
>>> path, it says not found...
>>>
>>> Carl

<snip>

Re: Script question, Doug?

Ugly, but it works.
mind the wraps.

What it does.
1) checks to see if the key is there, if not it creates it.
You need to have this first key the same as one of your rolling changes
or it won't work properly.
2) Pulls the key and does a case statement to see what to change it to.
3) writes that to the registry.

I used a function to clean up the code a bit.

Next would be to use an array and some better error checking
to make sure things didn't get lost and to make it easier to
add titles. You could even pull them from a file and use a
registry key to index the file for next time. :)

Happy scripting.

----------------------------

Dim objShell, Title
Set objShell = WScript.CreateObject("WScript.Shell")
On Error resume next
Title = objShell.RegRead _
("HKCU\Software\Microsoft\Internet Explorer\Main\Window Title")
If err <> 0 then
Title = "TITLE1"
RewriteTitle(Title)
End If
Select Case Title
Case "TITLE1"
RewriteTitle ("TITLE2")
Case "TITLE2"
RewriteTitle ("TITLE3")
Case "TITLE3"
RewriteTitle ("TITLE1")
End Select

Function RewriteTitle(foostring)
objShell.RegWrite _
"HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", foostring, "REG_SZ"
end Function

--------------------------------

Re: Script question, Doug?

Doug,

I must not have something installed on my PC because it doesnt seem to
work for me, even if I copy and paste your code directly.

C:\When trying to run from a command prompt window, i get:
'Dim' is not recognized as a command

C:\Set objShell = WScript.CreateObject("WScript.Shell")

C:\On Error resume next
'on' is not a rec. command

C:\Title=ojbshell.regread _

C:\"HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
The system cannot find path specifified
< was unexpected at this time

c:\if err <> 0 then

I thought WSH was auto installed with windows?

Carl


"DougW" <I.only.read.usenet@invalid.address> wrote in message
news:VsGFi.64056$xZ2.21974@newsfe10.phx...
> Ugly, but it works.
> mind the wraps.
>
> What it does.
> 1) checks to see if the key is there, if not it creates it.
> You need to have this first key the same as one of your rolling changes
> or it won't work properly.
> 2) Pulls the key and does a case statement to see what to change it to.
> 3) writes that to the registry.
>
> I used a function to clean up the code a bit.
>
> Next would be to use an array and some better error checking
> to make sure things didn't get lost and to make it easier to
> add titles. You could even pull them from a file and use a
> registry key to index the file for next time. :)
>
> Happy scripting.
>
> ----------------------------
>
> Dim objShell, Title
> Set objShell = WScript.CreateObject("WScript.Shell")
> On Error resume next
> Title = objShell.RegRead _
> ("HKCU\Software\Microsoft\Internet Explorer\Main\Window Title")
> If err <> 0 then
> Title = "TITLE1"
> RewriteTitle(Title)
> End If
> Select Case Title
> Case "TITLE1"
> RewriteTitle ("TITLE2")
> Case "TITLE2"
> RewriteTitle ("TITLE3")
> Case "TITLE3"
> RewriteTitle ("TITLE1")
> End Select
>
> Function RewriteTitle(foostring)
> objShell.RegWrite _
> "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title",
> foostring, "REG_SZ"
> end Function
>
> --------------------------------
>
>

Re: Script question, Doug?

Carl S wrote:
> Doug,
>
> I must not have something installed on my PC because it doesnt
> seem to work for me, even if I copy and paste your code directly.

It's not a .bat (batch file), save it as a .vbs file.


--
DougW

Re: Script question, Doug?

DougW wrote:
> Carl S wrote:
>> Doug,
>>
>> I must not have something installed on my PC because it doesnt
>> seem to work for me, even if I copy and paste your code directly.
>
> It's not a .bat (batch file), save it as a .vbs file.

Heh.. forgot.

You call a .vbs from within a batch file by using

cscript //nologo <filename>.vbs

Running "cscript" in a dos window will give you all
the command lines.

--
DougW

Re: Script question, Doug?

Doug,

It works great! Thanks!

Carl


"DougW" <I.only.read.usenet@invalid.address> wrote in message
news:j1IFi.99089$Vk6.30954@newsfe07.phx...
> DougW wrote:
>> Carl S wrote:
>>> Doug,
>>>
>>> I must not have something installed on my PC because it doesnt
>>> seem to work for me, even if I copy and paste your code directly.
>>
>> It's not a .bat (batch file), save it as a .vbs file.
>
> Heh.. forgot.
>
> You call a .vbs from within a batch file by using
>
> cscript //nologo <filename>.vbs
>
> Running "cscript" in a dos window will give you all
> the command lines.
>
> --
> DougW
>

Re: Script question, Doug?

Doug,

You just made my day. Thanks a lot.

Carl

"DougW" <I.only.read.usenet@invalid.address> wrote in message
news:j1IFi.99089$Vk6.30954@newsfe07.phx...
> DougW wrote:
>> Carl S wrote:
>>> Doug,
>>>
>>> I must not have something installed on my PC because it doesnt
>>> seem to work for me, even if I copy and paste your code directly.
>>
>> It's not a .bat (batch file), save it as a .vbs file.
>
> Heh.. forgot.
>
> You call a .vbs from within a batch file by using
>
> cscript //nologo <filename>.vbs
>
> Running "cscript" in a dos window will give you all
> the command lines.
>
> --
> DougW
>

Re: Script question, Doug?

Carl S wrote:
> Doug,
>
> You just made my day. Thanks a lot.

Not a problem.

--
DougW

Re: Script question, Doug?

Almost forgot, thank you very much for the help thus far!

Carl


"DougW" <I.only.read.usenet@invalid.address> wrote in message
news:VsGFi.64056$xZ2.21974@newsfe10.phx...
> Ugly, but it works.
> mind the wraps.
>
> What it does.
> 1) checks to see if the key is there, if not it creates it.
> You need to have this first key the same as one of your rolling changes
> or it won't work properly.
> 2) Pulls the key and does a case statement to see what to change it to.
> 3) writes that to the registry.
>
> I used a function to clean up the code a bit.
>
> Next would be to use an array and some better error checking
> to make sure things didn't get lost and to make it easier to
> add titles. You could even pull them from a file and use a
> registry key to index the file for next time. :)
>
> Happy scripting.
>
> ----------------------------
>
> Dim objShell, Title
> Set objShell = WScript.CreateObject("WScript.Shell")
> On Error resume next
> Title = objShell.RegRead _
> ("HKCU\Software\Microsoft\Internet Explorer\Main\Window Title")
> If err <> 0 then
> Title = "TITLE1"
> RewriteTitle(Title)
> End If
> Select Case Title
> Case "TITLE1"
> RewriteTitle ("TITLE2")
> Case "TITLE2"
> RewriteTitle ("TITLE3")
> Case "TITLE3"
> RewriteTitle ("TITLE1")
> End Select
>
> Function RewriteTitle(foostring)
> objShell.RegWrite _
> "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title",
> foostring, "REG_SZ"
> end Function
>
> --------------------------------
>
>