中国DOS联盟

想通过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判断计算机类型并修改注册表）？

Wscript.Echo strChassisType ----> chaType = strChassisType


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

呵呵，能把完整的代码贴上来吗？我太外行了。