Set args  = Wscript.Arguments

Dim User
Dim Username
Dim UserDomain
Username=args(3)
UserDomain="BTSCGO"


Set User=GetObject("WinNT://"&UserDomain&"/"&Username&",user")
User.put("HomeDirDrive"), "U:"
User.SetInfo