none
agregar unidad de red con VB RRS feed

  • Pregunta

  • como agrego una unidad de red con VB?? Me da error de usuario del dominio y contraseña.

    El codigo que tengo:

    Bloque de código

    Private Sub Command1_Click()
        Set WshNetwork = CreateObject("WScript.Network")
       
        On Error Resume Next
        WshNetwork.RemoveNetworkDrive "w:"
        On Error GoTo 0
       
        WshNetwork.MapNetworkDrive "w:", "\\PC01\c$"
       
       
        Set WshNetwork = Nothing
    End Sub




    Como le añado: password DOMINIO\usuario_admin ???
    lunes, 14 de enero de 2008 16:17

Respuestas

  • Hola,

     

    Si pones un msgbox PASSWORD, te muestra correctamente la password?

    Por otro lado veo que te faltan un espacios en blanco:

    Shell "NET USE q: \\" & nombre_pc & "\c$" & password & "/USEROMINIO\usuario"

    ejecutará el comando: NET USE q:\\nombre_pc\c$password/USERDOMINIO\usuario

     

    Pon la línea así:

    Shell "NET USE q: \\" & nombre_pc & "\c$ " & password & " /USEROMINIO\usuario"

     

     

    Saludos

    martes, 15 de enero de 2008 16:50

Todas las respuestas

  • Hola,

     

    Mira el enlace:

    http://msdn2.microsoft.com/en-us/library/8kst88h6(VS.85).aspx

     

    Sería así:

    WshNetwork.MapNetworkDrive "w:", "\\PC01\c$" , "DOMINIO\usuario_admin" , "Password"

     

    El problema que vas a tener será de seguridad. Cualquiera que pueda editar el script tendrá un usuario de dominio.

    Puedes encriptar el script (pasarlo a vbe), pero es muy fácil desencriptarlo.

     

    Saludos.

     

    lunes, 14 de enero de 2008 16:29
  • Lo he optimizado un poco. Ah! estoy trabajando con Visual Basic y no con VBScript.

        Shell "NET USE P: \\" & nombre_pc & "\c$" & PASSWORD & "/USERBig SmileOMAIN\user"
        Shell "explorer \\" & nombre_pc & "\c$", vbNormalFocus

    el problema me aparece cuando pongo el valor de un campo de texto: PASSWORD ya que no lo coge....
    martes, 15 de enero de 2008 12:09
  • Hola,

     

    En el comando NET USE pon primero el usuario y después la password:

    Shell "net use l: \\" & nombre_pc & " /user:" & dominio\usuario & " " & password

     

    Cuidado con los espacios que debe haber entre nombre_pc y /user y entre domino\usuario y password

     

    A ver como te va ahora.

     

    Saludos

    martes, 15 de enero de 2008 12:40
  • no me coje el password que pongo en el campo de texto (lo pongo bien eh!!!)

    mi codigo es:

     Shell "NET USE q: \\" & nombre_pc & "\c$" & password & "/USERBig SmileOMINIO\usuario"

    si pongo

    Shell "NET USE Q: \\" & nombre_pc & "\c$ 123456 /USERBig SmileOMINIO\usuario"

    si que funciona
    martes, 15 de enero de 2008 16:23
  • Hola,

     

    Si pones un msgbox PASSWORD, te muestra correctamente la password?

    Por otro lado veo que te faltan un espacios en blanco:

    Shell "NET USE q: \\" & nombre_pc & "\c$" & password & "/USEROMINIO\usuario"

    ejecutará el comando: NET USE q:\\nombre_pc\c$password/USERDOMINIO\usuario

     

    Pon la línea así:

    Shell "NET USE q: \\" & nombre_pc & "\c$ " & password & " /USEROMINIO\usuario"

     

     

    Saludos

    martes, 15 de enero de 2008 16:50