autoctname.vbs

来自「克隆后 根据配置文件 自己更改机器名 适合 有盘机房」· VBS 代码 · 共 38 行

dim ComPname
set oshell=WScript.CreateObject("WScript.Shell")
oshell.run "cmd /c ipconfig /all|find ""Ph"">c:\MacToFile.txt"
set f=CreateObject("Scripting.FileSystemObject")
set LocalMac=f.OpenTextFile("c:\MacToFile.txt")
MacToFile=LocalMac.ReadLine()
MacToFile=Trim(MacToFile)
MacToFile=strReverse(MacToFile)
MacToFile=Mid(MacToFile,1,18)
CompMac=Trim(CompMac)
MacToFile=strReverse(MacToFile)
MacToFile=Mid(MacToFile,1,17)
LocalMac.close
set FileMac=f.OpenTextFile("c:\computer.txt")
do while not FileMac.AtEndOfStream
CompMac=FileMac.ReadLine()
CompMac=Trim(CompMac)
ComPname=Mid(CompMac,1,6)
ComPMac=strReverse(CompMac)
CompMac=Mid(CompMac,1,18)
CompMac=Trim(CompMac)
ComPMac=strReverse(CompMac)
Mac=Mid(CompMac,1,17)
if MacToFile=Mac Then exit do End if
loop
if MacToFile<>Mac Then WScript.ECho("查找失败") :quit
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
     WScript.ECho(ComPname)
    err = ObjComputer.Rename (trim(ComPname))
    Wscript.Echo err
    WScript.ECho("完成")
Next