I wanted to give a member of staff read-only access to Staff Contracts in SIMS.net. (Autumn 2012 release, 7.148)

None of the built-in groups in System Manager seemed to offer the level of access I wanted, so I created my own.

I granted the group read-only access to staff details (by selecting "Staff" from the permissions list and clicking "Set View").

However, when the user logged on and opened the staff details page, the "Contract" and "Service Agreement" panels (under section 8. Employment Details) were completely missing.

Eventually, after experimenting with Permissions, I found the answer was to enable the "P7 Field Trial" permission, under Personnel.

This solved the problem and the Contract and Service Agreement panels then appeared, allowing read-only access.

@echo off

if not exist "%ProgramFiles%\SIMS" goto end

if exist "%ProgramFiles%\SIMS\doneperm.txt" goto end

path \\[color="red"]server[/color]\netlogon

SubInAcl /FILE %WINDIR%\SIMS.INI /GRANT=[color="red"]domain\group[/color]=F
SubInAcl /SUBDIRECTORIES "%ProgramFiles%\SIMS\*.*" /GRANT=[color="red"]domain\group[/color]=F
SubInAcl /KEYREG HKEY_LOCAL_MACHINE\SOFTWARE\Classes /GRANT=[color="red"]domain\group[/color]
SubInAcl /KEYREG HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID /GRANT=[color="red"]domain\group[/color]
SubInAcl /KEYREG HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Interface /GRANT=[color="red"]domain\group[/color]
SubInAcl /KEYREG HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib /GRANT=[color="red"]domain\group[/color]

echo y >"%ProgramFiles%\SIMS\doneperm.txt"

:end

Notes: SubInAcl.exe must be copied to the netlogon folder.

This has been tested with Windows XP only. Not sure if it will work on Vista/7.

First of all, Add a Reference to SHDocVw. (Project > Add Reference > Browse > C:\Windows\System32\shdocvw.dll)

Secondly load a document into the browser using webBrowser1.Navigate(url).

Then,

to do "Print Preview"...

[color="#teal"]IWebBrowser2 [/color]browser = ([color="teal"]IWebBrowser2[/color])webBrowser1.ActiveXInstance;
[color="blue"]object [/color]pvaIn = [color="teal"]Missing[/color].Value;
[color="blue"]object [/color]pvaOut = [color="teal"]Missing[/color].Value;
browser.ExecWB([color="teal"]OLECMDID[/color].OLECMDID_PRINTPREVIEW, [color="teal"]OLECMDEXECOPT[/color].OLECMDEXECOPT_DODEFAULT, [color="blue"]ref [/color]pvaIn, [color="blue"]ref [/color]pvaOut);

To show the "Page Setup" dialog...

[color="#teal"]IWebBrowser2 [/color]browser = ([color="teal"]IWebBrowser2[/color])webBrowser1.ActiveXInstance;
[color="blue"]object [/color]pvaIn = [color="teal"]Missing[/color].Value;
[color="blue"]object [/color]pvaOut = [color="teal"]Missing[/color].Value;
browser.ExecWB([color="teal"]OLECMDID[/color].OLECMDID_PAGESETUP, [color="teal"]OLECMDEXECOPT[/color].OLECMDEXECOPT_DODEFAULT, [color="blue"]ref [/color]pvaIn, [color="blue"]ref [/color]pvaOut);

To Print straight away, without prompting the user:

[color="#teal"]IWebBrowser2 [/color]browser = ([color="teal"]IWebBrowser2[/color])webBrowser1.ActiveXInstance;
[color="blue"]object [/color]pvaIn = [color="teal"]Missing[/color].Value;
[color="blue"]object [/color]pvaOut = [color="teal"]Missing[/color].Value;
browser.ExecWB([color="teal"]OLECMDID[/color].OLECMDID_PRINT, [color="teal"]OLECMDEXECOPT[/color].OLECMDEXECOPT_DONTPROMPTUSER, [color="blue"]ref [/color]pvaIn, [color="blue"]ref [/color]pvaOut);

(The first three lines are same every time, it's only the last line that's different).

First open the database

[color="blue"]string [/color]constr = [color="#8b0000"]@"Provider=Microsoft.Jet.OLEDB.4.0;Data source=database.mdb"[/color];
[color="teal"]OleDbConnection [/color]con = [color="blue"]new [/color][color="teal"]OleDbConnection[/color](constr);
con.Open();

con.GetSchema() will return a list of collections in the database.

CollectionName        NumberOfRestrictions NumberOfIdentifierParts
--------------------- -------------------- -----------------------
MetaDataCollections            0                    0
DataSourceInformation          0                    0
DataTypes                      0                    0
Restrictions                   0                    0
ReservedWords                  0                    0
Columns                        4                    4
Indexes                        5                    4
Procedures                     4                    3
Tables                         4                    3
Views                          3                    3

The Tables collection contains the information we want, so call con.GetSchema("Tables").

TABLE_CATALOG  TABLE_SCHEMA           TABLE_NAME         TABLE_TYPE  TABLE_GUID DESCRIPTION TABLE_PROPID   DATE_CREATED    DATE_MODIFIED
-------------- ------------- --------------------------- ----------- ---------- ----------- ------------ ---------------- ---------------
                            clschk                      TABLE                                           29/12/2010 09:20 29/12/2010 09:20
                            coursedesc                  TABLE                                           29/12/2010 09:20 10/01/2011 09:00
                            MSysAccessStorage           ACCESS TABLE                                    29/12/2010 09:30 29/12/2010 09:30
                            MSysACEs                    SYSTEM TABLE                                    29/12/2010 09:20 29/12/2010 09:20
                            MSysNavPaneGroupCategories  ACCESS TABLE                                    29/12/2010 09:30 29/12/2010 09:30
                            MSysNavPaneGroups           ACCESS TABLE                                    29/12/2010 09:30 29/12/2010 09:30
                            MSysNavPaneGroupToObjects   ACCESS TABLE                                    29/12/2010 09:30 29/12/2010 09:30
                            MSysNavPaneObjectIDs        ACCESS TABLE                                    29/12/2010 09:30 29/12/2010 09:30
                            MSysObjects                 SYSTEM TABLE                                    29/12/2010 09:20 29/12/2010 09:20
                            MSysQueries                 SYSTEM TABLE                                    29/12/2010 09:20 29/12/2010 09:20
                            MSysRelationships           SYSTEM TABLE                                    29/12/2010 09:20 29/12/2010 09:20
                            sessioninfo                 TABLE                                           29/12/2010 09:20 29/12/2010 09:20
                            y11_subjectpred             TABLE                                           29/12/2010 09:20 29/12/2010 11:50
                            y11_tutorltnopro            TABLE                                           29/12/2010 09:20 29/12/2010 09:20

All of the user-created tables have a TABLE_TYPE of "TABLE".

The following code puts them into a list:

[color="teal"]List[/color]<[color="blue"]string[/color]> tables = [color="blue"]new [/color][color="teal"]List[/color]<[color="blue"]string[/color]>();
[color="blue"]foreach [/color]([color="teal"]DataRow [/color]r in con.GetSchema([color="#8b0000"]"Tables"[/color]).Select([color="#8b0000"]"TABLE_TYPE = 'TABLE'"[/color]))
   tables.Add(r[[color="#8b0000"]"TABLE_NAME"[/color]].ToString());