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