>> adshelp.htm ECHO ^Help for^ >> adshelp.htm ECHO ^Directory Service command line tools^ >> adshelp.htm ECHO ^%Ver%%SP%^ FOR /F "tokens=* delims=" %%A IN ('VER') DO SET Ver=%%A >> adshelp.htm ECHO ^%Ver%^ >> adshelp.htm ECHO ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. ECHO Creating command index table . . . SET FirstCell=1 >> adshelp.htm ECHO ^ SET Lines=1 SET DSCmd= FOR %%A IN (DSADD DSGET DSMOD DSMOVE DSQUERY DSRM) DO ( FOR /F "tokens=* delims=" %%B IN ('%%A /? 2^>^&1 ^| FIND /V "/?"') DO ( CALL :ListExec "%%~A" "%%~B" rem 2>NUL ) ) >> adshelp.htm ECHO ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^

^Back to the top of this page^^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. ECHO Creating help for individual commands . . . FOR %%A IN (DSADD DSGET DSMOD DSMOVE DSQUERY DSRM) DO CALL :ListHelp %%A ECHO Closing HTML file . . . >> adshelp.htm ECHO. >> adshelp.htm ECHO ^

>> adshelp.htm ECHO. >> adshelp.htm ECHO ^More detailed descriptions on Microsoft's Windows Server 2003 Directory Service command line tools can be found >> adshelp.htm ECHO ^here^^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^This HTML help file was generated by:^ >> adshelp.htm ECHO ^ADSHelp.bat^, Version %MyVer% >> adshelp.htm ECHO for Windows 2003 Server^ >> adshelp.htm ECHO Written by Rob van der Woude^ >> adshelp.htm ECHO ^http://www.robvanderwoude.com^^ >> adshelp.htm ECHO ^ ^ >> adshelp.htm ECHO Text find and replace script by TechNet Script Center's >> adshelp.htm ECHO ^Hey, Scripting Guy!^^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^ >> adshelp.htm ECHO ^ ECHO. ECHO Now starting display of "adshelp.htm" . . . START "ADSHelp" adshelp.htm :: End of main batch program ENDLOCAL GOTO:EOF :: Subroutines :AddLink FOR /F "tokens=1 delims=-" %%a IN (%1) DO SET DsDetailCmd=%%a SET DsDetailCmd=%DsDetailCmd:~0,-1% SET LoCase=%DsDetailCmd% CALL :UpCase SET DsDetailCmd=%UpCase% SET DsDetailCmd=%DsDetailCmd: =_% SET DsDetailCmd=%DsDetailCmd:^*=Gen% START /B /WAIT CSCRIPT //NoLogo "%Temp%\replace.vbs" "%Temp%\adshelp.tmp" "%LoCase% - " "%DsDetailCmd% - " GOTO:EOF :CreateVBScript > "%~1" ECHO ' Text find and replace script from TechNet Script Center's >> "%~1" ECHO ' "Hey, Scripting Guy!"'s article "How Can I Find and Replace Text in a Text File?" >> "%~1" ECHO ' http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0208.mspx >> "%~1" ECHO ' >> "%~1" ECHO ' Usage: CSCRIPT REPLACE.VBS "d:\path\textfile.txt" "oldtext" "newtext" >> "%~1" ECHO. >> "%~1" ECHO Const ForReading = 1 >> "%~1" ECHO Const ForWriting = 2 >> "%~1" ECHO. >> "%~1" ECHO strFileName = Wscript.Arguments^(0^) >> "%~1" ECHO strOldText = Wscript.Arguments^(1^) >> "%~1" ECHO strNewText = Wscript.Arguments^(2^) >> "%~1" ECHO. >> "%~1" ECHO Set objFSO = CreateObject^( "Scripting.FileSystemObject" ^) >> "%~1" ECHO Set objFile = objFSO.OpenTextFile^( strFileName, ForReading ^) >> "%~1" ECHO. >> "%~1" ECHO strText = objFile.ReadAll >> "%~1" ECHO objFile.Close >> "%~1" ECHO strNewText = Replace^( strText, strOldText, strNewText ^) >> "%~1" ECHO. >> "%~1" ECHO Set objFile = objFSO.OpenTextFile^( strFileName, ForWriting ^) >> "%~1" ECHO objFile.WriteLine strNewText >> "%~1" ECHO objFile.Close GOTO:EOF :ListExec IF /I NOT "%~1"=="%DSCmd%" ( SET Descr= SET DSCmd=%~1 SET Lines=1 ) IF %Lines%==0 GOTO:EOF IF "%~2"=="" ( SET Lines=0 GOTO:EOF ) FOR /F "tokens=1 delims=." %%C IN ('ECHO.%~2') DO IF DEFINED Descr (SET Descr=%Descr% %%C) ELSE (SET Descr=%%C) ECHO.%2 | FIND "." >NUL IF NOT ERRORLEVEL 1 ( FOR /F "tokens=1* delims=:" %%C IN ('ECHO.%Descr%') DO IF NOT "%%D"=="" SET Descr=%%D SET Lines=0 ) IF %Lines%==0 ( >> adshelp.htm ECHO ^ >> adshelp.htm ECHO ^^%DSCmd%^^ >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO ^^%Descr%^ >> adshelp.htm ECHO ^ ) GOTO:EOF :ListHelp SET DsHelpCmd=%~1 ECHO . . . %DsHelpCmd% >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^

%DsHelpCmd%^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^ :: Write help screen to temporary file IF EXIST "%Temp%\adshelp.tmp" DEL "%Temp%\adshelp.tmp" %DsHelpCmd% /? > "%Temp%\adshelp.tmp" 2>NUL :: "Escape" special characters in temporary file using temporary VBScript CSCRIPT //NoLogo "%Temp%\replace.vbs" "%Temp%\adshelp.tmp" "&" "&" CSCRIPT //NoLogo "%Temp%\replace.vbs" "%Temp%\adshelp.tmp" "<" "<" CSCRIPT //NoLogo "%Temp%\replace.vbs" "%Temp%\adshelp.tmp" ">" ">" :: Insert hyperlinks: FOR /F "tokens=* delims=" %%A IN ('TYPE "%Temp%\adshelp.tmp" ^| FINDSTR /R /B /I /C:"%DsHelpCmd% [a-z][a-z][a-z]* - [a-z]"') DO ( CALL :AddLink "%%~A" ) :: Append "escaped" text >> adshelp.htm TYPE "%Temp%\adshelp.tmp" >> adshelp.htm ECHO ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. IF /I NOT "%~1"=="DSGET" IF /I NOT "%~1"=="DSMOVE" IF /I NOT "%~1"=="DSRM" ( FOR /F "tokens=1* delims=-" %%B IN ('%DsHelpCmd% OU /? 2^>NUL ^| FINDSTR /R /I /B /C:"%~1 [^ -][^ -]* /\? - "') DO ( CALL :ListDetails "%%~B" "%%~C" ) ) IF /I "%~1"=="DSGET" ( FOR /F "tokens=1* delims=-" %%B IN ('%DsHelpCmd% OU /? 2^>NUL ^| FINDSTR /R /I /B /C:"%~1 [^/ -][^\? -]* - "') DO ( CALL :ListDetails "%%B~" "%%~C" ) ) >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^
^Back to the top of this page^^ >> adshelp.htm ECHO. >> adshelp.htm ECHO ^^ ^ >> adshelp.htm ECHO. GOTO:EOF :ListDetails >> adshelp.htm ECHO ^