Network Share Management Functions - ?

[registrymechanic22]

Help please.
Prompt please an example how to do it on PB:

• NetShareAdd_(
  NetShareCheck_(
  NetShareDel_(
  NetShareDelEx_(
  NetShareEnum_(
  NetShareGetInfo_(
  NetShareSetInfo_(
  NetStatisticsGet_(

I do not understand how this translates into the PB and examples on forums never found .
Thanks.

[JHPJHP]

Hi registrymechanic22,

This should get you started:

Code: Select all

Structure _SHARE_INFO_502 
  shi502_netname.l
  shi502_type.l
  shi502_remark.l
  shi502_permissions.l
  shi502_max_uses.l
  shi502_current_uses.l
  shi502_path.l
  shi502_passwd.l
  shi502_reserved.l
  *shi502_security_descriptor.SECURITY_DESCRIPTOR
EndStructure

If FileSize("C:\Temp") <> -2 : CreateDirectory("C:\Temp") : EndIf

If FileSize("C:\Temp") = -2
  #STYPE_DISKTREE = 0
  #STYPE_PRINTQ = 1
  #STYPE_DEVICE = 2
  #STYPE_IPC = 3
  #STYPE_SPECIAL = $80000000

  #ACCESS_READ = $1
  #ACCESS_WRITE = $2
  #ACCESS_CREATE = $4
  #ACCESS_EXEC = $8
  #ACCESS_DELETE = $10
  #ACCESS_ATRIB = $20
  #ACCESS_PERM = $40

  buf._SHARE_INFO_502
  buf\shi502_netname = @"TempShared"
  buf\shi502_type = #STYPE_DISKTREE
  buf\shi502_remark = @"Test Share"
  buf\shi502_permissions = #ACCESS_READ
  buf\shi502_max_uses -1
  buf\shi502_current_uses = 5
  buf\shi502_path = @"C:\Temp"
  buf\shi502_reserved = 0

  NetShareAdd_(#Null, 502, @buf, @parm_err)

  If parm_err : Debug "ERROR: Incorrect Parameter " + Str(parm_err) : EndIf

Else
  Debug "ERROR: Missing Folder C:\Temp"
EndIf

Compiler-Options
- Create unicode executable
- Request Administrator mode for Windows Vista and above
-- needed for Windows 8

SHARE_INFO_502 structure: http://msdn.microsoft.com/en-us/library ... s.85).aspx

[registrymechanic22]

Hi JHPJHP!

Code: Select all

;---------------------------------------------------------------------------
;----24.12.2014-------------------------------------------------------------
;-----by JHPJHP-------------------------------------------------------------
;---------------------------------------------------------------------------

Structure _SHARE_INFO_502 
  shi502_netname.l
  shi502_type.l
  shi502_remark.l
  shi502_permissions.l
  shi502_max_uses.l
  shi502_current_uses.l
  shi502_path.l
  shi502_passwd.l
  shi502_reserved.l
  *shi502_security_descriptor.SECURITY_DESCRIPTOR
EndStructure

  #STYPE_DISKTREE = 0
  #STYPE_PRINTQ = 1
  #STYPE_DEVICE = 2
  #STYPE_IPC = 3
  #STYPE_SPECIAL = $80000000

  #ACCESS_READ = $1
  #ACCESS_WRITE = $2
  #ACCESS_CREATE = $4
  #ACCESS_EXEC = $8
  #ACCESS_DELETE = $10
  #ACCESS_ATRIB = $20
  #ACCESS_PERM = $40
;---------------------------------------------------------------------------

If FileSize("C:\Test") <> -2 : CreateDirectory("C:\Test") : EndIf

;---------------------------------------------------------------------------
;-Add Share

If FileSize("C:\Test") = -2

  buf._SHARE_INFO_502
  buf\shi502_netname = @"TestShared"
  buf\shi502_type = #STYPE_DISKTREE
  buf\shi502_remark = @"Test Share"
  buf\shi502_permissions = #ACCESS_READ
  buf\shi502_max_uses -1
  buf\shi502_current_uses = 5
  buf\shi502_path = @"C:\Test"
  buf\shi502_reserved = 0
  NetShareAdd_(#Null, 502, @buf, @parm_err)

  If parm_err : Debug "ERROR: Parameter: " + Str(parm_err) + "." : EndIf

Else
  Debug "ERROR: Folder Test Missing."
EndIf

;---------------------------------------------------------------------------
;-Del Share

Delay (5000)
If FileSize("C:\Test") = -2

NetShareDel_(#Null, "TestShared", #Null)

Else
  Debug "ERROR: Folder Test Missing."
EndIf

;---------------------------------------------------------------------------
; 
.................................
..............
.......

Thank you very much for your help!
Best regards.



Can I ask for help to give examples of the remaining functions ?:

• NetShareCheck_(
  NetShareDelEx_(
  NetShareEnum_(
  NetShareGetInfo_(
  NetShareSetInfo_(
  NetStatisticsGet_(

[Deluxe0321]

More here

[JHPJHP]

Hi registrymechanic22,

When time allows I'll be adding an updated version titled Network Share Management Functions to Tricks 'n' Tips.

Seasons Greetings,

[registrymechanic22]

Hi registrymechanic22,
Here is a link to the NetShare Functions you requested: https://www.dropbox.com/s/sv3ja4n0ubhs0 ... e.zip?dl=0
The example creates and deletes the folder C:\JHPJHP, adding and removing the share JHPShare.
- if the folder already exists it will not be deleted, but the share will be removed
NB*: When time allows I'll be adding an updated version titled "NetShare" to my Services, Stuff, and Shellhook post.
Seasons Greetings,

COOL!
Many thanks!
Wish you all the best!

[PeteM]

The example above no longer seems to work. The directory gets created, but "ERROR: Parameter: 501." gets returned. Downloading the full Netshare package produces an almost identical result in NetShareAdd.pb - its returns "ERROR: Invalid Parameter [ 501 ]"

I am using 64-bit 5.42 LTS on Windows 10.

Any ideas gratefully received!

[JHPJHP]

Hi PeteM,

The Network Share Management Functions have been updated to support x64.

[PeteM]

Beautiful, worked first time! Thanks.