But I have problem with Win7:

For all shared folders (that have Everyone) it just:

• did the replacement of Everyone with Domain Users the "Advanced Sharing" section but
• not in the "Network File and Folder Sharing" section, we can still see Everyone there even after rebooting the system. (FYI in the Sharing tab of the Properties of the any folder of Win7 you will find those 2 previously mentioned sections.)

How can I make the change in the "Network File and Folder Sharing" section?

Details:

• Windows Version 7 Enterprise 64 bit
• WinBatch Version 2009C
• Win32 Network Extender wwwnt34i.dll 39021

    ; replace Everyone or Authenticated user by Domain Users with the same right
     ErrorMode(@OFF)
         LastError()
           perm = wntAccessGet("",share,user,100,0)
     ErrorMode(@CANCEL)
     err=LastError()
     If err == 530
        text =StrCat(text,"%@CRLF%%@TAB%%@TAB%Access Denied getting to %share%. We will skip checking this share")
     EndIf
     If err == 530  Then Goto _nextshare
     rights = GetAccess(perm)
     rights = StrReplace(rights, "(","")
     rights = StrReplace(rights, ")","")
   ErrorMode(@OFF)
          LastError()
     aa = wntAccessAdd("",share,l_domain,100,rights,0)
   ErrorMode(@CANCEL)
    If aa == @TRUE
        ; Message (" "," We got 'Domain Users' implemented %aaa%"), let remove Everyone or Authenticated Users
      aaa = wntAccessDel("",share,user,100)
      If aaa == @FALSE
          text =StrCat(text,"%@CRLF%%@TAB%%@TAB%Cannot remove %user% from %share% share")
       Else
          text =StrCat(text,"%@CRLF%%@TAB%%@TAB%%user% in %share% share was replaced by %l_domain% ")
       EndIf
    Else
      text =StrCat(text,"%@CRLF%%@TAB%%@TAB%Cannot add %l_domain% to %share% share")
    EndIf
   :_nextshare

************************************************************

*** Debug Initialized ***

==============================
Fri 4/8/2011 10:34:16 AM
WinBatch 32 2009C
WIL DLL 6.09cic
D:\UGS_TOOLS\ww304\Shared_Folder_Fix\Deana_test.wbt
Windows platform: NT, Version: 6.1, build: 7600
ErrorMode: @CANCEL
==============================

user = 'S-1-1-0'
(0) VALUE STRING => "S-1-1-0"

domainuser = 'S-1-5-21-954228201-601818101-482762101-513'
(0) VALUE STRING => "S-1-5-21-954228201-601818101-482762101-513"

domain = ''
(0) VALUE STRING => ""

rights = 'DirShare:Full'
(0) VALUE STRING => "DirShare:Full"

----- Extender loaded: C:\Program Files (x86)\WinBatch\SYSTEM\WWWNT34i.DLL (file Version: 39021,0,0,1)

AddExtender('WWWNT34i.DLL')
(0) VALUE Int => 1

list = wntShareList(domain, 1 | 16, 0)
(0) VALUE STRING => "ADMIN$   C$   Change_domain   D$   F$   good_tools   Password   Photo   Rename_system   SAP-AD   system_name   Users"

share = AskItemlist('List of Shares',list, @TAB, @UNSORTED, @SINGLE)
(3417) VALUE UNICODE => Photo

If share == ''
(3417) End OPERATOR

perm = wntAccessGet( domain, share, user, 100, 1 )
(3417) VALUE STRING => "0:3:2032127|"

aa = wntAccessAdd( domain, share, domainuser, 100, perm, 1 )
(3417) VALUE Int => 1

CHECK = wntAccessGet( domain, share, domainuser, 100, 1 )
(3417) VALUE STRING => "0:3:2032127|"

Pause('Notice',StrCat(' Please confirm that the user', domainuser, ' has been sucessfully added to the share ', share))
(4821) VALUE Int => 1

Exit
(4821) VALUE Int => 0

--- NORMAL termination ---

;;;END OF JOB;;;