xp tips from kelly
- slacker361
- Posts: 359
- Joined: Mon Feb 18, 2002 7:55 pm
xp tips from kelly
this equipment list isnt current please ignore MSI kt7 133amobo,AMD Athalon 1Ghz g3Ti200 Pro td 128, 1gig pc133, 2 40gig hd, wireless network,dlink,HP Photsmart 7150,Kodak easyshare ls433 camera,Dazzle dvd creation station 200...... windows XP sp1+more to follow
- slacker361
- Posts: 359
- Joined: Mon Feb 18, 2002 7:55 pm
the one doesnt work and its a good one too anyone any good with script???
here it is
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, cn
Dim itemtype
p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\"
cn = ws.RegRead(p1 & "Window Title")
t = "Change Provided By or Whole Title for IE"
cn = InputBox("Type New Caption and click OK", t, n)
If cn <> "" Then
ws.RegWrite p1 & "Window Title", cn
End If
here it is
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, cn
Dim itemtype
p1 = "HKCU\Software\Microsoft\Internet Explorer\Main\"
cn = ws.RegRead(p1 & "Window Title")
t = "Change Provided By or Whole Title for IE"
cn = InputBox("Type New Caption and click OK", t, n)
If cn <> "" Then
ws.RegWrite p1 & "Window Title", cn
End If
this equipment list isnt current please ignore MSI kt7 133amobo,AMD Athalon 1Ghz g3Ti200 Pro td 128, 1gig pc133, 2 40gig hd, wireless network,dlink,HP Photsmart 7150,Kodak easyshare ls433 camera,Dazzle dvd creation station 200...... windows XP sp1+more to follow