Re: computer startup script

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Josh (josh.stinson_at_ipsos-na.com)
Date: 04/29/04 

Date: Thu, 29 Apr 2004 19:13:43 -0400

I thought it might also be good to add something else in. The script should
check to make sure that the 11.0 folder is there. Some users have office
2000 and outlook 2003. So if they were not upgrade to outlook 2003 yet the
11.0 folder might not be there. This is what I thought I should use but it
doesnt work. Did I mis type something?

Again thanks

Dim WshShell, sRegValue,sRegKey
Set WshShell = CreateObject("WScript.Shell")

sRegKey = "HKLM\Software\Microsoft\Office\11.0"
sRegValue = "HKLM\Software\Microsoft\Office\11.0\Outlook\ForceFormReload"

If Not RegKey And RegValueExists(sRegValue) Then
    WSHShell.RegWrite sRegValue, 1 ,"REG_DWORD"
End If

Function RegValueExists(sRegValue)
    ' Returns True or False based of the existence of a registry value.
    Dim oShell, RegReadReturn
    Set oShell = CreateObject("WScript.Shell")
    RegValueExists = True ' init value
    On Error Resume Next
    RegReadReturn = oShell.RegRead(sRegValue)
    If Err.Number <> 0 Then
      RegValueExists = False
    End if
    On Error Goto 0
End Function

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

"Josh" <josh.stinson@ipsos-na.com> wrote in message
news:%23U2mqvjLEHA.892@TK2MSFTNGP09.phx.gbl...
> thank you so much.. That works great. I am new to vbscripting. I have
been
> using kixtart so I am now learning a new syntax. I just bought the
windows
> 2000 scripting bible. Thanks again.
>
> "Torgeir Bakken (MVP)" <Torgeir.Bakken-spam@hydro.com> wrote in message
> news:ewzePKjLEHA.1644@TK2MSFTNGP09.phx.gbl...
> > Josh wrote:
> >
> > > I am trying to write a computer startup script that will be pushed out
> > > through group policy. I want to check if a key exist in the registry.
> If
> > > it does then exit if not add the key.
> > Hi
> >
> > Note that your script is working against a registry value
> > and not a key.
> >
> > I use a function RegValueExists to test if a value exists
> > or not, here is a rewritten version of your script that
> > uses this function:
> >
> >
> >
> > Dim WshShell, sRegValue
> > Set WshShell = CreateObject("WScript.Shell")
> >
> > sRegValue = "HKLM\Software\Microsoft\Office\11.0\Outlook\ForceForm"
> >
> > If Not RegValueExists(sRegValue) Then
> > WSHShell.RegWrite sRegValue, 1 ,"REG_DWORD"
> > End If
> >
> >
> > Function RegValueExists(sRegValue)
> > ' Returns True or False based of the existence of a registry value.
> > Dim oShell, RegReadReturn
> > Set oShell = CreateObject("WScript.Shell")
> > RegValueExists = True ' init value
> > On Error Resume Next
> > RegReadReturn = oShell.RegRead(sRegValue)
> > If Err.Number <> 0 Then
> > RegValueExists = False
> > End if
> > On Error Goto 0
> > End Function
> >
> >
> >
> > --
> > torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
> > Administration scripting examples and an ONLINE version of
> > the 1328 page Scripting Guide:
> > http://www.microsoft.com/technet/community/scriptcenter/default.mspx
>
>

Relevant Pages

  • Re: User account and Personal folder mismatch script
    ... I believe you want a script that can be run by an administrator that will ... The script above only documents if a home folder has been assigned. ... > End Sub ...
    (microsoft.public.scripting.vbscript)
  • Input on CleanUp script
    ... Since I'm going to be using this script in a production environment, ... If the script is used with a backup folder ... var strTargetFolder, strBackupFolder, args0, args1, args2, noArgs; ...
    (microsoft.public.scripting.wsh)
  • Input on CleanUp script
    ... Since I'm going to be using this script in a production environment, ... If the script is used with a backup folder ... var strTargetFolder, strBackupFolder, args0, args1, args2, noArgs; ...
    (microsoft.public.scripting.jscript)
  • Re: Disappearing Links
    ... I believe someone has a script for rebuilding links but I'm unable to find it at the moment. ... It could be adapted to trawl through the whole mail folder tree - if you really need that, ... -- to any contacts in the address book that match the sender of the messages ... set theSelection to selection ...
    (microsoft.public.mac.office.entourage)
  • Re: OT:macros or software?
    ... when a .PDF file is stored there, ... words and depending on weather those words are found in that document, move it to a predetermined folder. ... Easy enough if it were a text document, or even Word, as you could write a DOS script, or a VBS script if you had to load Word to read Word documents, although writing such a script can be harder to a beginner than some might think. ... OK the goal is to put the numerous files scattered everywhere on the computer at work into easy to use folders for my staff to access simply. ...
    (uk.comp.homebuilt)