windowsが遅いとき、裏で動いている不要なサービスを一発で停止するプログラム（ウインドウズスクリプト)です
以下のソースをコピーして
xxxxxx.vbsとして保存
ダブルクリックで実行します
そうすると、デスクトップに「サービスの停止コマンドバッチ.bat」というファイルが作成されます
それを 右クリックで
管理者として実行すると
不要なサービスが停止されます
もし、何か不具合がある場合はPCを再起動すれば元に戻ります。
「サービスの停止コマンドバッチ.bat」の記述は
:市販デモ サービス
sc stop RetailDemo ←停止コマンド
:sc config “RetailDemo” start= disabled ←無効コマンド（行頭の：はコメント化）この行は実行されません
しばらく使用して問題がなければ 無効コマンドの先頭の：を消して再度実行すればサービス起動しないようにできます
なおご使用は自己責任でお願いします。
何か不具合がある場合はPCを再起動すれば元に戻ります。
ダウンロード
stopservice.vbs
stopservice.vbs
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 |
' Set objShell = CreateObject("WScript.Shell") 'ファイル設定 'サービス一覧 keyfile = objShell.SpecialFolders("Desktop") & "\" & "サービス一覧.txt" 'コマンド出力 stopbat = objShell.SpecialFolders("Desktop") & "\" & "サービスの停止コマンドバッチ.bat" 'サービス一覧の取得 cmd ="%ComSpec% /c sc queryex state= all > " & """" & keyfile & """" objShell.run cmd ,0,True Set objFso = CreateObject("Scripting.FileSystemObject") Set objFile = objFso.OpenTextFile(keyfile, 1, False) 'サービス一覧配列 Dim arrKeyList Set arrKeyList = CreateObject("System.Collections.ArrayList") 'ストップサービス一覧 Dim arrStopList Set arrStopList = CreateObject("System.Collections.ArrayList") '出力コマンド Dim arrStopTarget Set arrStopTarget = CreateObject("System.Collections.ArrayList") If Err.Number > 0 Then WScript.Echo "Open Error" Else Do Until objFile.AtEndOfStream arrKeyList.add(objFile.ReadLine)' & vbCrLf Loop End If '停止サービスセット arrStopList.Add("ActiveX Installer (AxInstSV)") arrStopList.Add("Adobe Acrobat Update Service") arrStopList.Add("AllJoyn Router Service") arrStopList.Add("Application Layer Gateway Service") arrStopList.Add("BitLocker Drive Encryption Service") arrStopList.Add("Bluetooth オーディオ ゲートウェイ サービス") arrStopList.Add("Bluetooth サポート サービス") arrStopList.Add("COM+ System Application") arrStopList.Add("Certificate Propagation") arrStopList.Add("Connected Devices Platform Service") arrStopList.Add("Connected User Experiences and Telemetry") arrStopList.Add("Data Sharing Service") arrStopList.Add("Delivery Optimization") arrStopList.Add("Distributed Link Tracking Client") arrStopList.Add("Distributed Transaction Coordinator") arrStopList.Add("Downloaded Maps Manager") arrStopList.Add("File History Service") arrStopList.Add("Geolocation Service") arrStopList.Add("Google Update サービス (gupdate)") arrStopList.Add("Google Update サービス (gupdatem)") arrStopList.Add("GraphicsPerfSvc") arrStopList.Add("HV ホスト サービス") arrStopList.Add("Human Interface Device Service") arrStopList.Add("Hyper-V Data Exchange Service") arrStopList.Add("Hyper-V Guest Service Interface") arrStopList.Add("Hyper-V Guest Shutdown Service") arrStopList.Add("Hyper-V Heartbeat Service") arrStopList.Add("Hyper-V PowerShell Direct Service") arrStopList.Add("Hyper-V Time Synchronization Service") arrStopList.Add("Hyper-V ボリューム シャドウ コピー リクエスター") arrStopList.Add("Hyper-V リモート デスクトップ仮想化サービス") arrStopList.Add("IP 変換構成サービス") arrStopList.Add("KtmRm for Distributed Transaction Coordinator") arrStopList.Add("Link-Layer Topology Discovery Mapper") arrStopList.Add("Microsoft (R) 診断ハブ標準コレクター サービス") arrStopList.Add("Microsoft Software Shadow Copy Provider") arrStopList.Add("Microsoft Windows SMS ルーター サービス。") arrStopList.Add("Microsoft iSCSI Initiator Service") arrStopList.Add("Net.Tcp Port Sharing Service") arrStopList.Add("Network Connected Devices Auto-Setup") arrStopList.Add("Network Connection Broker") arrStopList.Add("Network Connections") arrStopList.Add("OpenSSH Authentication Agent") arrStopList.Add("Peer Name Resolution Protocol") arrStopList.Add("Peer Networking Grouping") arrStopList.Add("Peer Networking Identity Manager") arrStopList.Add("Performance Logs & Alerts") arrStopList.Add("Phone Service") arrStopList.Add("Portable Device Enumerator Service") arrStopList.Add("Problem Reports and Solutions Control Panel Support") arrStopList.Add("Program Compatibility Assistant Service") arrStopList.Add("Remote Access Auto Connection Manager") arrStopList.Add("Remote Access Connection Manager") arrStopList.Add("Remote Desktop Configuration") arrStopList.Add("Remote Desktop Services UserMode Port Redirector") arrStopList.Add("Remote Desktop Services") arrStopList.Add("Remote Procedure Call (RPC) Locator") arrStopList.Add("Remote Registry") arrStopList.Add("Routing and Remote Access") arrStopList.Add("SSDP Discovery") arrStopList.Add("Sensor Data Service") arrStopList.Add("Sensor Monitoring Service") arrStopList.Add("Sensor Service") arrStopList.Add("Shared PC Account Manager") arrStopList.Add("Smart Card Device Enumeration Service") arrStopList.Add("Smart Card Removal Policy") arrStopList.Add("Smart Card") arrStopList.Add("Still Image Acquisition Events") arrStopList.Add("Telephony") arrStopList.Add("Themes") arrStopList.Add("Touch Keyboard and Handwriting Panel Service") arrStopList.Add("WWAN AutoConfig") arrStopList.Add("WalletService") arrStopList.Add("Web アカウント マネージャー") arrStopList.Add("Wi-Fi Direct サービスの接続マネージャー サービス") arrStopList.Add("Windows Biometric Service") arrStopList.Add("Windows Encryption Provider Host Service") arrStopList.Add("Windows Error Reporting Service") arrStopList.Add("Windows Event Collector") arrStopList.Add("Windows Image Acquisition (WIA)") arrStopList.Add("Windows Insider サービス") arrStopList.Add("Windows Media Player Network Sharing Service") arrStopList.Add("Windows PushToInstall サービス") arrStopList.Add("Windows Remote Management (WS-Management)") arrStopList.Add("Windows Search") arrStopList.Add("Windows カメラ フレーム サーバー") arrStopList.Add("Windows バックアップ") arrStopList.Add("Windows プッシュ通知システム サービス") arrStopList.Add("Windows モバイル ホットスポット サービス") arrStopList.Add("Windows 認識サービス") arrStopList.Add("Workstation") arrStopList.Add("Xbox Accessory Management Service") arrStopList.Add("Xbox Live Auth Manager") arrStopList.Add("Xbox Live セーブ データ") arrStopList.Add("Xbox Live ネットワーキング サービス") arrStopList.Add("タイム ゾーンの自動更新機能") arrStopList.Add("デバイス管理登録サービス") arrStopList.Add("データ使用状況") arrStopList.Add("保護者による制限") arrStopList.Add("容積オーディオ コンポジター サービス") arrStopList.Add("市販デモ サービス") arrStopList.Add("支払いおよび NFC/SE マネージャー") arrStopList.Add("機能アクセス マネージャー サービス") arrStopList.Add("無線管理サービス") arrStopList.Add("空間データ サービス") arrStopList.Add("自然認証") arrStopList.Add("言語エクスペリエンス サービス") '稼動サービスキー名確認 For s=0 To arrStopList.count-1 For i=0 To arrKeyList.count-1 keyStopStr ="DISPLAY_NAME: " & arrStopList(s) if inStr(arrKeyList(i), keyStopStr)>0 then servkey =mid(arrKeyList(i-1),15) arrStopTarget.add(":" & arrStopList(s)) arrStopTarget.add("sc stop " & servkey) arrStopTarget.add(":sc config " & """" & servkey & """" & " start= disabled " ) arrStopTarget.add("" ) end if Next Next '停止コマンドバッチ書き出し if arrStopTarget.count >0 then Set tso = objFso.OpenTextFile(stopbat, 2, true) For i=0 To arrStopTarget.count-1 tso.WriteLine(arrStopTarget(i)) next tso.WriteLine("Pause") tso.Close Wscript.echo "停止対象サービスの停止コマンドバッチを(デスクトップに)作成しました" & vbCrLf & "みあたらないときはF5を押してみてください" else Wscript.echo "停止対象サービスはありません" end if objFile.Close Set objFile = Nothing Set objFso = Nothing |