ScriptCentre/wsh/コンピューター名の変更 - progtips

Set wmi = GetObject("winmgmts:\\.\root\cimv2") 

Sub RenameComputerName(compname)
        For Each computer in wmi.ExecQuery("Select * from Win32_ComputerSystem")
                computer.Rename compname
        Next 
End Sub