OT: Script question, Doug?
#21
Guest
Posts: n/a
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\W indow")
>>>
>>> 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>
> 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\W indow")
>>>
>>> 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>
#22
Guest
Posts: n/a
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
--------------------------------
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
--------------------------------
#23
Guest
Posts: n/a
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
--------------------------------
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
--------------------------------
#24
Guest
Posts: n/a
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
--------------------------------
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
--------------------------------
#25
Guest
Posts: n/a
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
--------------------------------
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
--------------------------------
#26
Guest
Posts: n/a
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
>
> --------------------------------
>
>
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
>
> --------------------------------
>
>
#27
Guest
Posts: n/a
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
>
> --------------------------------
>
>
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
>
> --------------------------------
>
>
#28
Guest
Posts: n/a
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
>
> --------------------------------
>
>
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
>
> --------------------------------
>
>
#29
Guest
Posts: n/a
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
>
> --------------------------------
>
>
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
>
> --------------------------------
>
>
#30
Guest
Posts: n/a
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
>
> --------------------------------
>
>
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
>
> --------------------------------
>
>