Pues los de http://www.onretrieval.es parecen muy majos, he desconfiado mucho por todos los comentarios que he leido, pero en mi caso todo ha sido gratis y solo me hacen abonar 15€ para que me devuelvan el disco duro, y pagar 15€ es comprensibles por el transporte.

Ahora...  que no soy una persona de fiarse así de primeras, por eso les quiero preguntar...

¿Como puedo saber si no me han robado ninguna pieza del interior del HDD?, no sé si con conectar el HDD sería suficiente para comprobar su funcionalidad... porque en un principio no iba y hacia ruidos xD.

PD: Yo no soy técnico, ni se abrir el HDD, tenganlo en cuenta porfavor.

· Detectar la codificación de un archivo de texto

(Para quien no entienda de BOM's y codificaciones, no existe una manera 100% fiable de detectar la codificación y puede dar falsos positivos)

#Region " Detect Text Encoding "
 
    ' [ Detect Text Encoding Function ]
    '
    ' Examples :
    '
    ' MsgBox(Detect_Text_Encoding("C:\ANSI File.txt").ToString) ' Result: System.Text.SBCSCodePageEncoding
    ' MsgBox(Detect_Text_Encoding("C:\UTF8 File.txt").ToString) ' Result: System.Text.UTF8Encoding
 
 
    Public Function Detect_Text_Encoding(TextFile As String) As System.Text.Encoding
 
        Dim Bytes() As Byte = IO.File.ReadAllBytes(TextFile)
 
        Dim detectedEncoding As System.Text.Encoding = Nothing
 
        For Each info As System.Text.EncodingInfo In System.Text.Encoding.GetEncodings()
 
            Dim currentEncoding As System.Text.Encoding = info.GetEncoding()
            Dim preamble() As Byte = currentEncoding.GetPreamble()
            Dim match As Boolean = True
 
            If (preamble.Length > 0) And (preamble.Length <= Bytes.Length) Then
 
                For i As Integer = 0 To preamble.Length - 1
 
                    If preamble(i) <> Bytes(i) Then
                        match = False
                        Exit For
                    End If
 
                Next i
 
            Else
 
                match = False
 
            End If
 
            If match Then
                detectedEncoding = currentEncoding
                Exit For
            End If
 
        Next info
 
        If detectedEncoding Is Nothing Then
            Return System.Text.Encoding.Default
        Else
            Return detectedEncoding
        End If
 
    End Function
 
#End Region

Vaya cara xD, ¿No te gustó?

En caso de que no sea sarcasmo, muchas Gracias!

Saludos

Ay señor... No me rio, todos hemos sido novatos, pero es que tienes que leer un poco sobre el lenguaje y practicarlo unas cuantas veces antes de ponerte a hacer códigos sin saber.

@Echo OFF & Setlocal EnableDelayedExpansion
 
Set "DirPath=%*"
If "%DirPath:~-1%" EQU "\" (Set "DirPath=%DirPath:~0,-1%")
 
Set /P "Name=Nombre de Cliente:"
Call :ToWordCase "%Name%"
 
Set "FullPath=%DirPath%\%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%%WordCaseName%"
 
MKDIR "%FullPath%" && (Explorer "%FullPath%")
 
Pause&Exit
 
 :ToWordCase
Set "Alphabet=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For %%# in (%~1) do (
	Set "Word=%%#"
	Set "Char=!Word:~0,1!"
	If "!Char!" EQU "a" (Set "X=%Alphabet:~0,1%")
	If "!Char!" EQU "b" (Set "X=%Alphabet:~1,1%")
	If "!Char!" EQU "c" (Set "X=%Alphabet:~2,1%")
	If "!Char!" EQU "d" (Set "X=%Alphabet:~3,1%")
	If "!Char!" EQU "e" (Set "X=%Alphabet:~4,1%")
	If "!Char!" EQU "f" (Set "X=%Alphabet:~5,1%")
	If "!Char!" EQU "g" (Set "X=%Alphabet:~6,1%")
	If "!Char!" EQU "h" (Set "X=%Alphabet:~7,1%")
	If "!Char!" EQU "i" (Set "X=%Alphabet:~8,1%")
	If "!Char!" EQU "j" (Set "X=%Alphabet:~9,1%")
	If "!Char!" EQU "k" (Set "X=%Alphabet:~10,1%")
	If "!Char!" EQU "l" (Set "X=%Alphabet:~11,1%")
	If "!Char!" EQU "m" (Set "X=%Alphabet:~12,1%")
	If "!Char!" EQU "n" (Set "X=%Alphabet:~13,1%")
	If "!Char!" EQU "o" (Set "X=%Alphabet:~14,1%")
	If "!Char!" EQU "p" (Set "X=%Alphabet:~15,1%")
	If "!Char!" EQU "q" (Set "X=%Alphabet:~16,1%")
	If "!Char!" EQU "r" (Set "X=%Alphabet:~17,1%")
	If "!Char!" EQU "s" (Set "X=%Alphabet:~18,1%")
	If "!Char!" EQU "t" (Set "X=%Alphabet:~19,1%")
	If "!Char!" EQU "u" (Set "X=%Alphabet:~20,1%")
	If "!Char!" EQU "v" (Set "X=%Alphabet:~21,1%")
	If "!Char!" EQU "w" (Set "X=%Alphabet:~22,1%")
	If "!Char!" EQU "x" (Set "X=%Alphabet:~23,1%")
	If "!Char!" EQU "y" (Set "X=%Alphabet:~24,1%")
	If "!Char!" EQU "z" (Set "X=%Alphabet:~25,1%")
	Set "WordCaseName=!WordCaseName! !X!!Word:~1!"
)

Saludos!

· Descripcion

RepairShortcuts es una aplicación por linea de comandos para reparar accesos directos cuyo atributo de "Destino" ha sido modificado.

Un ejemplo de acceso directo dañado sería por ejemplo:

· Tenemos un acceso directo donde su atributo de destino apunta a un archivo en "F:\Archivo.txt" pero hemos renombrado la letra de la unidad de destino a "J:\", entonces nuestro archivo ahora está en "J:\Archivo.txt".

Pero si intentamos acceder desde el explorador de Windows clickando manualmente en el acceso directo lo más probable es que Windows arregle el problema automáticamente y actualice la información de los atributos en el propio acceso directo, bien, pues eso es lo mismo que hace esta aplicación, llamo al mismo método que utiliza Windows para reparar/resolver los accesos directos


¿Porque utilizar esta aplicación?

· Por la sencilla razón de automatizar la tarea, puesto que si tienen 1.000 accesos directos, no creo que quieran estar pinchando los 1.000 uno a uno.

· Porque aunque Windows repare el acceso directo cuando accedemos a él, si usamos aplicaciones que requieran acceder a nuestro acceso directo es posible que no puedan resolverlo, ya que no todas llaman a Windows para que resuelva el acceso directo, es conveniente tenerlos todos arreglados.


NOTA: No hay peligro de pérdida de accesos directos, si el mecanismo de Windows no puede resolver un acceso directo, simplemente se omite el archivo.



· Modo de empleo








· Demostración





· Descarga

http://elektrostudios.tk/RepairShortcuts.zip

Incluye Source, Compilado e Instalador.

· Como renombrar un archivo:

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.
 

· Como monitorizar la inserción de dispositivos USB (No lo he testeado en profundidad)

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

no te rindas, muestra lo que llevas hecho

No hombre, me entendiste mal, a lo que no pensaba contestar es a personas (los típicos listillos) que pretendiesen ganar dinero gratis sin ser técnicos ni nada, no se si me entiendes...

Te agradezco la información, aunque Imoen tiene razón, está claro que la empresa contrata a terceras personas para que le diseñen la web, pero joder... que no le den importancia a los detalles ya da mala imagen, imagen de despreocupación, y si en algo no se puede jugar con el tema de recuperación de HDD's es con los detalles!

Por poner un ejemplo mi hermana trabaja en la Videncia, montó su propio negocio y ella siempre le pide a los diseñadores que ajusten la resolución para todas las plataformas en sus tropecientas páginas webs, que me digas tu que a una empresa que trabaja por y para la informática le importa un comino como se refleje su imagen en su propia web... deja mucho que desear la verdad.

Saludos!

Os va a parecer una locura, al menos yo no le encuentro ningún sentido, pero...

Yo estaba usando el plan de energía "equilibrado", que es el que está activado por defecto...
...Pues el problema de los parones del disco duro principal se ha solucionado complétamente al establecer el plan de energía "Alto rendimiento" en las opciones de energía del panel de control,
Así que he integrado las opciones al menú contextual por si me vuelve a pasar, para testear entre las diferentes opciones por defecto:


No se si pensar que los parones eran un problema de "energía", si en "alto rendimiento" me diese problemas y en "equilibrado" no me diese ningún problemas pues... aún pensaria que si que podría ser, pero es que es al revés!, en equilibrado (menos consumo) me daba problemas, y en alto rendimiento (más consumo) cero problemas xD.

Bueno, expertos, esto es dificil de averiguar la razón, ¿he?

Por fin he solucionado este tema...aunque no se cual es la causa del problema, pero p*tos parones de mier** que mal me lo han echo pasar!

Un saludo y gracias!

Hombre pues claro... si copias el código sin más es obvio que no te va a funcionar, debes ajustarlo a tus necesidades.

Sin examinar detalládamente el code, para empezar el code que te puse no almacena el resultado en ninguna variable, imprime el output diréctamente.
Creo que no debería ser necesario una explicación sobre como deberías modificarlo, pero bueno:
(Dentro de la subrutina)

Ahí no le estás asignando ningún valor, porque no hay ninguna variable que se llame "alphabet" fuera de la subrutina :ToWordCase.

towordcase está vacia porque alphabet tambien está vacia.

Esa orden deberías ponerla al principio del script junto al "@Echo OFF".

saludos