Public Security As SECURITY_DESCRIPTOR
 
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
                            (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function lstrcpy Lib "kernel32" _
                    (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
'NT
Public Declare Function NetShareDelNT Lib "netapi32.dll" Alias "NetShareDel" _
(ByVal servername As Any, ByVal netname As String, ByVal reserved As Long) As _
Long
Public Declare Function NetShareAddNT Lib "netapi32.dll" Alias "NetShareAdd" _
                                (ByVal servername As Any, ByVal slevel As Long, _
                                buf As SHARE_INFO_502, ByVal cbbuf As Long) As _
                                Long
'9x
Public Declare Function NetShareDel9x Lib "svrapi.dll" Alias "NetShareDel" _
(ByVal servername As Any, ByVal netname As String, ByVal reserved As Long) As _
Long
Public Declare Function NetShareAdd9x Lib "svrapi.dll" Alias "NetShareAdd" _
(ByVal servername As Any, ByVal slevel As Long, buf As SHARE_INFO_50, ByVal _
cbbuf As Long) As Long
 
'====================
'ADD CODE TO FORM:
'====================
Option Explicit
Dim SI2 As SHARE_INFO_2
Dim SI502 As SHARE_INFO_502
Dim SI50 As SHARE_INFO_50
Dim OSVERInfo As OSVERSIONINFO
Dim ShareRemark As String
Dim SharePath As String
Dim nerr As Long
Dim nPath As String
Dim pwd As String
Dim ret As Long
Dim OS As Long
Private Sub Form_Load()
    OSVERInfo.dwOSVersionInfoSize = Len(OSVERInfo)
    OS = GetVersionEx(OSVERInfo)
    Command1.Caption = "Create Share NT"
    Command2.Caption = "Create Share Win9x"
    Command3.Caption = "Delete Share"
End Sub
Private Sub Command1_Click()
'NT
On Error Resume Next
    SetStrings
    nerr = NetShareAddNT(0&, 2, SI502, ret)
    Print nerr
End Sub
Private Sub Command2_Click()
'9x
On Error Resume Next
    SetStrings
    nerr = NetShareAdd9x(0&, 50, SI50, ret)
    Print nerr
End Sub
Private Sub Command3_Click()
'Delete
On Error Resume Next
    If OSVERInfo.dwPlatformId = 1 Then
        nerr = NetShareDel9x(0&, nPath, 0&)
    Else
        nerr = NetShareDelNT(0&, nPath, 0&)
        Print nerr
    End If
End Sub
Public Sub SetStrings()
    If OSVERInfo.dwPlatformId = 1 Then
'9x OS
        nPath = "NewShare"
        ShareRemark = "Remark for new share"
        SharePath = "C:\dos"
        pwd = "Share"
 
        SI50.shi50_netname = nPath
        SI50.shi50_path = SharePath
 
        SI50.shi50_remark = ShareRemark
        SI50.shi50_type = STYPE_DISKTREE
        SI50.shi50_ro_password = vbNullChar
        SI50.shi50_rw_password = vbNullChar
 
    Else
'NT OS
        nPath = StrConv("NewShare", vbUnicode)
        ShareRemark = StrConv("Remark for new share", vbUnicode)
        SharePath = StrConv("C:\dos", vbUnicode)
        pwd = StrConv("Share", vbUnicode)
 
        SI502.shi502_current_uses = 0
        SI502.shi502_max_uses = 10
        SI502.shi502_netname = nPath
        SI502.shi502_passwd = pwd
        SI502.shi502_path = SharePath
        SI502.shi502_permissions = ACCESS_ALL
        SI502.shi502_remark = ShareRemark
        SI502.shi502_reserved = 0
        SI502.shi502_security_descriptor = Security
        SI502.shi502_type = STYPE_DISKTREE
 
    End If
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!