Creer un partage réseau
cs_olid
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008
-
7 févr. 2005 à 18:55
cbnet Messages postés 176 Date d'inscription vendredi 29 octobre 2004 Statut Membre Dernière intervention 7 mars 2005 - 9 févr. 2005 à 16:02
cbnet Messages postés 176 Date d'inscription vendredi 29 octobre 2004 Statut Membre Dernière intervention 7 mars 2005 - 9 févr. 2005 à 16:02
5 réponses
cbnet
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005
9 févr. 2005 à 02:03
9 févr. 2005 à 02:03
Bon, c'est du bidouillage ce que je te propose mais ça devrait marcher...
Je suppose que t'es sous XP (je crois que c'est pareil sous 2000 de façon) :
On va dire que la clé USB apparaît sous la lettre de lecteur F:
Sous cmd (démarrer/exécuter > cmd > ok) si tu tapes net share toto=F:\
cela va partager ta clé USB sous le nom de partage "toto"
ce que je te propose sous vb, c'est la création d'un script batch
temporaire qui va partager ta clé, essaye ce code qui devrait
fonctionner sous vb (adapte les fonctions d'écriture avec
FileSystem.FileOpen etc... si t'es sous .NET je connais pas) :
Dim Script As String, ScriptName As String, ShareName As String, PathUSB As String
ShareName = "toto"
PathUSB = "F:"
ScriptName = App.Path & "\tmpscript.bat"
' Le script batch....
Script = "@echo off" & VbCrLf & "net share " & ShareName & "=" & PathUSB
Open ScriptName For Output As #1
Print #1, Script
Close #1
Shell ScriptName, vbHide
' Pause de 2 sec pour laisser au script le temps de s'executer puis on le supprime
Dim Pause, Start, Waiting
Start = Timer
Pause = 2
While Waiting < Pause + Start
Waiting = Timer
DoEvents
Loop
Kill ScriptName
Voilà ça devrait marcher... Pour ta gouverne un "net share /d toto" supprimera ce partage !
Bonne chance et dis moi si ça marche
Je suppose que t'es sous XP (je crois que c'est pareil sous 2000 de façon) :
On va dire que la clé USB apparaît sous la lettre de lecteur F:
Sous cmd (démarrer/exécuter > cmd > ok) si tu tapes net share toto=F:\
cela va partager ta clé USB sous le nom de partage "toto"
ce que je te propose sous vb, c'est la création d'un script batch
temporaire qui va partager ta clé, essaye ce code qui devrait
fonctionner sous vb (adapte les fonctions d'écriture avec
FileSystem.FileOpen etc... si t'es sous .NET je connais pas) :
Dim Script As String, ScriptName As String, ShareName As String, PathUSB As String
ShareName = "toto"
PathUSB = "F:"
ScriptName = App.Path & "\tmpscript.bat"
' Le script batch....
Script = "@echo off" & VbCrLf & "net share " & ShareName & "=" & PathUSB
Open ScriptName For Output As #1
Print #1, Script
Close #1
Shell ScriptName, vbHide
' Pause de 2 sec pour laisser au script le temps de s'executer puis on le supprime
Dim Pause, Start, Waiting
Start = Timer
Pause = 2
While Waiting < Pause + Start
Waiting = Timer
DoEvents
Loop
Kill ScriptName
Voilà ça devrait marcher... Pour ta gouverne un "net share /d toto" supprimera ce partage !
Bonne chance et dis moi si ça marche
cbnet
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005
9 févr. 2005 à 02:07
9 févr. 2005 à 02:07
oups, je viens de relire, connerie : remplace le "Loop" par un "Wend"
cbnet
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005
9 févr. 2005 à 02:21
9 févr. 2005 à 02:21
Bon, je viens de tester ça ne marche pas... Si j'y passe du temps c'est
aussi que ça me servira un jour ! Bon j'ai trouvé comment faire
il faut rajouter ceci au script batch :
net use T: \\NomOrdi\toto
et ça te créé sur l'ordi distant une
lettre de lecteur (accessible dans le poste de travail) correspondant à
la clé USB branché sur l'ordi "NomOrdi".
Revoici le prog VB corrigé, celui là il marche (adapte le à ta config bien sûr) :
Dim Script As String, ScriptName As String, ShareName As String, PathUSB As String
Dim NewDrive As String, PCName As String
ShareName = "toto"
PathUSB = "F:"
NewDrive = "T:"
PCName = "olid"
ScriptName = App.Path & "\tmpscript.bat"
' Le script batch....
Script
"@echo off" & VbCrLf & "net share " & ShareName & ""
& PathUSB & VbCrLf & "net use " & NewDrive &
" \" & PCName & "" & ShareName
Open ScriptName For Output As #1
Print #1, Script
Close #1
Shell ScriptName, vbHide
' Pause de 2 sec pour laisser au script le temps de s'executer puis on le supprime
Dim Pause, Start, Waiting
Start = Timer
Pause = 2
While Waiting < Pause + Start
Waiting = Timer
DoEvents
Wend
Kill ScriptName
aussi que ça me servira un jour ! Bon j'ai trouvé comment faire
il faut rajouter ceci au script batch :
net use T: \\NomOrdi\toto
et ça te créé sur l'ordi distant une
lettre de lecteur (accessible dans le poste de travail) correspondant à
la clé USB branché sur l'ordi "NomOrdi".
Revoici le prog VB corrigé, celui là il marche (adapte le à ta config bien sûr) :
Dim Script As String, ScriptName As String, ShareName As String, PathUSB As String
Dim NewDrive As String, PCName As String
ShareName = "toto"
PathUSB = "F:"
NewDrive = "T:"
PCName = "olid"
ScriptName = App.Path & "\tmpscript.bat"
' Le script batch....
Script
"@echo off" & VbCrLf & "net share " & ShareName & ""
& PathUSB & VbCrLf & "net use " & NewDrive &
" \" & PCName & "" & ShareName
Open ScriptName For Output As #1
Print #1, Script
Close #1
Shell ScriptName, vbHide
' Pause de 2 sec pour laisser au script le temps de s'executer puis on le supprime
Dim Pause, Start, Waiting
Start = Timer
Pause = 2
While Waiting < Pause + Start
Waiting = Timer
DoEvents
Wend
Kill ScriptName
cs_olid
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008
9 févr. 2005 à 13:12
9 févr. 2005 à 13:12
Merci d'avoir cherché :o) ... Mais fô que çà marche aussi sous 98 :o((
Et pour ton astuce de lecteur réseau... çà implique que la session où
ya la clé posséde des droits admin sur l'ordi distant, non ?
----
Olie_ze_kat - www.olid.fr.st =(°o°)=
Et pour ton astuce de lecteur réseau... çà implique que la session où
ya la clé posséde des droits admin sur l'ordi distant, non ?
----
Olie_ze_kat - www.olid.fr.st =(°o°)=
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cbnet
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005
9 févr. 2005 à 16:02
9 févr. 2005 à 16:02
1) Je ne me souviens plus de win98 mais les commandes "net" existe
aussi je crois... apres pour savoir si elles fonctionnent exactement de
la meme facon je peux pas te dire... Pour chercher tu fais
demarrer/executer puis tapes command et ok. Dans le shell si tu tapes
"net" tu as la liste de toutes les sous-commandes dispo (net share /
net use / net view et bien d'autres), et pour avoir des infos sur
comment les utiliser : net help share, net help use...
2) Si ca ne marche pas, il doit y avoir un moyen de faire ca via les APIs mais j'ai pas cherche...
3) Sur les ordi distants, il faut peut-etre avoir les droits admin pour
creer un partage, mais pour ca fait un test tu verras vite... mais
sinon je suppose que ca doit etre parametrable. Mais si le partage
fonctionne, les ordi distants n'ont pas besoin d'avoir de droits admin
pour acceder a ce partage normalement, et donc l'ordi ou y'a la cle n'a
pas besoin d'avoir des droits sur l'ordi distant.
4) avec les partages grace aux commandes net, je ne crois pas qu'ils
disparaissent au demarrage de windows... si c'est quand meme le cas
debrouille toi pour lancer un ptit prog VB au demarrage ca devrait
resoudre le probleme...
Bonne prog et @+
aussi je crois... apres pour savoir si elles fonctionnent exactement de
la meme facon je peux pas te dire... Pour chercher tu fais
demarrer/executer puis tapes command et ok. Dans le shell si tu tapes
"net" tu as la liste de toutes les sous-commandes dispo (net share /
net use / net view et bien d'autres), et pour avoir des infos sur
comment les utiliser : net help share, net help use...
2) Si ca ne marche pas, il doit y avoir un moyen de faire ca via les APIs mais j'ai pas cherche...
3) Sur les ordi distants, il faut peut-etre avoir les droits admin pour
creer un partage, mais pour ca fait un test tu verras vite... mais
sinon je suppose que ca doit etre parametrable. Mais si le partage
fonctionne, les ordi distants n'ont pas besoin d'avoir de droits admin
pour acceder a ce partage normalement, et donc l'ordi ou y'a la cle n'a
pas besoin d'avoir des droits sur l'ordi distant.
4) avec les partages grace aux commandes net, je ne crois pas qu'ils
disparaissent au demarrage de windows... si c'est quand meme le cas
debrouille toi pour lancer un ptit prog VB au demarrage ca devrait
resoudre le probleme...
Bonne prog et @+