Autoit.ES

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Ventana = GUICreate("Nombre de Usuario", 250, 200, -1, -1)
$Input = GUICtrlCreateInput(@UserName, 24, 64, 185, 21)
$Button = GUICtrlCreateButton("Aceptar", 32, 112, 161, 41)
$Label = GUICtrlCreateLabel("Nombre de usuario", 40, 20, 200, 17)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button
         MsgBox(0, "Windows", "El nombre del Usuario ha sido cambiado")
   EndSwitch
WEnd

Código: Seleccionar todo

En WsScript
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'HP QuietJet'")
For Each objPrinter in colInstalledPrinters
    objPrinter.CancelAllJobs()
Next

-->>Lo mismo en Autoit creando el objeto y luego llamado a las funciones y métodos, pero puedes usar la potencia de Autoit para complementarlo:
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\" & $strComputer & " ootcimv2")
$colInstalledPrinters = $objWMIService.ExecQuery ("Select * from Win32_Printer Where Name = 'HP LaserJet 3200 Series PCL'")
For $objPrinter in $colInstalledPrinters
    $objPrinter.CancelAllJobs()
Next

Código: Seleccionar todo

' Description: 
' Script that renames a local user account 
' Will return errorlevel 1 if it fails 

Set oArgs = Wscript.Arguments 
If oArgs.Count <> 2 Then 
WScript.Echo "Invalid input, needs to be: " & vbCrLf & vbCrLf _ 
& WScript.ScriptName & " <old-name> <new-name>" 
WScript.Quit 1 ' return with errorlevel 1 
End If 

Set oWshNet = CreateObject("WScript.Network" ) 

' get computer name for local computer 
sComputerName = oWshNet.ComputerName 

' Turn off internal error handling 
On Error Resume Next 

' connect to user object 
Set oUser = GetObject("WinNT://" & sComputerName & "/" _ 
& oArgs(0) & ",user" ) 

If Err.Number = 0 Then 
Set oComputer = GetObject("WinNT://" & sComputerName) 

' rename user 
Set oNewUser = oComputer.MoveHere(oUser.ADsPath, oArgs(1)) 

If Err.Number = 0 Then 
WScript.Echo "User account successfully renamed from " _ 
& oArgs(0) & " to " & oArgs(1) 
Else 
WScript.Echo "Was not able to rename user account from " _ 
& oArgs(0) & " to " & oArgs(1) 
WScript.Quit 1 ' return with errorlevel 1 
End If 

Else 
WScript.Echo "User account " & oArgs(0) & " does not exist!" 
WScript.Quit 1 ' return with errorlevel 1 
End If 

Código: Seleccionar todo

#NoTrayIcon
$value = InputBox("Renombrar Usuario...", @CRLF&"1= Recuerde reiniciar el equipo"&@CRLF&"      para que los cambios surjan efecto"&@CRLF&@CRLF&"2= Solo 60 caracteres maximo", @UserName, "")
If $value <> "" Then
_RunDos('wmic UserAccount where Name="%username%" call Rename Name="'&$value&'"')
EndIf

Func _RunDos($sCommand)
	Local $nResult = RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
	Return SetError(@error, @extended, $nResult)
EndFunc