OT: 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

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

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:

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

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.

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

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

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

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

Carl

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 .vbs

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

Doug,

It works great! Thanks!

Carl

Doug,

You just made my day. Thanks a lot.

Carl

Not a problem.