none
求助:windows 7不退出域修改计算机名脚本 RRS feed

  • 问题

  • 以下为XP下可生效的不退出域改计算机名脚本。windows7不可以用。两个系统之间存在什么差异性吗?

    Dim reval
    Set objnet = CreateObject ("WScript.Network")
    Set R = CreateObject("WScript.Shell")
    reval = InputBox ("新的计算机名为您计算机的资产编号","当前的计算机名是:" & objnet.ComputerName,"输入新的计算机名")
    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
    Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")

    For Each objComputer in colComputers
    errReturn = ObjComputer.Rename (reval)
    If reval <> "" Then
    return=MsgBox ("你确定要重起计算机吗?",vbOKCancel+vbexclamation,"注意!")
    If return=vbok Then
    R.run("Shutdown.exe -r -t 0")
    End if
    End If
    Next

    2012年2月21日 1:55

答案