Setting Automatic Updates via the registry in XP/2000.

[Ty Moffett]

Below is a set of insructions that changes the registry keys pertaining to
Automatic Updates on my Windows XP box.

I can make changes using the control panel applet and see the changes
reflected via regedit.exe. However when I make the changes with the code
below those changed are NOT reflected in the control panel applet even
though they are actully being set.

Does anyone have any experience with this?

Thanks again!

Imports Microsoft.Win32

Module Module1

Sub Main()

Dim rk As RegistryKey =
Registry.LocalM achine.CreateSu bKey("Software\ Microsoft\Windo ws\CurrentVersi o
n\WindowsUpdate \Auto Update")

rk.SetValue("No AutoUpdate", 0)

rk.SetValue("AU Options", 4)

rk.SetValue("Sc heduledInstallT ime", 12)

rk.SetValue("Sc heduledInstallD ay", 0)

End Sub

End Module

[Shawn D Shelton]

Hi Ty,

try putting in double backslashes like this:

Dim Reg As RegistryKey
Dim keyValue As String

keyValue =
"Software\\Micr osoft\\Windows\ \CurrentVersion \\WindowsUpdate \\Auto Update"

Reg = Registry.Curren tUser.OpenSubKe y(keyValue, True)
If Reg Is Nothing Then
' Key doesn't exist; create it.
Reg = Registry.Curren tUser.CreateSub Key(keyValue)
End If

reg.SetValue("N oAutoUpdate", 0)
reg.SetValue("A UOptions", 4)
reg.SetValue("S cheduledInstall Time", 12)
reg.SetValue("S cheduledInstall Day", 0)

****You might have to reboot the machine to load the changed registry so
that the changes are reflected in the control panel applet***

Good Luck!

Shawn Shelton

Ty Moffett wrote:

Below is a set of insructions that changes the registry keys pertaining to
Automatic Updates on my Windows XP box.

I can make changes using the control panel applet and see the changes
reflected via regedit.exe. However when I make the changes with the code
below those changed are NOT reflected in the control panel applet even
though they are actully being set.

Does anyone have any experience with this?

Thanks again!

Imports Microsoft.Win32

Module Module1

Sub Main()

Dim rk As RegistryKey =
Registry.LocalM achine.CreateSu bKey("Software\ Microsoft\Windo ws\CurrentVersi o
n\WindowsUpdate \Auto Update")

rk.SetValue("No AutoUpdate", 0)

rk.SetValue("AU Options", 4)

rk.SetValue("Sc heduledInstallT ime", 12)

rk.SetValue("Sc heduledInstallD ay", 0)

End Sub

End Module

[Ty Moffett]

It's always the small stuff. After a reboot the control panel showed the
right information.

Thanks Shawn. =)

"Shawn D Shelton" <sh******@isu.e du> wrote in message
news:uv******** ******@TK2MSFTN GP12.phx.gbl...

Hi Ty,

try putting in double backslashes like this:

Dim Reg As RegistryKey
Dim keyValue As String

keyValue =
"Software\\Micr osoft\\Windows\ \CurrentVersion \\WindowsUpdate \\Auto Update"

Reg = Registry.Curren tUser.OpenSubKe y(keyValue, True)
If Reg Is Nothing Then
' Key doesn't exist; create it.
Reg = Registry.Curren tUser.CreateSub Key(keyValue)
End If

reg.SetValue("N oAutoUpdate", 0)
reg.SetValue("A UOptions", 4)
reg.SetValue("S cheduledInstall Time", 12)
reg.SetValue("S cheduledInstall Day", 0)

****You might have to reboot the machine to load the changed registry so
that the changes are reflected in the control panel applet***

Good Luck!

Shawn Shelton

Ty Moffett wrote:

Below is a set of insructions that changes the registry keys pertaining to Automatic Updates on my Windows XP box.

I can make changes using the control panel applet and see the changes
reflected via regedit.exe. However when I make the changes with the code below those changed are NOT reflected in the control panel applet even
though they are actully being set.

Does anyone have any experience with this?

Thanks again!

Imports Microsoft.Win32

Module Module1

Sub Main()

Dim rk As RegistryKey =
Registry.LocalM achine.CreateSu bKey("Software\ Microsoft\Windo ws\CurrentVersi o n\WindowsUpdate \Auto Update")

rk.SetValue("No AutoUpdate", 0)

rk.SetValue("AU Options", 4)

rk.SetValue("Sc heduledInstallT ime", 12)

rk.SetValue("Sc heduledInstallD ay", 0)

End Sub

End Module