[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[转贴] VBScript脚本修改计算机名称

在很多情况下,计算机需要重命名,如果进行大批量更换名称的时候,操作起来就觉得比较麻烦,这样我们可以通过使用VBS方式来实施

以下是VBS脚本,将以下内容保存为.vbs即可,在客户端执行。

  1. Dim reval
  2. Set objnet = CreateObject ("WScript.Network")
  3. Set R = CreateObject("WScript.Shell")
  4. reval = InputBox ("当前的计算机名是:" & objnet.ComputerName,"请输入新的计算机名")
  5. On Error Resume Next
  6. strComputer = "."
  7. Set objWMIService = GetObject("winmgmts:" _
  8.     & "{impersonationLevel=impersonate}!\\" _
  9.     & strComputer & "\root\cimv2")
  10. Set colComputers = objWMIService.ExecQuery _
  11.     ("Select * from Win32_ComputerSystem")
  12. For Each objComputer in colComputers
  13.     errReturn = ObjComputer.Rename (reval)
  14.     If reval <> "" Then
  15. MsgBox  "新计算机名在重启后才能生效!",vbOKOnly+vbInformation,"提示"
  16.                 return=MsgBox ("你确定要重起计算机吗?",vbOKCancel+vbExclamation,"注意!")
  17.                 If return=vbok Then
  18.                         R.run("Shutdown.exe -r -t 0")
  19.                 End If
  20.     End If
  21. Next
复制代码

http://candysong.blog.51cto.com/3336496/613634

返回列表