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

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


代码如下:

Const HKEY_LOCAL_MACHINE = &H80000002 
strComputer = "." 
Set objRegistry = GetObject _ 
    ("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters" 
strValueName = "srvcomment" 
strDescription = "Description changed programmatically" 
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription

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

赞 (0)

相关推荐

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

    问: 您好,脚本专家!在使用 Windows 资源管理器连接到远程计算机时,可以在"详细信息"窗格中看见该计算机的说明.如何更改计算机的说明? -- GF 答: 您好,GF.只是为了确保每个人都清楚我们谈论的内容,我们不会谈论 Active Directory 中的"说明"属性,而是谈论在整个网络范围内广播的计算机说明.(如果您真正想知道的是如何更改 Active Directory 中的"说明"属性,请参阅此"您好,脚本专家!&quo

  • vbs中关于计算机名的相关讨论

    原文:http://www.opencjk.org/~scz/ 关于计算机名的相关讨论 http://www.opencjk.org/~scz/windows/200603151441.txt Q: 我的电脑->属性->计算机名->计算机描述,我想改动这里,但它是灰色不可写的. A: 如果lanmanserver service未启用,就会这样.执行"net start srv"即可. Q: 我想修改所属工作组,但那里是灰色不可写的. A: 如果lanmanworks

  • 用vbs实现防止计算机使用 LMHosts 文件

    用vbs实现防止计算机使用 LMHosts 文件

    问: 您好,脚本专家!如何防止计算机使用 LMHosts 文件? -- MJ 答: 您好,MJ.您知道,这是个有趣的问题,至少对"脚本专家"来说是这样.不是因为脚本难以编写:这实际上非常简单.困难的是(至少对我们来说)在 Windows GUI 中找到 LMHosts 设置:这是我们需要做的,以便我们可以验证脚本实际上起作用.在一段盲目的查找之后(这对"脚本专家"来说很寻常)我们最终找到了要找的东西: 以防您与"脚本专家"一样一窍不通(对于您来说

  • 用vbs实现判断计算机是笔记本还是台式机的代码

    ChassisTypes 属性可以告诉您,您使用的是笔记本电脑.台式计算机还是其他类型的计算机.哦,输入.以下脚本可以让您知道您使用的是哪种类型的计算机: 复制代码 代码如下: strComputer = "."  Set objWMIService = GetObject("winmgmts:" _  & "{impersonationLevel=impersonate}!\\" & strComputer & &quo

  • 利用VBS脚本自动创建计算机帐户的代码

    mcse注:其实这是 按照ADSI(Active Directory Services Interface:活动目录服务接口)写的程序.如果你安装了resource kit,这段代码可以用netcom这条命令进行工作,下面是netcom的一个例子: NETDOM /Domain:MYDOMAIN /user:adminuser /password:apassword MEMBER MYCOMPUTER /ADD 复制代码 代码如下: *********************** '* Star

  • VBS 强制关闭Symantec Endpoint Protection的代码

    使用这个脚本,可以随时让它歇下来.当然也可以让它继续工作.前提是,你必须是本机管理员.这个脚本使用一各很过时的终止程序方法:ntsd.exe -c q -p ProcessID.所以以前有过一个bat版,之所以用VBS是因为效率高一点,而且没有太多的黑色窗口.主要思想是:循环终止程序+停止服务 代码如下: 复制代码 代码如下: 'On Error Resume Next' 检查操作系统版本Call CheckOS()Call MeEncoder() ' 程序初始化,取得参数If WScript.

  • 使用VBS实现Hosts文件一键配置实现代码

    先说一下怎么样进入hosts文件,Windows环境(我用的是一个32位的Win7)下hosts文件在计算机中的位置,在目录%windir%\System32\drivers\etc\,文件名为hosts,没有扩展名.不过相比每次都要点很多目录才能找到hosts文件,我们可以通过执行下面这个bat脚本直接用记事本打开hosts文件: @echo off if "%1" == "h" goto begin mshta vbscript:createobject(&qu

  • 利用VBS脚本修改联想笔记本BIOS密码的代码分享

    利用VBS脚本修改联想笔记本BIOS密码的代码分享

    这不科学!无意中找到的一些资料: vbs 代码: 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") ' Obtain an instance of the the class ' using a key property value. Set objShare = objWMIS

  • VBS调用Photoshop批量生成缩略图的代码

    模仿腾讯新闻页,给KingCms添加了新闻页图片点播的代码,代码要求的图片点播格式如下: 0###http://www.website.org/UploadFile/123.jpg@@@/small/123.gif@@@8标题一***http://www.website.org/UploadFile/456.jpg@@@/small/456.gif@@@标题二***http://www.website.org/UploadFile/789.jpg@@@/small/789.gif@@@标题三 格

  • 用vbs控制iis创建虚拟目录的代码

    参照了Inetpub\AdminScripts\adsutil.vbs写的创建虚拟目录的脚本: 复制代码 代码如下: '////////////////////////// begin ////////////////////////////////////////// On Error Resume Next   strVirtualDirectoryName = InputBox("请输入虚拟目录名")   If strVirtualDirectoryName = "&q

随机推荐