Script to Delete RegKeys

[FN-GM]

Hi,

 

Does anyone have a simple script that will delete all keys (folders) in the below registry location please?

 

HKEY_LOCAL_MACHINE\System\CurentControlSet\Control \Print\Connections\

 

Thank You

[srochford]

Hey, Scripting Guy!: How Can I Delete a Key and its Subkeys from the Registry?

[FN-GM]

Sorry i missed some out

 

I would like a script that will delete all keys in the above area but only when a server replies to a ping.

 

Also i dont want the connections key deleting just the ones under that.

 

Sorry to mess you around

 

Thanks

Edited August 26, 2010 by FN-GM

[somabc]

VBScript - ping computer before vbscript execution

 

You can also use WMI

 

Testing IP Connectivity With WMI — ServerWatch.com

[maniac]

As an alturnative to a ping, which I never got working properly in VB script for some reason, create a single hidden read only share on the server with just a txt file in it, then you can simply use an "if file exists" statement with the full UNC path to see if the script can see the share, and thus the server - I use this to determine whether a member of staffs laptop is on the school network or not when they logon, and thus change the proxy settings accordingly.

 

Mike.

Edited August 26, 2010 by maniac

[FN-GM]

Hi,

 

For now i am using the below script to delete the subkeys only. But it doesnt work. Can anyone see why please?

 

Thanks

 

On Error Resume Next 

Const HKEY_LOCAL_MACHINE = &H80000001 

strComputer = "."
strKeyPath = "SYSTEM\CurrentControlSet\Control\Print\Connections" 

Set objRegistry = GetObject("winmgmts:\\" & _
   strComputer & "\root\default:StdRegProv") 

DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath 

Sub DeleteSubkeys(HKEY_LOCAL_MACHINE, strKeyPath) 
   objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys 

   If IsArray(arrSubkeys) Then 
       For Each strSubkey In arrSubkeys 
           DeleteSubkeys HKEY_LOCAL_MACHINE, strKeyPath & "\" & strSubkey 
       Next 
   End If 

'    objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath 
End Sub

[maniac]

Have you taken the 'on error resume next' statement out and seen what errors it produces?

[srochford]

It doesn't work because you've commented out the line which makes it work ...

 

What it's doing is recursively calling the DeleteSubkeys routine and you need that last line otherwise it won't delete the low level keys.

 

I think you could do:

 

if strKeyPath<>"SYSTEM\CurrentControlSet\Control\Print\Connections" then 
   objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath 
end if

 

but try this on a sacrificial machine first!