タグ:script ( 24 ) タグの人気記事

[メモ]スクリーンセーバーの設定変更するvbs

社内のPCのスクリーンセーバーの設定を一括で変更可能かどうか調べていたら、WMI経由でスクリーンセーバーのタイムアウトの設定を変更できそうなので、とりあえずメモ

How Can I Change the Screensaver Timeout Value?

[PR]
by h5y1m141 | 2005-03-23 14:27 | 業界動向

スクリプト一覧

マイクロソフトの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運用管理のための商用ツール買わなくてもよいような気がするなぁ。(どうせその手の商用ツールってある程度の規模相手じゃないと相手にしてくれなさそうだから、ベンダーのツールにあんまり頼れそうもなさそうだし)
[PR]
by h5y1m141 | 2005-03-16 15:59 | 業界動向

[メモ]WMIによるサーバー監視メモ

こちらでWMIネタがあったので、メモさせてもらいました。

P.S.
よくよく見ると、この方のカテゴリって食事、PC,株式投資ネタなどがあって、自分のものと結構似ているなぁ。
[PR]
by h5y1m141 | 2005-01-25 17:39 | 業界動向

インストールされているアプリケーションをリストアップするvbs

今勤めている会社は、クライアントPCの数が1200台前後で、PCの入れ替え作業の際にそのPCにインストールされているアプリケーションが何だったのかを自動的に取得できるスクリプトを一生懸命考えたことがあり、昔に一度作ったのだがあまりきれいなやり方ではなかったので、最近勉強中のWMI 使ってうまくできないかなぁと思ったら、できた!

下記スクリプトの実行結果は、コントロールパネルのアプリケーションの追加と削除で表示される内容と一緒のはず。
Option Explicit

Dim strComputer
Dim refRegistry
Dim strKeyPath
Dim retval
Dim arrSubKeys
Dim SubKey
Dim strAppsName

strComputer = "."
Const HKEY_LOCAL_MACHINE = &H80000002

Set refRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

retval = refRegistry.EnumKey (HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys)

For each SubKey in arrSubKeys
retval = refRegistry.GetStringValue (HKEY_LOCAL_MACHINE,strKeyPath & "\" &_
subkey, "DisplayName", strAppsName)
If strAppsName<>"" then
Wscript.Echo strAppsName
End if
Next
[PR]
by h5y1m141 | 2004-12-17 14:45 | 業界動向