VBS脚本使用WMI操作注册表的代码第1/2页

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   

' 创建注册表项   
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   

'创建多字符串值   
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   

  
'创建扩展的字符串值   
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   

'创建字符串和 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   

  

'删除注册表项   

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   

  
'枚举注册表值和类型   
'枚举子项   
'列出注册表文件   
'监视注册表子项事件   
'监视注册表子树事件   
'读取二进制注册表值   

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   
  

1