标题: [求助]如何用vbs判断计算机类型并修改注册表 [打印本页]

---

作者: crist     时间: 2010-12-18 16:50    标题: [求助]如何用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判断计算机类型并修改注册表）？

---

作者: slore     时间: 2010-12-20 20:59
Wscript.Echo strChassisType ----> chaType = strChassisType


if strChassisType = 3 then
'wshell
'regwrite 方法
...
end if

---

作者: crist     时间: 2010-12-24 17:31
呵呵，能把完整的代码贴上来吗？我太外行了。