How can i share folder in a machine programatically. ( I mean right click on a folder and sharing steps should get done thru program)
Printable View
How can i share folder in a machine programatically. ( I mean right click on a folder and sharing steps should get done thru program)
VB Code:
'THIS CODE IS FOR NT/2000 '5-3-2001 by JoshT Option Explicit Option Base 0 Private Const STYPE_DISKTREE As Long = 0 'disk drive Private Const STYPE_PRINTQ As Long = 1 'printer Private Const STYPE_DEVICE As Long = 2 Private Const STYPE_IPC As Long = 3 Private Type SHARE_INFO_2 shi2_netname As String 'LPWSTR shi2_type As Long 'DWORD shi2_remark As String 'LPWSTR shi2_permissions As Long 'DWORD shi2_max_uses As Long 'DWORD shi2_current_uses As Long 'DWORD shi2_path As String 'LPWSTR shi2_passwd As String 'LPWSTR End Type 'NetShareAdd returns 0 if no error ' 'lpwstrServerName As Any, --the computer to create the share on, ' NULL for local computer, ' otherwise must begin with "\\" 'ByVal dwordLevel As Long, -- specifies the type struct that contains the data ' 2 for SHARE_INFO_2 Struct ' 502 for SHARE_INFO_502 Struct 'ByVal lpbyteBuf As Any, -- pointer to the struct who type was specified above 'lpdwordParmErr As Long, -- if an error in the struct, the number of the struct's parameter ' that caused the error (0 is no error) Private Declare Function NetShareAdd Lib "netapi32.dll" _ (lpwstrServerName As Byte, _ ByVal dwordLevel As Long, _ ByVal lpbyteBuf As Long, _ lpdwordParmErr As Long) As Long Private Sub TestIt() Dim si2 As SHARE_INFO_2 Dim retval As Long Dim parmerr As Long Dim compname() As Byte parmerr = 0 'compname = vbNullString compname() = "\\COMPNAME" & vbNullChar si2.shi2_netname = "Test2C" & vbNullChar 'the name of the share si2.shi2_type = STYPE_DISKTREE 'the share is on the disk si2.shi2_remark = "Testing Out NetShareAdd VB API" & vbNullChar 'the comment si2.shi2_permissions = 0 'this should be ignored si2.shi2_max_uses = -1 'unlimited connections si2.shi2_current_uses = 0 'I don't think this is applicable si2.shi2_path = "C:\TEMP" & vbNullChar 'the path to the share si2.shi2_passwd = vbNullString 'NULL, the password 'this should be ignored retval = NetShareAdd(compname(0), 2, VarPtr(si2), parmerr) End Sub Private Sub Form_Load() TestIt End Sub