vbs刪除注冊(cè)表項(xiàng)的代碼
更新時(shí)間：2008年06月15日 20:24:21 作者：
一般我們刪除注冊(cè)表時(shí)這個(gè)是另外一個(gè)方法，這個(gè)是結(jié)合系統(tǒng)
WScript.Echo "Enabling Kerberos Logging..."
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\999"
strDWORDValueName = "DWORD Value Name"
strExpandedStringValueName = "Expanded String Value Name"
strMultiStringValueName = "Multi String Value Name"
strStringValueName = "String Value Name"
strValueName = "strValueName"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,StringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName
WScript.Echo "-=[Complete!]=-"
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\999"
strDWORDValueName = "DWORD Value Name"
strExpandedStringValueName = "Expanded String Value Name"
strMultiStringValueName = "Multi String Value Name"
strStringValueName = "String Value Name"
strValueName = "strValueName"
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,StringValueName
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName
WScript.Echo "-=[Complete!]=-"
相關(guān)文章
遠(yuǎn)程啟動(dòng)終端服務(wù)的windows腳本ROTS.vbs
遠(yuǎn)程啟動(dòng)終端服務(wù)的windows腳本ROTS.vbs...2007-02-02
打開QQ并且讓它自己輸入用戶名和密碼的vbs腳本...2007-02-02
VBS教程：屬性-DateLastAccessed 屬性...2006-11-11
VBS教程：VBScript 語句-ReDim 語句...2006-11-11
VBScript語言提供了兩個(gè)語句和一個(gè)對(duì)象來處理"運(yùn)行時(shí)錯(cuò)誤"，如下，1.On Error Resume Next語句,2.On Error Goto 0語句,3.Err對(duì)象,下面我們就來詳細(xì)探討下。2015-05-05
管理網(wǎng)卡的vbs腳本2008-04-04
vbscript的骨灰級(jí)寫法計(jì)算1到100的和
vbscript的骨灰級(jí)寫法計(jì)算1到100的和的代碼,實(shí)現(xiàn)的比較不錯(cuò)2012-05-05
用VBScript實(shí)現(xiàn)解壓縮目錄中的所有文件(Zip)
下面的代碼主要是解壓縮目錄中的所有zip格式文件的實(shí)現(xiàn)代碼，需要的朋友可以參考下2012-01-01
下面的vbs類雖然簡(jiǎn)單，但也看出來，vbs類的原理，大家可以根據(jù)自己的需要編寫2008-05-05
非常不錯(cuò)的用vbs實(shí)現(xiàn)選擇文件夾方法2008-08-08