Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1184 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mappage lecteur réseaux avec une imput box

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Mappage lecteur réseaux avec une imput box

n°1905242
president3​6000
Posté le 15-07-2009 à 11:35:45  profilanswer
 

Bonjour
 
voila je dois effectuer un mappage réseaux de quelques lecteurs le premier créé un lecteur vers un dossier commun a tous mes utilisateurs et fonctionne très bien tous seul en revanche j'aimerais créer un lecteur réseaux avec le nom de l'utilisateur que je saisirais dans ma boite de début de script mais la sa plante le message d'erreur est le   suivant : "Référence non valide  ou non quantifiée" je pense que le probleme viens de ma variable "pcname" mais la je sèche.
 
Je fait donc appel a vous grande communauté de HFR
 
Merci d'avance
 
 
dim oNet, pcname
 
pcname = InputBox("saisissez le nom du poste" )
pcname = .UserName
set oNet =createobject("WSCript.Network" )
 
oNet.MapNetworkDrive "Z:", "\\server\partage"
oNet.MapNetworkDrive "X:", "\\server\partage" & .UserName
 
 
WSCript.quit


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!
mood
Publicité
Posté le 15-07-2009 à 11:35:45  profilanswer
 

n°1905482
president3​6000
Posté le 15-07-2009 à 17:45:33  profilanswer
 

up


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!
n°1905662
president3​6000
Posté le 16-07-2009 à 08:49:16  profilanswer
 

allez aidez moi SVP c'est super urgent


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!
n°1905725
GuiGui013
Posté le 16-07-2009 à 11:03:37  profilanswer
 

J'avais récupéré ça à l'époque sur le net :
 
Dans un module :

Code :
  1. Type NETRESOURCE
  2.         dwScope As Long
  3.         dwType As Long
  4.         dwDisplayType As Long
  5.         dwUsage As Long
  6.         lpLocalName As String
  7.         lpRemoteName As String
  8.         lpComment As String
  9.         lpProvider As String
  10. End Type
  11. Global NETSource As NETRESOURCE
  13. Public Const RESOURCE_CONNECTED = &H1
  14. Public Const RESOURCE_PUBLICNET = &H2
  15. Public Const RESOURCE_REMEMBERED = &H3
  17. Public Const RESOURCETYPE_ANY = &H0
  18. Public Const RESOURCETYPE_DISK = &H1
  19. Public Const RESOURCETYPE_PRINT = &H2
  20. Public Const RESOURCETYPE_UNKNOWN = &HFFFF
  22. Public Const RESOURCEUSAGE_CONNECTABLE = &H1
  23. Public Const RESOURCEUSAGE_CONTAINER = &H2
  24. Public Const RESOURCEUSAGE_RESERVED = &H80000000
  26. Public Const RESOURCEDISPLAYTYPE_GENERIC = &H0
  27. Public Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
  28. Public Const RESOURCEDISPLAYTYPE_SERVER = &H2
  29. Public Const RESOURCEDISPLAYTYPE_SHARE = &H3
  30. Public Const RESOURCEDISPLAYTYPE_FILE = &H4
  31. Public Const RESOURCEDISPLAYTYPE_GROUP = &H5
  33. Global Const ConReseau = "\\server\partage"


 
Dans le code :

Code :
  1. NETSource.dwScope = RESOURCE_PUBLICNET
  2.     NETSource.dwType = RESOURCETYPE_DISK
  3.     NETSource.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
  4.     NETSource.dwUsage = RESOURCEUSAGE_CONNECTABLE
  5.     NETSource.lpLocalName = Lettre
  6.     NETSource.lpRemoteName = ConReseau
  7.     NETSource.lpComment = ""
  8.     NETSource.lpProvider = ""
  10.     X = WNetAddConnection2(NETSource, PassReseau, LoginReseau, 0)

n°1909739
president3​6000
Posté le 29-07-2009 à 11:12:00  profilanswer
 

merci bien guigui mais j'ai trouver plus simple lol mais un nouveau probleme se pause
 
voila un script qui fonctionne pour le mappage d'un seul lecteur et qui est visible sur plusieurs sites mais moi je veux rajouter un autre lecteur mais lors de la connexion il ne m'en créé qu'un seul quelle ligne faut il rajouter?
 
strDriveLetter = "X:"
strRemotePath = "\\SERVER\MYHOMEDIR"
strNewName = "My Home Directory"
 
Set objNetwork = CreateObject("WScript.Network" )
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
Set objShell = CreateObject("Shell.Application" )
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
 
j'ai essayer avec la commande net use mon script mappe 3 lecteurs les 2 premier fonctionne sans rajouter de ligne mais le 3ème ne veux rien savoir  
 
Merci de votre aide pour ses 2 scripts


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!
n°1910420
president3​6000
Posté le 30-07-2009 à 17:27:51  profilanswer
 

up


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!
n°1910538
president3​6000
Posté le 31-07-2009 à 09:03:59  profilanswer
 

allez un petit coup de main pour un mec en galère SVP


---------------
Mieux vaut être saoul que con sa dure mois longtemps !!!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Mappage lecteur réseaux avec une imput box

 

Sujets relatifs
Lecteur MP3 dans un blog : une partie du code disparait!Lecteur Mp3 en flash "externe"
[VBS] Creer un script de lecteur réseau utilisateursBase de donné réseaux local fichier lck
lister lecteurs reseauxMapper un lecteur avec Case & InputBox
Monter Un lecteur reseau en VBAProblème lecteur virtuel
[Résolu]Lecture d'un fichier csvPremiere image d'un lecteur flash en demi-teint
Plus de sujets relatifs à : Mappage lecteur réseaux avec une imput box

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.040 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR