strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem")For Each objComputer in colComputers err = ObjComputer.Rename("WebServer") Wscript.Echo errNext

(1960) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的