Added permissions.ps

wgmaster/permissions.ps

@@ -0,0 +1,21 @@
+
+$ScrUsr = $(whoami)
+Write-Host $ScrUsr
+
+$cmd = "GRANT SELECT ON MSysObjects TO Admin;"
+Write-Host $cmd
+
+Function Invoke-ADOCommand($Db, $SystemDb)
+{
+  $connection = New-Object -ComObject ADODB.Connection
+  $ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=$db;Jet OLEDB:System database=$SystemDb;"
+  Write-Host $ConnectionString
+  $connection.Open($ConnectionString)
+  $discard = $connection.Execute($cmd)
+  $connection.Close()
+} 
+
+$db = "C:\Users\Lorenz\Desktop\wgmaster2010.accdb"
+$systemdb = "C:\Users\Lorenz\AppData\Roaming\Microsoft\Access\System.mdw"
+
+Invoke-adocommand -db $db -systemdb $systemdb