?? autoctname.vbs
字號(hào):
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -