Forum
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Name = 'FinanceShare'")
For Each objShare in colShares
errReturn = objShare.SetShareInfo(50, _
"Public share for HR administrators and the Finance Group.")
Next
vbscirpt ile serverde c:\dosyalar klasörünü paylaştırmak isityorum. yukarıdaki komutları buldum. ancak nerede ne yapacağımı bulamadım. yukarıdaki komutlarda nasıl değişiklik yapabilirim acaba.
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:\Finance", "FinanceShare", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Public share for the Finance group.") Wscript.Echo errReturn
Bold kısımları düzenleyin.
hocam yeni bir klasör oluşturmayacağız. varolan bir klasörü istenilen gruplar için nasıl paylaştırırız. örneğin
c:\dosyalar klasörünü a11d grubu için nasıl paylaşırız. burada a11d sınıfı değiştirme listeleme yetkisi olacak
varolan bir klasörü gruplar için paylaşıma açamıyormuyuz acaba
çözüm yolu yokmu acaba
bize yol gösterirseniz seviniriz. çözüm yolu yok ise başka bir yol önerirseniz seviniriz
net share komutu ile paylaştırabilirsiniz
vbs ile yapmak zorunda değil iseniz
kullanımı için net share /?
iyi çalışmalar