快速业务通道

用vbs实现更改计算机的说明的代码

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09

问:
您好,脚本专家!在使用Windows资源管理器连接到远程计算机时,可以在“详细信息”窗格中看见该计算机的说明。如何更改计算机的说明?
--GF
答:
您好,GF。只是为了确保每个人都清楚我们谈论的内容,我们不会谈论ActiveDirectory中的“说明”属性,而是谈论在整个网络范围内广播的计算机说明。(如果您真正想知道的是如何更改ActiveDirectory中的“说明”属性,请参阅此“您好,脚本专家!”专栏。)
例如,在WindowsXP中,您可通过执行以下操作来查看计算机说明:右键单击“我的电脑”,单击“属性”,然后查看“系统属性”对话框的“计算机名称”选项卡中的内容:
如您所述,如果使用Windows资源管理器连接到该计算机,则该说明还会出现在“详细信息”窗格中:
我们也认为这很令人兴奋。
那么如何更改计算机说明呢?是这样,您可以启动Regedit.exe,然后手动更改注册表值HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\parameters\srvcomment。或运行与以下脚本类似的脚本即可:

复制代码 代码如下:

ConstHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetobjRegistry=GetObject_
("winmgmts:\\"&strComputer&"\root\default:StdRegProv")
strKeyPath="System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName="srvcomment"
strDescription="Descriptionchangedprogrammatically"
objRegistry.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strDescription
这当然容易啦;相处了这么长时间,您真的认为我们会突然开始为您的问题提供复杂而又费解的答案吗?我们先是定义一个名为HKEY_LOCAL_MACHINE的常量并将其值设置为&H80000002;过一会儿,我们将使用此常量来告诉脚本我们要处理的注册表配置单元。然后,我们连接到WMI服务(在本例中,它位于本地计算机上,不过修改远程计算机上注册表的操作也差不多同样简单),并绑定到StdRegProv类。(而该类(正如我们所不厌其烦地告诉大家的)恰好位于root\default命名空间中。)
接下来,我们为三个变量赋值:
strKeyPath="System\CurrentControlSet\Services\lanmanserver\parameters"
strValueName="srvcomment"
strDescription="Descriptionchangedprogrammtically"
变量strKeyPath表示注册表HKEY_LOCAL_MACHINE部分内的路径;strValueName表示要更改的注册表值(srvcomment);还有strDescription,没错:strDescription表示新的计算机说明。您的观察力很敏锐。
注意:我们想要说的是,你们在这方面要比我们强得多,但我们不想让经理对此有任何了解。的确如此:对于一位Microsoft经理来说,了解情况将是最为重要的!
现在我们所要做的就是调用SetStringValue方法,同时将HKEY_LOCAL_MACHINE和我们的三个变量作为方法参数进行传递:
objRegistry.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strDescription
像这样的脚本真的确实会使生活变得有意义,不是吗?
注意:请注意,即使是在注册表中进行此更改,新说明可能仍要在计算机重新启动后才会生效。这只不过是一个需要注意的地方。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号