| Вопрос: Опять-таки про сеть | Добавлено: 20.11.05 10:55 |
Автор вопроса:  MC ShaLLoW
|
| Как разшаривать любого в локал-сети даже если у него ХРи как удалять любую его шару? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  AndreyIl ICQ: 260668334 Вопросов: 1 Ответов: 13 |
Профиль | | #1 | Добавлено: 25.11.05 09:28 |
|
Create a Network Share:
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 Delete a Network Share: 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 objShare.Delete Next |
||
Страница: 1 |