用vbs实现更改计算机的说明的代码_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
像这样的脚本真的确实会使生活变得有意义,不是吗?
注意:请注意,即使是在注册表中进行此更改,新说明可能仍要在计算机重新启动后才会生效。这只不过是一个需要注意的地方。

时间: 2024-09-24 21:09:40

用vbs实现更改计算机的说明的代码_vbs的相关文章

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

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

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

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

Vbs COM之打开/保存文件脚本代码_vbs

您先把如下的代码复制,然后保存为FileSave.vbs,双击打开,您看到了什么呢? 复制代码 代码如下: Set objDialog = CreateObject("SAFRCFileDlg.FileSave") Set fso = CreateObject("Scripting.FileSystemObject") objDialog.FileName = "test" objDialog.FileType = ".txt"

用vbs实现不死帐号的代码_vbs

先建立一个VBS文件内容如下: dim wsh  set wsh=CreateObject("WScript.Shell") wsh.run "net user guest /active:yes",0 wsh.run "net user guest admin",0 wsh.run "net localgroup administrators guest /add",0 上面一段VBS的意思就是激活GUEST帐号,并且加为高

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

模仿腾讯新闻页,给KingCms添加了新闻页图片点播的代码,代码要求的图片点播格式如下: 0###yun_qi_img/@@@/small/123.gif@@@8标题一***yun_qi_img/@@@/small/456.gif@@@标题二***yun_qi_img/@@@/small/789.gif@@@标题三 格式解释如下: 0代表第0页出现图片点播: yun_qi_img/是第一幅原图地址./small/123.gif是第一幅缩略图地址,原图和缩略图名字一样,后缀不一样,原图是jpg,缩

用vbs脚本来关闭 HTML 页面的代码_vbs

问: 你好,脚本专家!在我的一个脚本中,我显示一个 HTML 页面,其中包含我希望用户阅读的信息.当他们阅读完该页面之后,他们应该能按某个键使该网页消失.然而,网页并未消失,而是出现了一个消息框,提示说:"您正查看的网页正尝试关闭该窗口.是否要关闭该窗口?"然后,用户必须单击"是",才能关掉这个网页.如何解决该问题? -- RR 答: 你好,RR.顺便祝贺您:这是我们在"你好,脚本专家!"专栏中遇到的最长的问题了.不知道有没有奖赏?没有,但有一点

用vbs读取index.dat内容的实现代码_vbs

复制代码 代码如下: ' +----------------------------------------------------------------------------+ ' | Contact Info | ' +----------------------------------------------------------------------------+ ' Author: Vengy ' modiy:lcx ' Email : cyber_flash@hotmail.

VBS监视网络连接与断开的代码_vbs

监视网络连接: 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")Set colMonitoredEvents = objWMIService.ExecNotificationQuery _    ("Select * from MSNdis_StatusMediaCon

用vbs实现本地连接禁用/启用脚本代码_vbs

转载至 http://community.csdn.net/Expert/topic/4881/4881882.xml 复制代码 代码如下: Const ssfCONTROLS = 3  sConnectionName = "本地连接"  '可改成需要控制的连接名称,如"无线网络连接"等  sEnableVerb = "启用(&A)"  sDisableVerb = "禁用(&B)"   'XP系统中应为 &q