Creer un partage réseau

Signaler
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008
-
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005
-
'Jour



Je cherche comment ajouter un partage réseau (en accés complet) en tenant compte que l'ordi est sous une session administrateur.



Pour etre précis, je voudrais faire un prog qui partage une clé USB à
chaque fois quon en insére une nouvelle... Malheureusement, ces
partages disparaisse au demarrage de l'ordi si la clé n'est plus là :o(

----
Olie_ze_kat - www.olid.fr.st =(°o°)=

5 réponses

Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005

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
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005

oups, je viens de relire, connerie : remplace le "Loop" par un "Wend"
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005

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
Messages postés
296
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
28 janvier 2008

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°)=
Messages postés
176
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
7 mars 2005

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 @+