http://pnpk.net

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%

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

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colScheduledTasks = objWMIService.ExecQuery _
("Select * from Win32_ScheduledJob")
For Each objTask in colScheduledTasks
intJobID = objTask.JobID
Set objInstance = objWMIService.Get _
("Win32_ScheduledJob.JobID=" & intJobID)
objInstance.Delete
Next

Popularity: 2%

後から後からごちゃごちゃ追加していったらなんだか訳のわからないVBスクリプトになってしまいました。
たぶん動くと思いますがエラー処理をほぼやっていないので過信しないでください。

このスクリプトは

ADSIを使ってAD上のコンピュータのプロパティの管理者の値をテキストファイルから一括で入れる（削除する）スクリプト

です。

そもそもPCViewなんかを使ってコンピュータを管理していたことがあったんですが、そこから一括でActive Directory上に値を入れられないものかと思って作ってみたわけです。
(more…)

Popularity: 7%

Advanced Ping Templateというテンプレートを利用する事でSmokePingライクな画面をWindowsOS上のCactiでも作成する事が出来ます。

このテンプレートを使ってみた感想としては、サーバのスペックによってPingの応答速度が若干左右されてしまっている気がします。値はあくまで参考という事ですかね。

EDIT: Advanced Ping Template Version 1.3 for Cacti 0.8.6g

のサイトから

ss_fping.zip
cacti_graph_template_ping_advanced_ping_v1_3.zip

の2つをダウンロードします。
(more…)

Popularity: 3%

会社だと夜中までパソコンの電源入れっぱなしで帰宅する人って結構多いんです。パソコンの電源入れっぱなしだとHotFixの適用が出来なかったりログオンスクリプトが反映されなかったり、やっぱり管理面で結構面倒です。電気代も無駄ですしね。

過去にクライアントPCをシャットダウンするスクリプトを作成したんだけど別セグメント上のPCに上手く適用出来なくて、今回思い切って作り直してみました。VBSですけども。

使い方は簡単で、文末のスクリプトをコピペでテキスト文書に貼り付けてファイル名を

ping2shutdown.vbs

などに変更してください。

引数にPC名を入力するとそのPCに向かってシャットダウンコマンドを投げます。
(more…)

Popularity: 4%

WMIを使ってリモートPCをシャットダウンさせるスクリプト。

objOperatingSystem.Win32Shutdown(REBOOT)

を変更する事で再起動やログオフも可能です。また、実行には対象PCに対する管理者権限が必要です。なお、動作確認はWindows XP SP2でのみです。

Function ShutDownWindows(strComputer)
'    On error resume Next

    Const LogOff   = 0 'ログオフ
    Const REBOOT   = 2 '再起動
    Const SHUTDOWN = 8 'シャットダウン
    
    Dim objWMIService
    Dim colOperatingSystems
    Dim objOperatingSystem

    Set objWMIService = GetObject("winmgmts:{impersonationLevel= impersonate,(Shutdown)}\\" & strComputer & "\root\cimv2")

    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

    For Each objOperatingSystem in colOperatingSystems
        objOperatingSystem.Win32Shutdown(REBOOT)
    Next
End Function

呼び出し方

Call ShutDownWindows("PC名")

Popularity: 2%