Mappage lecteur réseaux avec une imput box

Mappage lecteur réseaux avec une imput box - VB/VBA/VBS - Programmation

Marsh Posté le 15-07-2009 à 11:35:45    

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 !!!
Reply

Marsh Posté le 15-07-2009 à 11:35:45   

Reply

Marsh Posté le 15-07-2009 à 17:45:33    

up


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

Marsh Posté le 16-07-2009 à 08:49:16    

allez aidez moi SVP c'est super urgent


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

Marsh Posté le 16-07-2009 à 11:03:37    

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)

Reply

Marsh Posté le 29-07-2009 à 11:12:00    

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 !!!
Reply

Marsh Posté le 30-07-2009 à 17:27:51    

up


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

Marsh Posté le 31-07-2009 à 09:03:59    

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


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed