| Вопрос: А как окрыть программно общий доступ | Добавлено: 28.01.05 20:26 |
Автор вопроса:  Карась
|
| А как окрыть программно общий доступ например на диск С |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  KAM ICQ: 190197618 Вопросов: 25 Ответов: 97 |
Профиль | | #1 | Добавлено: 29.01.05 14:01 |
|
Добавьте на форму кнопку (Command1), пять текстовых полей (Text1 - Text5) и следующий код:
Option Explicit
Private Const NERR_SUCCESS As Long = 0& 'типы шар Private Const STYPE_ALL As Long = -1 'note: my const Private Const STYPE_DISKTREE As Long = 0 Private Const STYPE_PRINTQ As Long = 1 Private Const STYPE_DEVICE As Long = 2 Private Const STYPE_IPC As Long = 3 Private Const STYPE_SPECIAL As Long = &H80000000 'разрешения Private Const ACCESS_READ As Long = &H1 Private Const ACCESS_WRITE As Long = &H2 Private Const ACCESS_CREATE As Long = &H4 Private Const ACCESS_EXEC As Long = &H8 Private Const ACCESS_DELETE As Long = &H10 Private Const ACCESS_ATRIB As Long = &H20 Private Const ACCESS_PERM As Long = &H40 Private Const ACCESS_ALL As Long = ACCESS_READ Or _ ACCESS_WRITE Or _ ACCESS_CREATE Or _ ACCESS_EXEC Or _ ACCESS_DELETE Or _ ACCESS_ATRIB Or _ ACCESS_PERM Private Type SHARE_INFO_2 shi2_netname As Long shi2_type As Long shi2_remark As Long shi2_permissions As Long shi2_max_uses As Long shi2_current_uses As Long shi2_path As Long shi2_passwd As Long End Type Private Declare Function NetShareAdd Lib "netapi32" _  ByVal servername As Long, _
ByVal level As Long, _ buf As Any, _ parmerr As Long) As Long Private Sub Form_Load() Text1.Text = "\\" & Environ$("COMPUTERNAME" 
Text2.Text = "c:\program files\adobe" Text3.Text = "vbnetdemo" Text4.Text = "VBnet demo test share" Text5.Text = "" End Sub Private Sub Command1_Click() Dim success As Long success = ShareAdd(Text1.Text, _ Text2.Text, _ Text3.Text, _ Text4.Text, _ Text5.Text) Select Case success Case 0: MsgBox "share created successfully!" Case 2118: MsgBox "share name already exists" Case Else: MsgBox "create error " & success End Select End Sub Private Function ShareAdd(sServer As String, _ sSharePath As String, _ sShareName As String, _ sShareRemark As String, _ sSharePw As String) As Long Dim dwServer As Long Dim dwNetname As Long Dim dwPath As Long Dim dwRemark As Long Dim dwPw As Long Dim parmerr As Long Dim si2 As SHARE_INFO_2 'получаем указатели на сервер, ресурс и путь dwServer = StrPtr(sServer) dwNetname = StrPtr(sShareName) dwPath = StrPtr(sSharePath) 'Если описание или пароль указаны, 'то также получаем указатели на них If Len(sShareRemark) > 0 Then dwRemark = StrPtr(sShareRemark) End If If Len(sSharePw) > 0 Then dwPw = StrPtr(sSharePw) End If 'подготавливаем структуру SHARE_INFO_2 With si2 .shi2_netname = dwNetname .shi2_path = dwPath .shi2_remark = dwRemark .shi2_type = STYPE_DISKTREE .shi2_permissions = ACCESS_ALL .shi2_max_uses = -1 .shi2_passwd = dwPw End With 'расшариваем ресурс ShareAdd = NetShareAdd(dwServer, _ 2, _ si2, _ parmerr) End Function Работает в WinNT |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 29.01.05 15:46 |
| net share "c"=C:\ | ||
|
Номер ответа: 3 Автор ответа: KAMICQ: 190197618 Вопросов: 25 Ответов: 97 |
Профиль | | #3 | Добавлено: 29.01.05 16:05 |
|
2HACKER
Нужно было программно 
|
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 29.01.05 17:59 |
|
open "C:\tmp.bat" for output as #1
print #1,"net share "c"=C:\" close #1 Shell "C:\tmp.bat"
|
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 30.01.05 08:42 |
| Shell "net share "c"=C:\", тогда уж. | ||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 30.01.05 20:43 |
|
Shell "net share " & Chr(34) & "c" & Chr(34) & "=C:\", тогда уж.
))))))))))))))
|
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 31.01.05 07:23 |
|
Я скопипейстил, я в домике
|
||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 31.01.05 18:35 |
|
И я копипестил, просто я сразу заметил что двойные ковычки вылезут боком
|
||
|
Номер ответа: 9 Автор ответа: SurokВопросов: 36 Ответов: 106 |
Профиль | | #9 | Добавлено: 04.02.05 18:53 |
|
NetShareAdd ругается ошибкой API№5 "Отказ в доступе" при попытке расшарить папку на сетевом компе по IP адресу...
Со своим IP 127.0.0.1 все ОК... А как тогда расшарить папку на удаленном компе и какие права доступа необходимо иметь... И еще, как правильно вызывать NetShareDel... |
||
|
Номер ответа: 10 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 06.02.05 17:54 |
|
гы............................ ну ты прикольнулся
NetShareAdd ругается ошибкой API№5 "Отказ в доступе" при попытке расшарить папку НА СЕТЕВОМ КОМПЕ по IP адресу...
Со своим IP 127.0.0.1 все ОК...
)))))))))))))))))))))))))
И еще, как правильно вызывать NetShareDel...
net share "nameSHARE" /del |
||
Страница: 1 |