[Summary view] [Print] [Text view]

   1  On Error Resume Next
   2  Set oWsh = CreateObject("WScript.Shell")
   3  Const HKEY_USERS = &H80000003
   4  Const HKEY_LOCAL_MACHINE = &H80000002 
   5  
   6  strComputer = "."
   7  
   8  Set objRegistry = GetObject("winmgmts:\\" & _
   9      strComputer & "\root\default:StdRegProv") 
  10  
  11  Sub DeleteUserSubkeys(strKeyPath) 
  12      objRegistry.EnumKey HKEY_USERS, strKeyPath, arrSubkeys 
  13  
  14      If IsArray(arrSubkeys) Then 
  15          For Each strSubkey In arrSubkeys 
  16              DeleteUserSubkeys strKeyPath & "\" & strSubkey 
  17          Next 
  18      End If 
  19  
  20      objRegistry.DeleteKey HKEY_USERS, strKeyPath 
  21  End Sub
  22  
  23  Sub DeleteLocalSubkeys(strKeyPath) 
  24      objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys 
  25  
  26      If IsArray(arrSubkeys) Then 
  27          For Each strSubkey In arrSubkeys 
  28              DeleteLocalSubkeys strKeyPath & "\" & strSubkey 
  29          Next 
  30      End If 
  31      objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath 
  32  End Sub