File   = "C:\Archivo.txt"
Rename = "C:\Archivo Renombrado.txt"
 
Set FSO = CreateObject("Scripting.FileSystemObject") ' Creo el objeto
 
If FSO.FileExists(File) Then ' Si el archivo existe...
    FSO.MoveFile File, Rename ' Renombro el archivo
    wscript.Quit(0) ' Y termino la ejecución con código de error negativo.
Else ' De lo contrario...
	Wscript.Echo "Archivo no encontrado" ' Muestro error
	wscript.Quit(1) ' Y termino la ejecución con código de error positivo.
End If
 
' NOTA: Para renombrar un archivo, hay que moverlo a la misma localización de directorio pero especificando un nombre distinto para el archivo.
'       Aunque quizás no lo aprezca, esto es lo mismo que hace Windows de forma interna.
 

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
Set wmiEvent = objWMIService.ExecNotificationQuery( _
    "Select * From __InstanceCreationEvent Within 1" & _
        " Where TargetInstance ISA 'Win32_PnPEntity'")
 
While True
    Set objEvent = wmiEvent.NextEvent()
    Set objUSB = objEvent.TargetInstance
    strName = objUSB.Name
    strDeviceID = objUSB.DeviceID
    Set objUSB = Nothing
 
    Set colDrives = objWMIService.ExecQuery( _
        "Select * From Win32_LogicalDisk Where DriveType = 2")
 
    For Each objDrive in colDrives
        strDriveLetter = objDrive.DeviceID
    Next
 
    Set colDrives = Nothing
 
    WScript.Echo strName & " was mounted as " & strDriveLetter
Wend
 
Set wmiEvent = Nothing
Set objWMIService = Nothing