Finally I had the time to finish it.
code:
; Kix32 script ReCrEaTsHaReS.kix
; Created February 02, 2001 by Fabian Strubel
; Updated February 02, 2001 by Fabian Strubel
; Version 1.00 ; Start of script
:Start
CLS
BREAK ON
MD "@CURDIR\Temp"
MD "@CURDIR\Output"
GOTO CreateCMD
; Greate Windows/NT command interpreter ReCrEaTsHaReS.cmd
:CreateCMD
$GarBage="The command c,Share name,-------------"
$Excludes="A$,ADMIN$,B$,C$,D$,E$,F$,G$,H$,I$,IPC$,J$,K$,L$,M$,N$,NETLOGON,O$,P$,Q$,R$,S$,T$,U$,V$,W$,X$,Y$,Z$"
AT(02,02)"Greate Input files with share info per system"
DEL "@CURDIR\Temp\*.*"
$NULL=OPEN(1,"@CURDIR\Input\ScanSystems.inp")
$LINE1=READLINE(1)
WHILE @ERROR=0
$WKSTA=RTRIM(LCASE($LINE1))
AT(04,02)"Scanning System : "$WKSTA
SHELL'CMD /X/C "@CURDIR\Bin\Rmtshare.exe \\$WKSTA>@CURDIR\Temp\RmtshareOutPut.tmp"'
$NULL=OPEN(2,"@CURDIR\Temp\RmtshareOutPut.tmp")
DEL "@CURDIR\OutPut\ReCrEaTsHaReS.cmd"
$NULL=OPEN(3,"@CURDIR\OutPut\ReCrEaTsHaReS.cmd",5)
$LINE2=READLINE(2)
WHILE @ERROR=0
$Share=RTRIM(SUBSTR($LINE2,1,13))
IF INSTR($GarBage,$Share)=0 AND INSTR($Excludes,$Share)=0
AT(05,02)"Shares found : "$Share
SHELL'CMD /X/C "@CURDIR\Bin\Rmtshare.exe \\$WKSTA\"$Share">@CURDIR\Temp\"$WKSTA"_"$Share"_OutPut.tmp"'
$NULL=OPEN(4,"@CURDIR\Temp\"+$WKSTA+"_"+$Share+"_OutPut.tmp")
$LINE4=READLINE(4)
WHILE @ERROR=0
SELECT
CASE RTRIM(SUBSTR($LINE4,1,14))="Share name"
$ShareName=LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))
CASE RTRIM(SUBSTR($LINE4,1,14))="Path"
$Path=LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))
CASE RTRIM(SUBSTR($LINE4,1,14))="Remark"
IF LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))=""
$CMD_Remark=" /REMARK:"+CHR(34)+"No Remarks"+CHR(34)+""
ELSE
$CMD_Remark=" /REMARK:"+CHR(34)+LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))+CHR(34)+""
ENDIF
CASE RTRIM(SUBSTR($LINE4,1,14))="Maximum users"
IF LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))="No limit"
$CMD_MaximumUsers=" /UNLIMITED"
ELSE
$CMD_MaximumUsers=" /USERS:"+LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))
ENDIF
CASE RTRIM(SUBSTR($LINE4,1,14))="Permissions:"
$Permissions=LTRIM(SUBSTR($LINE4,14,LEN($LINE4)-13))
$CMD_Permissions=""
$LINE4=READLINE(4)
WHILE LTRIM($LINE4)<>"The command completed successfully."
IF INSTR($LINE4,"NT AUTHORITY\")<>0
$LINE4=SUBSTR($LINE4,14,LEN($LINE4)-13)
ENDIF
IF INSTR($LINE4," BUILTIN\")<>0
$LINE4=SUBSTR($LINE4,10,LEN($LINE4)-9)
ENDIF
IF INSTR($LINE4,"\Everyone")<>0
$LINE4=SUBSTR($LINE4,10,LEN($LINE4)-9)
ENDIF
IF INSTR($LINE4,": NONE")<>0
$CMD_Permissions=" /GRANT "+CHR(34)+RTRIM(LTRIM(SUBSTR($LINE4,1,LEN($LINE4)-7)))+CHR(34)+":N"+$CMD_Permissions
ENDIF
IF INSTR($LINE4,": READ")<>0
$CMD_Permissions=" /GRANT "+CHR(34)+RTRIM(LTRIM(SUBSTR($LINE4,1,LEN($LINE4)-7)))+CHR(34)+":R"+$CMD_Permissions
ENDIF
IF INSTR($LINE4,": CHANGE")<>0
$CMD_Permissions=" /GRANT "+CHR(34)+RTRIM(LTRIM(SUBSTR($LINE4,1,LEN($LINE4)-9)))+CHR(34)+":C"+$CMD_Permissions
ENDIF
IF INSTR($LINE4,": FULL CONTROL")<>0
$CMD_Permissions=" /GRANT "+CHR(34)+RTRIM(LTRIM(SUBSTR($LINE4,1,LEN($LINE4)-15)))+CHR(34)+":F"+$CMD_Permissions
ENDIF
$LINE4=READLINE(4)
LOOP
ENDSELECT
$LINE4=READLINE(4)
LOOP
$NULL=CLOSE(4)
$CMD_Share=$ShareName+"="+$Path
$NULL=WRITELINE(3,"RMTSHARE "+$CMD_Share+$CMD_Remark+$CMD_MaximumUsers+$CMD_Permissions+CHR(13)+CHR(10))
ENDIF
$LINE2=READLINE(2)
LOOP
$NULL=CLOSE(3)
$NULL=CLOSE(2)
$LINE1=READLINE(1)
LOOP
GOTO End
; End of Script
:End
EXIT
What you need: Rmtshare.exe (linker version 5.12) in the dir '@CURDIR\Bin' and an input file 'ScanSystems.inp' in the dir '@CURDIR\Input'.
What to do: Enter in the input file 'ScanSystems.inp' the bare NETBios names of the systems you want to create the CMD script for.
What can it do: It creates a Windows/NT command interpreter script for all non-default shares, but you should excluse the printershares..
I hope this is something you where looking for.
