créer un partage

B:Ponjour à tous !

Je souhaite créer un partage sur tous les pc de mon reseau
pour cela je dispose d'un programme qui crée un partage (partage.vbs) et un programme appelant avec des droits administrateurs (runas.vbs).
Je crée un repertoire c:\backup ... comment faire pour que ce dossier
ne soit crée que s'il n'existe pas et pour que le repertoire porte le nom du profil utilisateur ?

En vous remerciant par avance pour votre aide et vos explications:king:

Jean Marc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//runas
'lancement automatique d'application sans que l'utilisateur soit connecté. 
'RUNAS_AUTO (c) N. CLERC 2005 
'===== PERSONNALISER ICI LES INFORMATIONS EN FONCTION DE 
'===== l'utilisateur et du mot de passe 
application="partage.vbs" 
motdepasse="xxxx" 
utilisateur="Administrateur" 
'===== FIN DE LA PERSONNALISATION 
dim wshShell 
set wshShell = WScript.CreateObject("WScript.Shell") 
'wscript.echo "Lancement de " & application & " en tant qu'utilisateur " & utilisateur 
wshShell.Run "cmd.exe /c ""title RUNAS_AUTO & runas.exe /user:" & utilisateur & " """ & application & """""" 
wscript.Sleep(1000) 
wshShell.AppActivate "RUNAS_AUTO" 
wshShell.SendKeys motdepasse & "{ENTER}" 
 
//partage.vbs
 
Dim OFS, MonDossier 
'1 je crée la référence du dossier 
Set OFS = CreateObject("Scripting.FileSystemObject") 
'2 je crée le dossier toto dans le répertoire windows. 
Set MonDossier = OFS.CreateFolder("c:\backup") 
 
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
    ("C:\backup", "Backup$", FILE_SHARE, _
        MAXIMUM_CONNECTIONS, "Description")