Foro de elhacker.net

Geste esto va a ser rapido supongo.

tengo esto en un bat  en el server para los usuarios.

net use U: \\server\Homes\%username%

y va bien

como hago lo mismo en un VBS?

gracias salu2

Supongo que sería así,

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd.exe /c net use U: \\server\Homes\" & objShell.Environment("USERNAME")

gracias pero me responde con error 53 se esparaba final de la instruccion.

Con la siguiente modificación tiene que funcionar

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd.exe /c net use U: \\server\Homes\" & objShell.expandenvironmentstrings("%USERNAME%"), vbhide

El vbhide del final es para que no se vea la consola de ms-dos

Sino también puedes hacerlo de la manera "correcta"

Set objnet = createobject("wscript.network")
Set objshell = createobject("wscript.shell")
objnet.mapnetworkdrive "U:", "\\server\Homes\" & objshell.expandenvironmentstrings("%USERNAME%")

Saludos

Hola muchas gracias por tu ayuda.

bueno el codigo no funciona asi tal cual me lo pasaste.

pero jugando un poco con el me di cuenta que no agregaba la variable al final de la ruta

cuando ponemos:


no se porque pero no arma la ruta completa.

despues de un rato de tratar de entender el porque no funcionaba intente este condigo. uniendo toda la ruta en una variable y mapeando asignando una sola variable en lugar de una suma de ellas.



asi me funciona perfecto.

Gracias nuevamente por la ayuda.

Salu2

@scrngs, utiliza las etiquetas de código o tu tema será bloqueado.