Create Shares Code
As always the code presented here is for instructional purposes. These scripts will most likely need to be modified to run in your environment. Also as I believe firmly in "re-usable code" you may find pieces of your scripts incorporated into mine. If so and you would like credit use the "email me" link and let me know. I'll be happy to add your name. Likewise if you use my code in a public forum please give me credit.NOTE: You can copy and paste the code below to a text file, just change the extension to ".wbt" so it will run in Winbatch.
About This Script:
Script to quickly create user shares for new accounts ( a company that was merged with).
Addextender("WWWNT32I.DLL")
Time=TimeDate ( )
T1=DiskExist("q")
If T1==@FALSE then wntAddDrive(@default,@default,"\\NTFS60\home","q:",@False)
H="C:\Busers.txt"
old = FileOpen(H, "READ")
while old != "*EOF*"
name = FileRead(old)
DirMake("q:\%name%")
DirMake("q:\%name%\Personal")
DirMake("q:\%name%\Personal\Exchange")
DirMake("q:\%name%\Public")
DirMake("q:\%name%\Transfer")
wntAccessDel("","q:\%name%\Personal","domain users",300)
wntAccessDel("","q:\%name%\Personal","everyone",300)
wntAccessAdd("","q:\%name%\Personal","AFFYMETRIX\%name%",300,"DirNT:Change")
wntAccessAdd("","q:\%name%\Personal\Exchange","AFFYMETRIX\%name%",300,"DirNT:Change")
wntAccessAdd("","q:\%name%\Public","AFFYMETRIX\%name%",300,"DirNT:Change")
wntAccessAdd("","q:\%name%\Public","domain users",300,"DirNT:Read")
wntAccessAdd("","q:\%name%\Transfer","everyone",300,"DirNT:Change")
wntAccessAdd("","q:\%name%\Transfer","domain users",300,"DirNT:Change")
Gosub LOG
If name == "*EOF*" Then Break
endwhile
FileClose(old)
:LOG
handle=FileOpen("c:\NewUserShare.txt","APPEND")
Filewrite(handle,"User Share: %name% Created:%time% ")
FileClose(handle)
return