這篇文章主要介紹了VBS腳本如何使用WMI操作注冊表，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

創(chuàng)新互聯(lián)公司是專業(yè)的望謨網(wǎng)站建設(shè)公司，望謨接單;提供成都網(wǎng)站設(shè)計、成都做網(wǎng)站,網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行望謨網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath   

oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue   
oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strPath,strValueName,uBinary   
oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues   

oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath   
oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName   

oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue   
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,uBinary   
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues   

'-------------------------------------------------------------------------------------------   

Const HKEY_CLASSES_ROOT = &H80000000   
Const HKEY_CURRENT_USER = &H80000001   
Const HKEY_LOCAL_MACHINE = &H80000002   
Const HKEY_USERS = &H80000003   
Const HKEY_CURRENT_CONFIG = &H80000005   

' 創(chuàng)建注冊表項(xiàng)   
const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set StdOut = WScript.StdOut   
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath   

'創(chuàng)建多字符串值   
const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
strValueName = "Multi String Value Name"  
arrStringValues = Array("first string", "second string",_   
 "third string", "fourth string")   
oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_   
strValueName,arrStringValues   

  
'創(chuàng)建擴(kuò)展的字符串值   
const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
strValueName = "Expanded String Value Name"  
strValue = "%PATHEXT%"  
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   

'創(chuàng)建字符串和 DWORD 值   
const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set StdOut = WScript.StdOut   
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
strValueName = "String Value Name"  
strValue = "string value"  
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue   
strValueName = "DWORD Value Name"  
dwValue = 82   
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue   

  

'刪除注冊表項(xiàng)   

const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath   

  
'刪除注冊表值   

const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\System Admin Scripting Guide"  
strDWORDValueName = "DWORD Value Name"  
strExpandedStringValueName = "Expanded String Value Name"  
strMultiStringValueName = "Multi String Value Name"  
strStringValueName = "String Value Name"  
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,strStringValueName   

  
'枚舉注冊表值和類型   
'枚舉子項(xiàng)   
'列出注冊表文件   
'監(jiān)視注冊表子項(xiàng)事件   
'監(jiān)視注冊表子樹事件   
'讀取二進(jìn)制注冊表值   

const HKEY_LOCAL_MACHINE = &H80000002   
strComputer = "."  
Set StdOut = WScript.StdOut   
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_    
strComputer & "\root\default:StdRegProv")   
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"  
strValueName = "LicenseInfo"  
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_   
strValueName,strValue   
For i = lBound(strValue) to uBound(strValue)   
    StdOut.WriteLine  strValue(i)   
Next

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VBS腳本如何使用WMI操作注冊表”這篇文章對大家有幫助，同時也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!

新聞名稱：VBS腳本如何使用WMI操作注冊表-創(chuàng)新互聯(lián)
標(biāo)題來源：http://chinadenli.net/article26/cdpsjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、營銷型網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)站設(shè)計公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)