From 2bcce8a3be19ba6398dc2a286acd6366a736bd81 Mon Sep 17 00:00:00 2001
From: Lorenz Stechauner <lorenz.stechauner@necronda.net>
Date: Mon, 14 Nov 2022 23:34:02 +0100
Subject: [PATCH] Added permissions.ps

---
 wgmaster/permissions.ps | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 wgmaster/permissions.ps

diff --git a/wgmaster/permissions.ps b/wgmaster/permissions.ps
new file mode 100644
index 0000000..f69b90f
--- /dev/null
+++ b/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