{"id":1392,"date":"2017-12-04T08:50:35","date_gmt":"2017-12-04T08:50:35","guid":{"rendered":"http:\/\/www.scmgalaxy.com\/tutorials\/?p=1392"},"modified":"2020-01-09T09:30:03","modified_gmt":"2020-01-09T09:30:03","slug":"vbscript-to-delete-registry-value-data","status":"publish","type":"post","link":"https:\/\/www.devopsschool.com\/blog\/vbscript-to-delete-registry-value-data\/","title":{"rendered":"VbScript To Delete Registry Value Data"},"content":{"rendered":"

deployexpert created the topic: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nHi everyone,<\/p>\n

Need an urgent help. Need a script to delete a registry value. [HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows]
\n“AppInit_DLLs”=”SAMPLE”<\/p>\n

I only want to delete the data value “SAMPlE”<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nSeriously? Well, you asked for it! \ud83d\ude42 www.lmgtfy.com\/?q=vbscript+delete+registry+value <\/a><\/p>\n

deployexpert replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nWhile using the Google hint Ian gave you; you want to set an entry to empty (“”) and not delete it<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nThanks for ur help.
\nI only want to delete the value data = “SAMPLE” if it exist in [HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows]
\n“AppInit_DLLs”=”SAMPLE”<\/p>\n

The AppInit_DLLs has different values in it. Just want to delete the value “SAMPLE” in the value data<\/p>\n

deployexpert replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nAgain, using what Ian pointed to:<\/p>\n

1) read the current value
\n2) If Value = “SAMPLE” then Write value = “”
\n3) (Else do nothing)<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nthis is my script but it does not delete the strvalue.<\/p>\n

Option Explicit
\nConst HKEY_LOCAL_MACHINE = &H80000002<\/p>\n

Dim strComputer
\nDim objRegistry
\nDim strKeyPath
\nDim strValueName
\nDim strValue
\nDim arrValues
\nDim intValue<\/p>\n

strComputer = “.”
\nSet objRegistry=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” &_
\nstrComputer & “\\root\\default:StdRegProv”)<\/p>\n

‘Get String value
\nstrKeyPath = “Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows”
\nstrValueName = “AppInit_DLLs”
\nstrValue = “PGPmapih.dll”
\nobjRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue<\/p>\n

‘Delete String value
\nstrKeyPath = “Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows”
\nstrValueName = “AppInit_DLLs”
\nobjRegistry.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nHi,<\/p>\n

Try the below code and let me know…<\/p>\n

‘
\nConst HKEY_LOCAL_MACHINE = &H80000002
\nstrComputer = “.”<\/p>\n

Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” & _
\n strComputer & “\\root\\default:StdRegProv”)<\/p>\n

strKeyPath = “Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows”
\nstrStringValueName = “AppInit_DLLs”<\/p>\n

oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nTBH, you won’t get very far in packaging without some scripting skills.<\/p>\n

I don’t normally spoon-feed, but what the hell…some array handling for you to pick the bones out of. It’s completely off the top of my head and untested:<\/p>\n

Dim blnResult
\nDim arrRegValue
\nDim strTempRegValue
\nDim strTemp
\nDim intArrayIndex_RegValue
\nDim blnMatchFound<\/p>\n

Const strRegValueSeparator = “,” ‘\/\/ or whatever the values are separated with
\nConst strSearch = “SAMPLE” ‘\/\/ this is the text you want removed from strValue<\/p>\n

arrRegValue = Split(strValue, strRegValueSeparator)<\/p>\n

strTempValue = “”<\/p>\n

For intArrayIndex_RegValue = 0 To UBound(arrRegValue)
\n strTemp = arrRegValue(intArrayIndex_RegValue)
\n blnResult = StringMatch(strTemp, strSearch, blnMatchFound)
\n If blnResult Then
\n If Not blnMatchFound Then
\n ‘\/\/ The strings didn’t match the one we’re searching for so add it to the temporary variable
\n If Len(strTempValue) = 0 Then
\n strTempValue = strTemp<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nDim blnResult
\nDim arrRegValue
\nDim strTempRegValue
\nDim strTemp
\nDim intArrayIndex_RegValue
\nDim blnMatchFound<\/p>\n

Const strRegValueSeparator = “,” '\/\/ or whatever the values are separated with
\nConst strSearch = “SAMPLE” '\/\/ this is the text you want removed from strValue<\/p>\n

arrRegValue = Split(strValue, strRegValueSeparator)<\/p>\n

strTempValue = “”<\/p>\n

For intArrayIndex_RegValue = 0 To UBound(arrRegValue)
\n strTemp = arrRegValue(intArrayIndex_RegValue)
\n blnResult = StringMatch(strTemp, strSearch, blnMatchFound)
\n If blnResult Then
\n If Not blnMatchFound Then
\n '\/\/ The strings didn't match the one we're searching for so add it to the temporary variable
\n If Len(strTempValue) = 0 Then
\n strTempValue = strTemp
\n Else
\n strTempValue = strTempValue & strRegValueSeparator & strTemp
\n End If
\n End If
\n End If
\nNext<\/p>\n

'\/\/ Now write strTempValue to registry<\/p>\n

'\/\/=========================================================================================================
\n'\/\/ Name: StringMatch
\n'\/\/ Purpose: Checks if two strings match
\n'\/\/ Why not use 'If strFirst = strSecond', you're asking?
\n'\/\/ Well, the 'Equals' operator :
\n'\/\/ – is not very fast (at string comparison)!
\n'\/\/ – compares strings left to right and is smart enough to stop comparing when it spots the first difference, but
\n'\/\/ – is too dumb to first do the most obvious test: comparing the lengths of the strings!
\n'\/\/ Input: strFirst – the first string
\n'\/\/ strSecond – the second string
\n'\/\/ blnMatch – a Boolean indicating whether or not the strings matched
\n'\/\/ Output: None
\n'\/\/ Returns: True\/False
\n'\/\/
\n'\/\/=========================================================================================================
\nFunction StringMatch(ByVal strFirst, ByVal strSecond, ByRef blnMatch)<\/p>\n

StringMatch = True<\/p>\n

blnMatch = False<\/p>\n

If LenB(strFirst) = LenB(strSecond) Then
\n blnMatch = (InStrB(1, strFirst, strSecond, vbBinaryCompare) <> 0)
\n End If<\/p>\n

End Function<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\n@VBScab. Tnx so much for ur help. here’s a simple one that works but it deletes the whole value instead of the said value mention in script.
\nDim WSHShell
\nSet WSHShell = WScript.CreateObject(“WScript.Shell”)
\nDim returnval
\nreturnval= WSHShell.RegRead(“HKLM\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\AppInit_DLLs”)<\/p>\n

if instr(returnval, “PGPmapih.dll”) > 0 then
\n‘”PGPmapih.dll” exists so set it to nothing
\nWSHShell.Regwrite “HKLM\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\AppInit_DLLs” , “”
\nend if<\/p>\n

applicationPackaging replied the topic: Re: VBSCRIPT TO DELETE REGISTRY VALUE DATA<\/strong>
\nHi Guys. Tnx all for ur help. Got a working script at the end of the day and sharing it. Script is pasted below.<\/p>\n

‘**********************************************************************************************************************************************
\n‘ This Script performs the following tasks
\n‘ 1. Checks the Users Permissions to the registry
\n‘ 2. If the user has access to write to the registry searches to see if the
\n‘ following registry key exists and return the values: HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\APPINIT_DLLS
\n‘ Searches to see if PGPmapih.dll is a value and strips it out
\n‘ Replaces the PGPmapih.dll with blanks
\n‘ 3. Writes all errors etc… to a log file c:\\winnt\\temp\\pgpmapih_fix.log
\n‘***********************************************************************************************************************************************<\/p>\n

‘**************
\n‘Start of Code
\n‘**************<\/p>\n

On Error Resume Next<\/p>\n

Const ForWriting = 2
\nSet objFSO = CreateObject(“Scripting.FileSystemObject”)
\nSet objFile = objFSO.CreateTextFile(“C:\\WINNT\\Temp\\pgpmapih_fix.log”, ForWriting)<\/p>\n

‘Declare and Set any variables
\npgpvalue = “PGPmapih.dll”
\nconst HKEY_LOCAL_MACHINE = &H80000002
\nstrComputer = “.”
\nSet oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\\\” &_
\nstrComputer & “\\root\\default:StdRegProv”)<\/p>\n

‘ Check Permissions to see if current user can write to registry
\nSet StdOut = WScript.StdOut
\nstrKeyPath = “SYSTEM\\CurrentControlSet”<\/p>\n

oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_QUERY_VALUE, _
\n bHasAccessRight
\nIf bHasAccessRight = True Then
\n objFile.WriteLine (date & ” ” &Time &” User Has Query Value Access Rights”)
\nElse
\n objFile.WriteLine (date & ” ” &Time &” User Does Not Have Query Value Access Rights”)
\nEnd If <\/p>\n

oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_SET_VALUE, _
\n bHasAccessRight
\nIf bHasAccessRight = True Then
\n objFile.WriteLine (date & ” ” &Time &” User Has Set Value Access Rights”)
\nElse
\n objFile.WriteLine (date & ” ” &Time &” User Does not have Set Value Access Rights”)
\nEnd If <\/p>\n

oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_CREATE_SUB_KEY, _
\n bHasAccessRight
\nIf bHasAccessRight = True Then
\n objFile.WriteLine (date & ” ” &Time &” User Has Create SubKey Access Rights”)
\nElse
\n objFile.WriteLine (date & ” ” &Time &” User Does Not Have Set Create Subkey Access Rights”)
\nEnd If<\/p>\n

oReg.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, DELETE, bHasAccessRight
\nIf bHasAccessRight = True Then
\nobjFile.WriteLine (date & ” ” &Time &” User Has Delete Access Rights”)
\nElse
\nobjFile.WriteLine (date & ” ” &Time &” User Does Not have Delete Access Rights”)
\nEnd If<\/p>\n

‘Change Path to PGP One
\nstrKeyPath = “SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows”
\nstrValueName = “AppInit_DLLs”<\/p>\n

‘Search Registry to find the Key
\noReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
\nobjFile.WriteLine (date & ” ” &Time &” Value of Registry Key ” & strvalue)<\/p>\n

if isnull(strKeyPath) then
\nobjFile.WriteLine (date & ” ” &Time &” ERROR: Registry Key Path Not Found”)
\nobjFile.Close
\nwscript.quit
\nelse<\/p>\n

If isNull(strvaluename) then
\nobjFile.WriteLine (date & ” ” &Time &” ERROR: Registry Key Does Not Exist on PC”)
\nobjFile.Close
\nwscript.quit
\nelse<\/p>\n

If strvalue = “” then
\nobjFile.WriteLine (date & ” ” &Time &” Registry Key VALUE Is Blank”)
\nobjFile.WriteLine (date & ” ” &Time &” No Need to Run Script, Now Quitting”)
\nobjFile.Close
\nwscript.quit
\nelse<\/p>\n

objFile.WriteLine (date & ” ” &Time &” Registry Key Found”)<\/p>\n

end if
\nend if<\/p>\n

newstrvalue = instr(strvalue,pgpvalue)
\nif newstrvalue = 0 then
\nobjFile.WriteLine (date & ” ” &Time &” PGP Value not found on machine”)
\nobjFile.WriteLine (date & ” ” &Time &” No Need to Run Script, Now Quitting”)
\nobjFile.Close
\nwscript.quit<\/p>\n

else
\nEnd if
\nnewstrvalue = Replace(strvalue,pgpvalue,””)
\nobjFile.WriteLine (date & ” ” &Time &” Changing Registry key value to: ” & newstrvalue)<\/p>\n

‘Write new Key
\noReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,newstrValue
\nobjFile.WriteLine (date & ” ” &Time &” SUCCESS: Values Written to Registry”)
\nobjFile.WriteLine (date & ” ” &Time &” Closing Script… END…”)
\nEnd if
\nobjFile.Close
\nWscript.quit<\/p>\n","protected":false},"excerpt":{"rendered":"

deployexpert created the topic: VBSCRIPT TO DELETE REGISTRY VALUE DATA Hi everyone, Need an urgent help. Need a script to delete a registry value. [HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Windows] “AppInit_DLLs”=”SAMPLE” I only want… <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_joinchat":[],"footnotes":""},"categories":[49],"tags":[291],"class_list":["post-1392","post","type-post","status-publish","format-standard","hentry","category-general","tag-registry"],"_links":{"self":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/1392","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/comments?post=1392"}],"version-history":[{"count":1,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/1392\/revisions"}],"predecessor-version":[{"id":1393,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/1392\/revisions\/1393"}],"wp:attachment":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media?parent=1392"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/categories?post=1392"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/tags?post=1392"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}