シスメモ

Linux(CentOS)、Windows(サーバー/クライアント)、Yamaha RTX、その他の技術メモ

Windows Client

スクリーンセーバーの起動時間を変更するためのスクリプト

投稿日:

photo credit: kojihachisu via photopin cc

photo credit: kojihachisu via photopin cc

自分以外のローカルユーザーのスクリーンセーバー起動時間を5分に変更するスクリプトを作ってみました。
ユーザーのレジストリハイブを強引に読み込み、設定を変更しています 😉

Option Explicit

Dim objShell
Dim sReg
Dim TM

‘########################################
‘user用レジストリハイブの読み込み
‘########################################
Set objShell = CreateObject(“WScript.Shell”)
objShell.Run “reg load HKLM\Temp c:\Users\user\ntuser.dat”,0,True

‘########################################
‘スクリーンセーバー起動時間設定
‘########################################
sReg = “HKLM\Temp\Control Panel\Desktop\”
With objShell
.RegWrite sReg & “ScreenSaveTimeout”, 300
End With ‘ oShell

‘########################################
‘設定の確認
‘########################################
Tm = objShell.RegRead(sReg & “ScreenSaveTimeout”)

If Tm = 300 Then
objShell.Popup “userのスクリーンセーバーの起動時間を5分に変更しました”,,”作業完了”, vbInformation
Else
objShell.Popup “設定に失敗しました!システム管理者にご連絡ください。”,,”エラー”, vbCritical
End If

‘########################################
‘レジストリハイブのアンロード
‘########################################
objShell.Run “reg unload HKLM\Temp”,0,True



-Windows Client
-, , ,

執筆者:


comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

関連記事

no image

指定した範囲の全IPに対してPingを実行する

■指定した範囲の全IPに対してPingを実行する 例:192.168.11.1〜192.168.11.254内の全てのIPに対してPing for /L %f in (1,1,254) do ping …

ドメイン参加とコンピュータアカウントの移動を同時に行う

photo credit: Michael Kappel via photopin cc   ドメイン参加後にコンピュータアカウントを手動で移動するのが面倒なため、ドメイン参加&コンピュータ …

リモートからリモートデスクトップを許可する

photo credit: EL JOKER THE PYRA via photopin (license)  ■リモートからリモートデスクトップを許可する 【環境】 サーバー:Window …

Windows7クライアントでシャドウコピーの履歴が表示されない

photo credit: JohnSeb via photopin cc Windows7クライアントで、シャドウコピーの履歴が突然表示されなくなる現象が起きた。 【環境】 ファイルサーバー:Win …

no image

Windows7でスタートメニューの並び順を変更する

■Windows7でスタートメニューの並び順を変更する 既定では、スタートメニューの内容は自動的に名前順に並び替えられるが、以下の手順で任意の並び順に変更可能。 手順: [タスクバーとスタートメニュー …