中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]如何用vbs判断计算机类型并修改注册表

crist
新手上路

积分 18
发帖 11
注册 2006-8-17
状态离线

『楼主』: [求助]如何用vbs判断计算机类型并修改注册表

想通过vbs判断计算机类型，然后根据vbs返回的结果修改注册表。有人知道要如何写代码吗？

例如判断计算机类型的vbs代码：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
For Each strChassisType in objChassis.ChassisTypes
Wscript.Echo strChassisType
Next
Next

如果vbs返回结果是3，则修改注册表项"HKEY_USERS\.DEFAULT\Control Panel\Keyboard" 值"InitialKeyboardIndicators" 数据为"2"

请问应该如何将以上构想做成一个vbs文件（直接通过该vbs判断计算机类型并修改注册表）？

2010-12-18 16:50