http://pnpk.net

グループポリシーの管理で、

このグループポリシーはこのグループには割り当てたく無いんだけどな・・・なんて思う事が結構あって、でもOU毎にグループポリシー作成するのも面倒だからな・・・。

なんて思う事が結構あったんです。グループポリシーをフィルターして特定のアカウントオブジェクトのみに割り当てるって方法もあるのは知ってたんだけど、実際には今まで使った事がありませんでした。だってこの辺日本語で公開されてる情報が少ないんですもの。

今日必要にかられてしょうがなくWMIフィルタをはじめてつかってみたんですが、結構簡単で使いやすかったんで記載しておきます。

MMCでグループポリシーの管理を開いた後、

グループポリシーの管理→ドメイン→ドメイン名→WMIフィルタ

から新規を選択。

WMIフィルタの中身はほぼSQL文と同じです。（一部使えないコマンドあります）
例えば以下のようなクエリを流すとWin32_ComputerSystemのModelが’VMware Virtual Platform’と’Virtual Machine’以外の場合実行するという事になります。

Select * from Win32_ComputerSystem 
where Model <> 'Virtual Machine' AND Model <>  'VMware Virtual Platform'

例えば特定の端末にログインした時のみ適用するポリシーに適用する場合には

Select * from Win32_ComputerSystem 
where Name = 'PC名'

こんな感じでOKです。

Popularity: 2%

Ping応答があったら再起動を実行するスクリプトです。各端末の管理者権限を持つアカウントを作成してタスクスケジュールすれば一台の管理サーバから集中して再起動が管理出来ます。

動作確認はWindows XP、Windows 2003のみです。

Cscript ping2reboot.vbs PC名

こんな感じで実行します。
(more…)

Popularity: 3%

Win32_ScheduledJobを使ってタスクを作成します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("Notepad.exe", "********123000.000000-420", _
True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated

項目の詳細は以下のページを参照

Creating Scheduled Tasks

Popularity: 3%

Win32_ScheduledJobを使ってタスクを作成します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewJob = objWMIService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("Notepad.exe", "********123000.000000-420", _
True , 1 OR 4 OR 16, , , JobID)
Wscript.Echo errJobCreated

項目の詳細は以下のページを参照

Creating Scheduled Tasks

Popularity: 3%

Win32_ScheduledJobを使って作成されたタスクの一覧を作成します。手動でタスクスケジューラに追加したタスクは削除出来ません。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colScheduledJobs = objWMIService.ExecQuery _
("Select * from Win32_ScheduledJob")
For Each objJob in colScheduledJobs
Wscript.Echo "Caption: " & objJob.Caption
Wscript.Echo "Command: " & objJob.Command
Wscript.Echo "Days Of Month: " & objJob.DaysOfMonth
Wscript.Echo "Days Of Week: " & objJob.DaysOfWeek
Wscript.Echo "Description: " & objJob.Description
Wscript.Echo "Elapsed Time: " & objJob.ElapsedTime
Wscript.Echo "Install Date: " & objJob.InstallDate
Wscript.Echo "Interact with Desktop: " & objJob.InteractWithDesktop
Wscript.Echo "Job ID: " & objJob.JobID
Wscript.Echo "Job Status: " & objJob.JobStatus
Wscript.Echo "Name: " & objJob.Name
Wscript.Echo "Notify: " & objJob.Notify
Wscript.Echo "Owner: " & objJob.Owner
Wscript.Echo "Priority: " & objJob.Priority
Wscript.Echo "Run Repeatedly: " & objJob.RunRepeatedly
Wscript.Echo "Start Time: " & objJob.StartTime
Wscript.Echo "Status: " & objJob.Status
Wscript.Echo "Time Submitted: " & objJob.TimeSubmitted
Wscript.Echo "Until Time: " & objJob.UntilTime
Next

Popularity: 3%

スケジュールされたタスクのうち、JobIDが1になっているタスクを削除します。ただしこのスクリプトで削除可能なタスクはWin32_ScheduledJobを用いて作成したタスクのみです。手動でタスクスケジューラに追加したタスクは削除出来ません。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objInstance = objWMIService.Get("Win32_ScheduledJob.JobID=1")
err = objInstance.Delete
Wscript.Echo err

Popularity: 2%