VBScript: RegKey mit SubKeys über WMI löschen

  • VBScript

    VBScript: RegKey mit SubKeys über WMI löschen

    Hallo zusammen

    Ich habe einen Code mit dem ich Registry Keys oder Values aus der Registry über WMI löschen kann.

    Ich habe WMI gewählt, damit ich über die Variable "sArchtct" die 32bit oder 64bit Registry auslesen kann.

    Meine Frage: Wie kann ich einen Registry Key mit Subkeys über WMI löschen?
    Muss ich die Subkeys zuerst über die Methode EnumKey auslesen und dann einzeln löschen?

    Habt ihr dies schon einmal gemacht?

    Vielen Dank für die Unterstützung!

    VB.NET-Quellcode

    1. Function DelReg64(sRegHive, sRegKey, sRegValue, sArchtct)
    3. Dim objCtx, objLocator, objServices, objStdRegProv, Inparams, Outparams
    4. Dim Method
    5. On Error resume Next
    7. Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
    8. objCtx.Add "__ProviderArchitecture", sArchtct
    10. Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
    11. Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
    12. Set objStdRegProv = objServices.Get("StdRegProv")
    13. Select Case sRegValue
    14. Case ""
    15. Method = "DeleteKey"
    16. Set Inparams = objStdRegProv.Methods_(Method).Inparameters
    17. Inparams.Hdefkey = sRegHive
    18. Inparams.Ssubkeyname = sRegKey
    19. Set Outparams = objStdRegProv.ExecMethod_(Method,Inparams,,objCtx)
    20. Case Else
    21. Method = "DeleteValue"
    22. Set Inparams = objStdRegProv.Methods_(Method).Inparameters
    23. Inparams.Hdefkey = sRegHive
    24. Inparams.Ssubkeyname = sRegKey
    25. Inparams.Svaluename = sRegValue
    26. Set Outparams = objStdRegProv.ExecMethod_(Method,Inparams,,objCtx)
    27. End Select
    29. DelReg64 = Outparams.ReturnValue
    31. set objCtx = Nothing
    32. set objLocator = Nothing
    34. End Function