El código original no me funciona, lo he editado para que me funcione a mí, pero eso, solo me funciona a mi, porque le he puesto mi nombre de usuario en la ruta para llegar al escritorio.
He intentado modificarlo para que se pueda ejecutar en otro pc, ya que el usuario cambia, podría hacer lo mismo, pero ya es por curiosidad y saber cómo hacerlo.
He intentado buscar información que me ayude, pero los códigos que he probado me dan error.
Este es el código original
Código:
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
aunque el error lo muestra en la siguiente línea:
Código:
Set fso = CreateObject("Scripting.FileSystemObject")
Y como digo, si cambio y pongo mi nombre de usuario, no hay problema.
Cuál sería el código correcto para obtener el usuario, y así poder sacar la ruta del escritorio.
Gracias.