Dim WSHShell Dim vUserName, varNewName Set WSHShell = CreateObject("WScript.Shell") vUserName = WSHShell.ExpandEnvironmentStrings("%USERNAME%") 'Wscript.Echo "vUserName : " & vUserName strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer",,48) For Each objItem in colItems 'Wscript.Echo "-----------------------------------" 'Wscript.Echo "Win32_Printer instance" 'Wscript.Echo "-----------------------------------" varName = objItem.Name 'Wscript.Echo "Name: " & varName 'MyPos = InStr (Lcase(varName), lcase(vUserName)) 'If MyPos > 0 Then 'End If MyPos = InStr (Lcase(varName), "(") If MyPos > 0 Then varNewName = Left(varName, MyPos-1) varNewName = varNewName & "_" & vUserName 'Wscript.Echo "Renomage en " & varNewName intResult = objItem.RenamePrinter(varNewName) Select case intResult 'Case 0 : WScript.Echo "Success" 'Case 5 : WScript.Echo "Access denied" 'Case 1801 : WScript.Echo "Invalid printer name" End Select 'exit for End If Next