Would you like a script that outputs the contents of ADM files looking like this (example is WINNT.ADM):

code:

Registry hive: MACHINE
 |-Windows NT Network
 |  |-Sharing
 |  |    Key: System\CurrentControlSet\Services\LanManServer\Parameters
 |  |    Policy: Create hidden drive shares (workstation)
 |  |       Entry: 'AutoShareWks'
 |  |    Policy: Create hidden drive shares (server)
 |  |       Entry: 'AutoShareServer'
 |-Windows NT Printers
 |    Key: System\CurrentControlSet\Control\Print
 |    Policy: Disable browse thread on this computer
 |       Entry: 'DisableServerThread'
 |    Policy: Scheduler priority
 |       Entry: 'SchedulerThreadPriority'
 |    Policy: Beep for error enabled
 |       Entry: 'BeepEnabled'
 |-Windows NT Remote Access
 |    Key: System\CurrentControlSet\Services\RemoteAccess\Parameters
 |    Policy: Max number of unsuccessful authentication retries
 |       Entry: 'AuthenticateRetries'
 |    Policy: Max time limit for authentication
 |       Entry: 'AuthenticateTime'
 |    Policy: Wait interval for callback
 |       Entry: 'CallbackTime'
 |    Policy: Auto Disconnect
 |       Entry: 'AutoDisconnect'
 |-Windows NT Shell
 |  |-Custom shared folders
 |  |    Key: Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
 |  |    Policy: Custom shared Programs folder
 |  |       Entry: 'Common Programs'
 |  |    Policy: Custom shared desktop icons
 |  |       Entry: 'Common Desktop'
 |  |    Policy: Custom shared Start menu
 |  |       Entry: 'Common Start Menu'
 |  |    Policy: Custom shared Startup folder
 |  |       Entry: 'Common Startup'
 |-Windows NT System
 |  |-Logon
 |  |    Policy: Logon banner
 |  |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |  |       Entry: 'LegalNoticeCaption'
 |  |       Entry: 'LegalNoticeText'
 |  |    Policy: Enable shutdown from Authentication dialog box
 |  |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |  |       Entry: 'ShutdownWithoutLogon'
 |  |    Policy: Do not display last logged on user name
 |  |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |  |       Entry: 'DontDisplayLastUserName'
 |  |    Policy: Run logon scripts synchronously.
 |  |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |  |       Entry: 'RunLogonScriptSync'
 |  |-File system
 |  |    Key: System\CurrentControlSet\Control\FileSystem
 |  |    Policy: Do not create 8.3 file names for long file names
 |  |       Entry: 'NtfsDisable8dot3NameCreation'
 |  |    Policy: Allow extended characters in 8.3 file names
 |  |       Entry: 'NtfsAllowExtendedCharacterIn8dot3Name'
 |  |    Policy: Do not update last access time
 |  |       Entry: 'NtfsDisableLastAccessUpdate'
 |-Windows NT User Profiles
 |    Key: Software\Microsoft\Windows NT\CurrentVersion\winlogon
 |    Policy: Delete cached copies of roaming profiles
 |       Entry: 'DeleteRoamingCache'
 |    Policy: Automatically detect slow network connections
 |       Entry: 'SlowLinkDetectEnabled'
 |    Policy: Slow network connection timeout
 |       Entry: 'SlowLinkTimeOut'
 |    Policy: Slow network default profile operation
 |       Entry: 'SlowLinkProfileDefault'
 |    Policy: Choose profile default operation
 |       Entry: 'ChooseProfileDefault'
 |    Policy: Timeout for dialog boxes
 |       Entry: 'ProfileDlgTimeOut'

Registry hive: USER
 |-Windows NT Shell
 |  |-Custom user interface
 |  |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |  |    Policy: Custom shell
 |  |       Entry: 'Shell'
 |  |-Custom folders
 |  |    Key: Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
 |  |    Policy: Custom Programs folder
 |  |       Entry: 'Programs'
 |  |    Policy: Custom desktop icons
 |  |       Entry: 'Desktop'
 |  |    Policy: Hide Start menu subfolders
 |  |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
 |  |       Entry: 'NoStartMenuSubFolders'
 |  |    Policy: Custom Startup folder
 |  |       Entry: 'Startup'
 |  |    Policy: Custom Network Neighborhood
 |  |       Entry: 'NetHood'
 |  |    Policy: Custom Start menu
 |  |       Entry: 'Start Menu'
 |  |-Restrictions
 |  |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
 |  |    Policy: Only use approved shell extensions
 |  |       Entry: 'EnforceShellExtensionSecurity'
 |  |    Policy: Remove View->Options menu from Explorer
 |  |       Entry: 'NoOptions'
 |  |    Policy: Remove Tools->GoTo menu from Explorer
 |  |       Entry: 'NoGoTo'
 |  |    Policy: Remove File menu from Explorer
 |  |       Entry: 'NoFileMenu'
 |  |    Policy: Remove common program groups from Start menu
 |  |       Entry: 'NoCommonGroups'
 |  |    Policy: Disable context menus for the taskbar
 |  |       Entry: 'NoTrayContextMenu'
 |  |    Policy: Disable Explorer's default context menu
 |  |       Entry: 'NoViewContextMenu'
 |  |    Policy: Remove the "Map Network Drive" and "Disconnect Network Drive" options
 |  |       Entry: 'NoNetConnectDisconnect'
 |  |    Policy: Disable link file tracking
 |  |       Entry: 'LinkResolveIgnoreLinkInfo'
 |  |    Policy: Remove NT Security item from Start menu
 |  |       Entry: 'NoNTSecurity'
 |  |    Policy: Remove Disconnect item from Start menu
 |  |       Entry: 'NoDisconnect'
 |  |    Policy: Remove Logoff item from Start menu
 |  |       Entry: 'NoLogoff'
 |  |    Policy: Prevent user from changing file type associations
 |  |       Entry: 'NoFileAssociate'
 |-Windows NT System
 |    Policy: Parse Autoexec.bat
 |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |       Entry: 'ParseAutoexec'
 |    Policy: Run logon scripts synchronously.
 |    Key: Software\Microsoft\Windows NT\CurrentVersion\Winlogon
 |       Entry: 'RunLogonScriptSync'
 |    Policy: Disable Logoff
 |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
 |       Entry: 'NoLogoff'
 |    Policy: Disable Task Manager
 |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
 |       Entry: 'DisableTaskMgr'
 |    Policy: Disable Lock Workstation
 |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
 |       Entry: 'DisableLockWorkstation'
 |    Policy: Disable Change Password
 |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
 |       Entry: 'DisableChangePassword'
 |    Policy: Show welcome tips at logon
 |    Key: Software\Microsoft\Windows\CurrentVersion\Explorer\Tips
 |       Entry: 'Show'
 |-Windows NT User Profiles
 |    Policy: Limit profile size
 |    Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
 |       Entry: 'EnableProfileQuota'
 |       Entry: 'ProfileQuotaMessage'
 |       Entry: 'MaxProfileSize'
 |       Entry: 'IncludeRegInProQuota'
 |       Entry: 'WarnUser'
 |       Entry: 'WarnUserTimeout'
 |    Policy: Exclude directories in roaming profile
 |    Key: Software\Policies\Microsoft\Windows\System
 |       Entry: 'ExcludeProfileDirs'

You would? Here you go then:

quote:
USE NEWER VERSION POSTED BELOW

It doesn't parse everything (help comments for example), but the framework is there to add the rest.

Unfortunately the real world (work) has intervened so I'm going to have to leave it now.

NB When specifying the "ADM" file be sure to include a path name otherwise the string lookups will fail, i.e. "WINNT.ADM" will *not* work, ".\WINNT.ADM" will.

Of course it is trivial to use the information to read the reg keys and display the contents, but I leave that as an exercise for the reader [Wink]

[ 12 July 2002, 16:43: Message edited by: Richard Howarth ]

Break On

Global $bInString $bInString=0
Global $bIsEnding $bIsEnding=0
Global $sString
Global $cQuote $cQuote='"'
Global $sAction
Global $sHive
Global $sKey
Global $sEntry
Global $sIniFile

; Constants
Global $INDENT $INDENT=" | "
Global $BRANCH $BRANCH=" |-"
Global $SPACES $SPACES=" "
Global $TAB $TAB=Chr(9)

; Call UDF
$=udfDocPolicy(".\common.adm")

Function udfDocPolicy($sPolicyFile)
If Open(1,$sPolicyFile)
"Cannot open file " $sPolicyFile " for reading." ?
$udfDocPolicy=1
Return
EndIf

$sIniFile=$sPolicyFile

$sData=ReadLine(1)
While @ERROR=0
; Convert tabs to spaces.
; How long did it take me to work out why the split was failing!
; Doh!
$iIndex=InStr($sData,$TAB)
While $iIndex
$sData="" + SubStr($sData,1,$iIndex-1) + " " + SubStr($sData,$iIndex+1,9999)
$iIndex=InStr($sData,$TAB)
Loop
udfParseLine(Split($sData))
$sData=ReadLine(1)
Loop
$udfDocPolicy=0
Return
EndFunction

Function udfParseLine($asData)
$iArraySize=Ubound($asData)
For $iIndex = 0 To $iArraySize
udfInterpret($asData[$iIndex])
Next
EndFunction

Function udfInterpret($sToken)

If $bInString=0 $sString="" EndIf

If $sAction = ""
Select
Case $sToken="END"
$sAction=$sToken
Case $sToken="CLASS"
$sAction=$sToken
Case $sToken="CATEGORY"
$sAction=$sToken
Case $sToken="PART"
$sAction=$sToken
Case $sToken="POLICY"
$sAction=$sToken
Case $sToken="KEYNAME"
$sAction=$sToken
Case $sToken="VALUENAME"
$sAction=$sToken
Case $sToken="VALUEPREFIX"
$sAction=$sToken
EndSelect
Else
Select
Case $bInString
$sString=$sString + " " + $sToken
If SubStr($sToken,Len($sToken),1)=$cQuote
$bInString=0
$sString=SubStr($sString,1,Len($sString)-1)
EndIf
Case $sToken=""
Return
Case SubStr($sToken,1,1)=$cQuote
$bInString=1
$sString=SubStr($sToken,2,Len($sToken)-1)
If SubStr($sString,Len($sString),1)=$cQuote
$bInString=0
$sString=SubStr($sString,1,Len($sString)-1)
EndIf
Case SubStr($sToken,1,2)="!!"
; Get parameter from string fields
$sString=ReadProfileString($sIniFile,"strings",SubStr($sToken,3,99))
EndSelect
; Actions.
If $bInString Return EndIf
Select
Case $sAction="END"
Select
Case $sToken="CATEGORY"
$sIndent=SubStr($sIndent,1,Len($sIndent)-Len($INDENT))
EndSelect
$sAction=""
Case $sAction="CLASS"
? "Registry hive: " $sToken ?
$sIndent=""
Select
Case $sToken="MACHINE"
$sHive="HKEY_LOCAL_MACHINE"
Case $sToken="USER"
$sHive="HKEY_CURRENT_USER"
EndSelect
Case $sAction="CATEGORY"
$sIndent $BRANCH
If $sString="" $sToken Else $sString EndIf
?
$sIndent=""+$sIndent+$INDENT
Case $sAction="POLICY"
$sIndent $SPACES "Policy: "
If $sString="" $sToken Else $sString EndIf
?
Case $sAction="KEYNAME"
If $sString="" $sKey=$sToken Else $sKey=$sString EndIf
$sIndent $SPACES "Key: " $sKey ?
Case $sAction="VALUENAME"
If $sString="" $sEntry=$sToken Else $sEntry=$sString EndIf
$sIndent $SPACES $SPACES "Entry: '" $sEntry "'=" ReadValue($sHive + "\" + $sKey,$sEntry) ?
Case $sAction="VALUEPREFIX"
$iEnum=0
$sEntry=EnumValue($sHive + "\" + $sKey,$iEnum)
While @ERROR=0
"ERROR=@ERROR, Enum=$iEnum, Entry=$sEntry" ?
If $sString=SubStr($sEntry,1,Len($sString))
$sIndent $SPACES $SPACES "Entry: '" $sEntry "'="
ReadValue($sHive + "\" + $sKey,$sEntry) ?
EndIf
$iEnum=$iEnum+1
$sEntry=EnumValue($sHive + "\" + $sKey,$iEnum)
Loop
EndSelect
$sAction=""
$bIsEnding=0
EndIf
EndFunction