J'ai un serveur et une station, un utilisateur toto sur=20
cette station windows, je veux faire un script me=20
permettant de cr=E9er un repertoire sur le serveur, le=20
partager avec comme nom de partage "Docs_TOTO" et que ce=20
repertoire ne soit acc=E9ssible qu'=E0 TOTO.
Pour la cr=E9ation du rep =E7a donne =E7a:
Dim fso, f
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set f =3D fso.CreateFolder("C:\Documents and=20
Settings\Administrateur\Bureau\test")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guillaume
Salut
Pour les droit sur le rep (verifié que cacls est dispo sinon il est sur le kit ressource win2000 srv)
Dim rep rep = C:Documents and SettingsAdministrateurBureautest Set wshShell = WScript.CreateObject("Wscript.Shell")
ligne = "cacls " & rep & " /e /g " & TOTO & ":F"
wshShell.Run ligne, 1, True
Pour le partage: (dom: domaine, srv:nom du serveur)
Dim rep (a declaré qu'une seul fois biensur) rep = C:Documents and SettingsAdministrateurBureautest CONST Nt_lnk = "WinNT://dom/srv/LanmanServer" Set adsComputer = GetObject(Nt_lnk) Set adsFileShare = adsComputer.Create("FileShare", Docs_TOTO)
adsFileShare.Path = rep
adsFileShare.Description = "Description"
adsFileShare.MaxUserCount = -1
adsFileShare.SetInfo
Voila !
-----Message d'origine----- Salut !
J'ai un serveur et une station, un utilisateur toto sur cette station windows, je veux faire un script me permettant de créer un repertoire sur le serveur, le partager avec comme nom de partage "Docs_TOTO" et que ce repertoire ne soit accéssible qu'à TOTO.
Pour la création du rep ça donne ça:
Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder("C:Documents and SettingsAdministrateurBureautest")
.... mais pour le reste j'en sais rien du tout :(
Help me please ! .
Salut
Pour les droit sur le rep (verifié que cacls est dispo
sinon il est sur le kit ressource win2000 srv)
Dim rep
rep = C:Documents and SettingsAdministrateurBureautest
Set wshShell = WScript.CreateObject("Wscript.Shell")
ligne = "cacls " & rep & " /e /g " & TOTO & ":F"
wshShell.Run ligne, 1, True
Pour le partage: (dom: domaine, srv:nom du serveur)
Dim rep (a declaré qu'une seul fois biensur)
rep = C:Documents and SettingsAdministrateurBureautest
CONST Nt_lnk = "WinNT://dom/srv/LanmanServer"
Set adsComputer = GetObject(Nt_lnk)
Set adsFileShare = adsComputer.Create("FileShare", Docs_TOTO)
adsFileShare.Path = rep
adsFileShare.Description = "Description"
adsFileShare.MaxUserCount = -1
adsFileShare.SetInfo
Voila !
-----Message d'origine-----
Salut !
J'ai un serveur et une station, un utilisateur toto sur
cette station windows, je veux faire un script me
permettant de créer un repertoire sur le serveur, le
partager avec comme nom de partage "Docs_TOTO" et que ce
repertoire ne soit accéssible qu'à TOTO.
Pour la création du rep ça donne ça:
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("C:Documents and
SettingsAdministrateurBureautest")
Pour les droit sur le rep (verifié que cacls est dispo sinon il est sur le kit ressource win2000 srv)
Dim rep rep = C:Documents and SettingsAdministrateurBureautest Set wshShell = WScript.CreateObject("Wscript.Shell")
ligne = "cacls " & rep & " /e /g " & TOTO & ":F"
wshShell.Run ligne, 1, True
Pour le partage: (dom: domaine, srv:nom du serveur)
Dim rep (a declaré qu'une seul fois biensur) rep = C:Documents and SettingsAdministrateurBureautest CONST Nt_lnk = "WinNT://dom/srv/LanmanServer" Set adsComputer = GetObject(Nt_lnk) Set adsFileShare = adsComputer.Create("FileShare", Docs_TOTO)
adsFileShare.Path = rep
adsFileShare.Description = "Description"
adsFileShare.MaxUserCount = -1
adsFileShare.SetInfo
Voila !
-----Message d'origine----- Salut !
J'ai un serveur et une station, un utilisateur toto sur cette station windows, je veux faire un script me permettant de créer un repertoire sur le serveur, le partager avec comme nom de partage "Docs_TOTO" et que ce repertoire ne soit accéssible qu'à TOTO.
Pour la création du rep ça donne ça:
Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder("C:Documents and SettingsAdministrateurBureautest")
