■ExplorerCashDel.vbs
Option Explicit
Const cmd = "Remove-Item C:\Users\xxxx\AppData\Roaming\Microsoft\Windows\Recent\AutomaticDestinations/*-ms"
Dim processName : processName = "エクスプローラーキャッシュ削除処理"
PeriodicExecution cmd,processName
'=========================================================
'機能名 : Sub PeriodicExecution
'引数 : pm_cmd PowerShellコマンド
' : pm_processName 処理名
'処理 : PowerShell定期実行用
'=========================================================
Sub PeriodicExecution(pm_cmd ,pm_processName)
Dim objFS
Dim x
Dim strName,strPath
'ファイルシステムオブジェクト作成
Set objFS = CreateObject("Scripting.FileSystemObject")
'ファイル名を取得
strName = objFS.GetFileName(strPath)
x = Msgbox ( pm_processName & "を実行しますか?" & strName , vbOkCancel , pm_processName )
If x = vbOk then
' WSHオブジェクトの作成
Dim objShell
Set objShell = CreateObject("WScript.Shell")
' PowerShellコマンドの実行
objShell.Run "powershell -ExecutionPolicy RemoteSigned -Command " & pm_cmd, 0
Msgbox "完了しました" , , pm_processName
End If
' WSHオブジェクトの破棄
Set objShell = Nothing
End Sub
Crieitは誰でも投稿できるサービスです。 是非記事の投稿をお願いします。どんな軽い内容でも投稿できます。
また、「こんな記事が読みたいけど見つからない!」という方は是非記事投稿リクエストボードへ!
こじんまりと作業ログやメモ、進捗を書き残しておきたい方はボード機能をご利用ください。
ボードとは?
コメント