关于删除注册表项和子项

本文介绍了关于删除注册表项和子项的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

您好，脚本专家！

我遇到了一个我尝试创建的vbscript问题。我将创建一个脚本，它将从数组中删除registrykeys及其子键。但是当我尝试运行脚本时出现语法错误。有人看到我做错了吗？

脚本将在那里停止子程序开始。 结果： C：\ removeFromRegistry.vbs（31,3）Microsoft VBScript编译错误：语法e rror

最好的问候 Emil

OPTION EXPLICIT Dim RegToDelete，strComputer，objRegistry，strRegPath， arrKeys，strRegHive Const HKEY_CLASSES_ROOT =& H80000000 Const HKEY_CURRENT_USER =& H80000001 Const HKEY_LOCAL_MACHINE =& H80000002 Const HKEY_USERS =& H80000003 Const HKEY_CURRENT_CONFIG =& H80000005 strComputer ="。" RegToDelete = Array（" HKEY_CURRENT_USER \Software\Autodesk \ Inventor \RegistryVersion16.0"，$ " HKEY_LOCAL_MACHINE \Software \ Autodesk \ Invoror \ RegistryVersion16.0"，_ " HKEY_CURRENT_USER \Software\Autodesk \ Inventor\RegistryVersion16.0"，$ " HKEY_CURRENT_USER \Software\Autodesk \ Inventor \RegistryVersion16。 0"，_ " HKEY_CURRENT_USER \Software \Autodesk \ Inventor \RegistryVersion16.0"，$ " HKEY_CURRENT_USER \Software\Autodesk \ Inventor \RegistryVersion16.0" _ ） 设置objRegistry = GetObject（" winmgmts：\\"& _ strComputer&" \root \ default：StdRegProv" ） 每个strRegPath在RegToDelete strRegHive = Left（strRegPath，17） strRegPath = Replace（strRegPath，" HKEY_CURRENT_USER \"，""） DeleteSubkeys strRegHive，strRegPath Sub DeleteSubkeys（strRegHive，strRegPath） objRegistry.EnumKey strRegHive，strRegPath，arrSubkeys If IsArray（arrSubkeys）Then For each strSubkey in arrSubkeys DeleteSubkeys strRegHive，strRegPath& " \" &安培; strSubkey Next End if 'objRegistry.DeleteKey Left（strRegPath，18），Replace（strRegPath，" HKEY_CURRENT_USER"，""），arrSubkeys& " \" &安培; strSubkey 结束子 下一个

// Emil

解决方案

嗨aramiz，

抱歉，你的论坛错误。

试试：http：//social.technet.microsoft/Forums/en-US/ITCG /线程

Hello, scripting gurus!

I have got some problem with one of mine vbscript I tried to create. I will create a script that will remove registrykeys and it's subkeys from an array. But got syntax error when I try to run the script. Do someone see what I'm doing wrong?

Script will stop at line there Subroutine begin. Result: C:\removeFromRegistry.vbs(31, 3) Microsoft VBScript compilation error: Syntax e rror

Best Regards Emil

OPTION EXPLICIT Dim RegToDelete, strComputer, objRegistry, strRegPath, arrKeys, strRegHive Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H80000005 strComputer = "." RegToDelete = Array("HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion16.0",_ "HKEY_LOCAL_MACHINE\Software\Autodesk\Inventor\RegistryVersion16.0",_ "HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion16.0",_ "HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion16.0",_ "HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion16.0",_ "HKEY_CURRENT_USER\Software\Autodesk\Inventor\RegistryVersion16.0"_ ) Set objRegistry = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") For Each strRegPath In RegToDelete strRegHive = Left(strRegPath, 17) strRegPath = Replace(strRegPath, "HKEY_CURRENT_USER\", "") DeleteSubkeys strRegHive, strRegPath Sub DeleteSubkeys(strRegHive, strRegPath) objRegistry.EnumKey strRegHive, strRegPath, arrSubkeys If IsArray(arrSubkeys) Then For Each strSubkey In arrSubkeys DeleteSubkeys strRegHive, strRegPath & "\" & strSubkey Next End If 'objRegistry.DeleteKey Left(strRegPath, 18),Replace(strRegPath, "HKEY_CURRENT_USER", ""), arrSubkeys & "\" & strSubkey End Sub Next

// Emil

解决方案

Hi aramiz,

Sorry, but you got the wrong forum.

Try: social.technet.microsoft/Forums/en-US/ITCG/threads