Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: MaX2 en 6 Enero 2023, 12:06 pm



Título: Como obtener el nombre de usuario
Publicado por: MaX2 en 6 Enero 2023, 12:06 pm
Hola buenos días, quiero decir que no tengo mucha idea, pero me gustaría modificar un código que tengo para sacar el serial de Windows, y este código se guarda en un archivo txt en el escritorio.
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")

(https://images2.imgbox.com/ec/23/EZgSmcL2_o.jpg)

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.