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:
"\\server\Homes\" & objshell.expandenvironmentstrings("%USERNAME%")
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.
Set objnet = createobject("wscript.network")
Set objshell = createobject("wscript.shell")
USUARIO = "\\server\Homes\" & objShell.expandenvironmentstrings("%USERNAME%")
objnet.mapnetworkdrive "U:", USUARIO
asi me funciona perfecto.
Gracias nuevamente por la ayuda.
Salu2
@scrngs, utiliza las etiquetas de código o tu tema será bloqueado.