Ok It almost Works But when I make strName variable (without the qoutes) I'm getting the next error: Row: 6 Character: 1 Code: 8004102F Error: Wrong Paramater(s) Source: SWbemObjectEX Dim strComputer, objWMIService, colComputers, objComputer, strName strComputer="." Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Err = ObjComputer.Rename ("strName") Next And can I ad something to the computername that isn't variable + a variable number. Because all our Computers are Named "Clone" + the variable Number.