22 lines
622 B
PostScript
22 lines
622 B
PostScript
|
|
$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
|