MDT Scripting: Deleting Registry Keys

A lot has happened since I wrote my articles on MDT Scripting last year. For one thing, I’ve learned how to compile my code in a script block on my blog.

Two of my readers have asked about deleting registry keys using MDT Scripts but there does not appear to be a function for it in the ZTIUtility.vbs.

I’ve knocked up something quickly. It’s a simple function devoid of error handling. It will delete a key named  “HKEY_LOCAL_MACHINE\SOFTWARE\ScriptimusExMachina\Unwanted Registry Key”

To Delete a Registry Key

<job id="Z-Sample">
<script language="VBScript" src="ZTIUtility.vbs"/>
<script language="VBScript">
' //***************************************************************************
' //
' // Solution: Scriptimus Ex Machina - Example Script
' // File: ZTI-Delete-Key.wsf
' //
' // Purpose: This script will delete a Registry Key
' //
' // Usage: cscript ZTI-Delete-Key.wsf [/debug:true]
' //
' // Customer Build Version: 1.0.0
' // Customer Script Version: 1.0.0
' // Customer History:
' //
' // ***** End Header *****
' //***************************************************************************
'//----------------------------------------------------------------------------
'//
'// Global constant and variable declarations
'//
'//----------------------------------------------------------------------------
Option Explicit
Dim iRetVal
'//----------------------------------------------------------------------------
'// End declarations
'//----------------------------------------------------------------------------
'//----------------------------------------------------------------------------
'// Main routine
'//----------------------------------------------------------------------------
On Error Resume Next
iRetVal = ZTIProcess
ProcessResults iRetVal
On Error Goto 0
'//---------------------------------------------------------------------------
'//
'// Function: ZTIProcess()
'//
'// Input: None
'//
'// Return: Success - 0
'// Failure - non-zero
'//
'// Purpose: Perform main ZTI processing
'//
'//---------------------------------------------------------------------------
' To Delete a Registry Key Value
Function RegDelete( sRegValue )
	RegDelete = oShell.RegDelete ( sRegValue )
end Function

Function ZTIProcess()

     iRetVal = Success
     ZTIProcess = iRetval
		' Call function and delete key
		Dim sRegDeleteValue, sRegKey
		sRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\ScriptimusExMachina\Unwanted Registry Key"
		oLogging.CreateEntry "Preparing to delete Registry key " & sRegKey, LogTypeInfo
		sRegDeleteValue=regDelete(sRegKey)
End Function
</script>
</job>

Any issues with this, remember to read my first article Hello World.