Hey ,
I was tring to made action to change computer name using VBS :
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = Wscript.Arguments.Item(0)
strName = Inputbox("Enter Computer Name:")
Set objWMIService = GetObject("winmgmts:\\" & strComputer).InstancesOf("Win32_ComputerSystem")
For Each x In objWMIService
x.rename(strName)
Next
WScript.Quit
put still not working with me , any help ?