VBS variables

Iniciado por Cuasar, 9 Octubre 2010, 05:30 AM

0 Miembros y 1 Visitante están viendo este tema.

Cuasar

Geste esto va a ser rapido supongo.

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

Código (dos) [Seleccionar]
net use U: \\server\Homes\%username%

y va bien

como hago lo mismo en un VBS?

gracias salu2

Shell Root

Supongo que sería así,

Código (vb) [Seleccionar]
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd.exe /c net use U: \\server\Homes\" & objShell.Environment("USERNAME")

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.

Cuasar

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


Novlucker

Con la siguiente modificación tiene que funcionar

Código (vb) [Seleccionar]
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"
Código (vb) [Seleccionar]
Set objnet = createobject("wscript.network")
Set objshell = createobject("wscript.shell")
objnet.mapnetworkdrive "U:", "\\server\Homes\" & objshell.expandenvironmentstrings("%USERNAME%")


Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

Cuasar

#4
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

leogtz

@scrngs, utiliza las etiquetas de código o tu tema será bloqueado.
Código (perl) [Seleccionar]

(( 1 / 0 )) &> /dev/null || {
echo -e "stderrrrrrrrrrrrrrrrrrr";
}

http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com