http://pnpk.net

全てのスケジュールされたタスクを削除します。ただしこのスクリプトで削除可能なタスクは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%

■MSアクセスのファイルが開かないんですが仕様ですか？
はい、仕様です。

少し前にインターネットVPN経由でファイルサーバ上のデータにアクセスすると物凄く開くのに時間がかかってしまう件を調査していました。
例えば同一セグメント上のクライアントPCからファイルサーバにアクセスしてデータを開くと1秒もかからないのに、インターネットVPN経由でクライアントPCがファイルサーバにアクセスすると開くだけで数十秒かかってしまう。
結論から言うと、これはWindowsのファイル共有に使っているCIFSっていうプロトコルの仕様らしい。

■CIFSって何すか？
CIFSとは

Common Internet File System

の略で、

Windowsのファイル共有サービスで利用されているプロトコルの「SMB」を拡張し、Windows以外のOSやアプリケーションソフトでも利用できるよう仕様を公開したもの。※e-wordsより抜粋

の事です。
(more…)

Popularity: 4%

WindowsOS標準のPINGだと1ms以下の遅延は測定出来ないんです。最近CIFSを使う場合のネットワーク遅延を調べていまして、その際に重宝しました。

■True Pingの使い方
特に使い方は標準のPingと変わりません。

http://sourceforge.net/projects/tping/

(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%

自分用のメモに転載させていただきました。
現在ログイン中のユーザ名からActiveDirectory上の情報を参照する値の一覧です。探し方が悪いからだと思うんだけど、この手の情報がなかなか見つからなくて、でもVBS以外書けなくて・・・。そんな時にきっと役に立ちます。
(more…)

Popularity: 8%