40歳からのキャリアチェンジ

20代はエンジニア・PM、30代はWeb系エンジニア向けのキャリアアドバイザー。40代の今はフリーランスで開発含めて色々やってます。技術ネタとしてはRuby/RailsとJavaScript関連あたり

スクリプト一覧

マイクロソフトのWebサイトに、システム管理者向けに役立ちそうな「スクリプト一覧」がまとまっていたのでメモ。

ここにあったインストールされているホットフィックスを列挙してソートするというスクリプトを作ってみた(といっても、ほとんどコピペしただけに近いけど・・・)

Option Explicit
Dim strComputer
Dim objWMIService
Dim colQuickFixes
Dim objQuickFix
Dim intSize
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_QuickFixEngineering")
For each objQuickFix in colQuickFixes
    ReDim Preserve arrNames(intSize)
    arrNames(intSize) = objQuickFix.HotFixID
    intSize = intSize + 1
Next

Dim i
Dim j
Dim strHolder
Dim strNames
Dim strName
For i = (UBound(arrNames) - 1) to 0 Step -1
    For j= 0 to i
        If UCase(arrNames(j)) > UCase(arrNames(j+1)) Then
        strHolder = arrNames(j+1)
        arrNames(j+1) = arrNames(j)
        arrNames(j) = strHolder
        End If
    Next
Next 

For Each strName in arrNames
    Wscript.Echo strName
Next

最近このスクリプトみて知ったのだけど、権限さえあればログインスクリプト利用しないでも、リモートマシンに対してスクリプトが実行できるのだから、うまいこと工夫すれば、100台前後の規模であれば、PC運用管理のための商用ツール買わなくてもよいような気がするなぁ。(どうせその手の商用ツールってある程度の規模相手じゃないと相手にしてくれなさそうだから、ベンダーのツールにあんまり頼れそうもなさそうだし)