1

特定の部門のユーザーについて AD にクエリを実行するスクリプトを作成する必要があります。これは、ユーザーに最初に入力してから、選択した部門の特定のユーザーがすべてのマシンにインストールされているソフトウェアを出力するように求めます。特定のマシンがログオンしているすべてのマシンのすべてのソフトウェアを表示できるようにしたいと考えています。

現在、以下のパーツを使用しています。

1) 特定の部門からユーザーを取得するための AD でのクエリ:

Import-Module ActiveDirectory
$Dept = Read-Host "Enter the desired department"
$strFilter = "(&(objectCategory=User)(Department=*$Dept*))"
$colResults = Get-ADUser -LDAPFilter $strFilter |
          Select-Object -Expand DistinguishedName

2) 私は、LanDesk と組み合わせた SQL でクエリを実行する、私の前の人からのスクリプトも使用しています。下記参照:

$SQLServerLANDESK = "usernam\password"  
$SqlConnectionLANDESK = New-Object System.Data.SqlClient.SqlConnection
$global:dt = new-object System.Data.DataTable

$LONA = ""
$o = 0

function doit() {
    $SqlConnectionLANDESK.ConnectionString = "Server=$SQLServerLANDESK; Database=   $SQLDBNameLANDESK;uid=useraidi; pwd=parola"
    $SqlConnectionLANDESK.Open()

    $QueryLANDesk = @"

SELECT DISTINCT A0.DISPLAYNAME, A0.LOGINNAME,A0.PRIMARYOWNER,A0.TYPE, A1.OSTYPE, A2.SUITENAME, A2.PUBLISHER, A2.VERSION  
FROM Computer A0 (nolock) LEFT OUTER JOIN Operating_System A1 (nolock) ON A0.Computer_Idn = A1.Computer_Idn LEFT OUTER JOIN AppSoftwareSuites A2 (nolock) ON A0.Computer_Idn = A2.Computer_Idn  
WHERE  A0.DEVICENAME like '%D02DI0907061%'
 or A0.DEVICENAME like '%D02DI0929860%'

"@

    $CommandLANDesk = new-object System.Data.SqlClient.SqlDataAdapter ($QueryLANDesk, $SqlConnectionLANDESK) 
    $CommandLANDesk.fill($dt) | out-null

    $dtrc = $dt.Rows.Count
     Write-Host "($i) Searching all cores ($dtrc machines)..."

    $SqlConnectionLANDESK.Close() 
}

 foreach ($i in  1..10)
 {if ($i -eq 6) {continue}
  $SQLDBNameLANDESK = "database"
  $SQLServerLANDESK = "username\parola"
  doit
 }

Write-Host 

$dt.select("displayname like '%$LONA%'") | export-csv H:\TEST\add-remove_TEST_LOGINNAME.csv # | foreach  {  $o++  }

# "$o machines found."

基本的にポイント1からの結果検索を接続し、それをDistinguishedName形式の「PRIMARYOWNER」と照合し、それらをSQLのテーブルに保存できるようにしたいと考えています。それ、どうやったら出来るの?

4

0 に答える 0