中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 注册表中二进制读取问题(VBS)

snowhill
新手上路

积分 11
发帖 6
注册 2008-2-18
状态离线

『楼主』: 注册表中二进制读取问题(VBS)

'Date 2008-3-15 BY:snowhill
dim wshshell,result,enable,disable,warnning,answer
enable="Now,the usb is avaliable!"
disable="Now,the sub is disable!"
warning="Warning!"
key="HKLM\system\currentcontrolset\services\usbstor\Start"
set wshshell=wscript.createObject("wscript.shell")
result= wshshell.RegRead(key)
if( result=4) then
  answer=msgbox (disable&"are you want to enable the usb device?",1,Warnning)
if (answer=1) then
wshshell.Regwrite key,3,"REG_DWORD"
end if
end if
if result="3" then
  answer=msgbox(enable&"are you want to disable the usb device?",1,warnning)
  if(answer=1)then
  wshshell.Regwrite key,4,"REG_DWORD"
  end if
end if
当读DWORD值是肯定没问题地,但读BINARY值就不行,哪位高手知道如何处理REG_BINARY问题啊.msgbox alltrim(str(result(1)))这是微软官网上的一个处理办法但行不通

2008-3-15 16:00

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 2 楼』:

vbs中，读取REG_BINARY的返回值是以数组形式的

2008-3-15 16:12

(470237592)

snowhill
新手上路

积分 11
发帖 6
注册 2008-2-18
状态离线

『第 3 楼』:

REG_BINARy返回值是以数组形式的,我怎么处理里面的值呢?能不能给一个实例.怎么改写里面的数据.

2008-3-21 14:09

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 4 楼』:

set ws=createobject("wscript.shell")
arr=ws.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Security\Security")
for each ar in arr
msgbox ar
next

2008-3-21 14:43

(470237592)

snowhill
新手上路

积分 11
发帖 6
注册 2008-2-18
状态离线

『第 5 楼』:

谢了,ABCD

2008-3-21 20:34

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: