'==================================================================
'【送る】に「Windows Defender でウイルススキャン」を作成しますYO！
'http://www10.plala.or.jp/palm84/wsh.html
'http://d.hatena.ne.jp/palm84/20121028/1351419637
'http://www10.plala.or.jp/palm84/archives/wsh/Win8_CreateScanDefenderSendto.vbs.txt
'https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/wsh/Win8_CreateScanDefenderSendto.vbs.txt
'==================================================================
'Shell オブジェクトを作成
Set objShell = WScript.CreateObject("WScript.Shell")
'FileSystemObject オブジェクトを作成
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8

MyKakunin

'*** 環境変数とか取得 ***
Desktop = objShell.SpecialFolders("Desktop")
SendTo = objShell.SpecialFolders("SendTo")
TEMP = objShell.ExpandEnvironmentStrings("%TEMP%")
MSASCui = objShell.ExpandEnvironmentStrings("%ProgramFiles%\Windows Defender\MSASCui.exe")

'*** Windows Defender でスキャン ***
Title = "Windows Defender でスキャン"
strFile = SendTo & "\Scan_Defender_sendto.bat"
strWorkingDirectory = ""
strIcon = "%ProgramFiles%\Windows Defender\MSASCui.exe, 0"
strFolder = SendTo
If objFSO.FileExists(strFile) Then
		MySC
	Else 
		Set objTxt = objFSO.OpenTextFile(strFile, ForWriting, true, -2)
		objTxt.WriteLine "@echo off"
		objTxt.WriteLine "title %~nx0"
		objTxt.WriteLine "REM ********************************************************************"
		objTxt.WriteLine "REM   * 右クリック【送る】から Windows Defender でウイルススキャン"
		objTxt.WriteLine "REM  http://www10.plala.or.jp/palm84/commandline.html"
		objTxt.WriteLine "REM  http://www10.plala.or.jp/palm84/archives/commandline/backup/Scan_Defender_sendto.bat.txt"
		objTxt.WriteLine "REM ********************************************************************"
		objTxt.WriteLine "if ""%~1%""=="""" GOTO NO_PARAM"
		objTxt.WriteLine "set ""Defender=%ProgramFiles%\Windows Defender\MpCmdRun.exe"""
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine "REM ### 引数で指定したファイルをチェック"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine ":PARAM"
		objTxt.WriteLine "if ""%~1""=="""" GOTO DONE"
		objTxt.WriteLine "set ""filename=%~1"""
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "echo  ===================================================================="
		objTxt.WriteLine "echo   * %filename% "
		objTxt.WriteLine "echo  ===================================================================="
		objTxt.WriteLine "echo:"
		objTxt.WriteLine """%Defender%"" -Scan -ScanType 3 -File ""%filename%"""
		objTxt.WriteLine "shift"
		objTxt.WriteLine "GOTO PARAM"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine "REM ### NO_PARAM"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine ":NO_PARAM"
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "echo        =============================================================="
		objTxt.WriteLine "echo                    ！引数（ファイル指定）がないですYO！"
		objTxt.WriteLine "echo        =============================================================="
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "GOTO END"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine "REM ### DONE"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine ":DONE"
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "echo        **************************************************************"
		objTxt.WriteLine "echo        ************              Done !                  ************"
		objTxt.WriteLine "echo        **************************************************************"
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine "REM ### END"
		objTxt.WriteLine "REM #####################################"
		objTxt.WriteLine ":END"
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "echo                     *** 何かキーを押すと閉じます *** "
		objTxt.WriteLine "echo:"
		objTxt.WriteLine "pause >nul"
		objTxt.Close
		Set objFile = objFSO.GetFile(strFile)
		objFile.Attributes = objFile.Attributes + 2
		MySC
End If

'*** Windows Defender ***
Title = "Windows Defender"
strFile = MSASCui
strWorkingDirectory = ""
strIcon = "%ProgramFiles%\Windows Defender\MSASCui.exe, 0"
strFolder = Desktop
MySC

'*** Windows Defender のログ ***
Title = "Windows Defender のログ"
strFile = TEMP & "\MpCmdRun.log"
strWorkingDirectory = ""
strIcon = "%ProgramFiles%\Windows Defender\MSASCui.exe, 0"
strFolder = Desktop
MySC

Set objTxt = Nothing
Set objShortCut = Nothing
Set objFile = Nothing
Set objFSO = Nothing
Set objShortcut = Nothing
Set objShell = Nothing

'*********************************************************
'Sub MyKakunin
'*********************************************************
Sub MyKakunin
Kakunin = MsgBox ("「Windows Defender でスキャン」を作りますのん？ (´･ω･`)", 65 ,"【送る】に「Windows Defender でスキャン」を作るＹＯ！  (´･ω･`) ") 
If Kakunin = 2 Then
	WScript.Quit
End If
End Sub

'*********************************************************
'Sub MySC
'*********************************************************
Sub MySC
strShortCut = strFolder & "\" & Title & ".lnk"
'*** ショートカットオブジェクトを作成 ***
Set objShortCut = objShell.CreateShortcut(strShortCut)
With objShortCut
' リンク先
	.TargetPath = strFile
' 作業フォルダ
	.WorkingDirectory = strWorkingDirectory
' 引数
	.Arguments = "" 
' コメント
	.Description = ""
' アイコン
	.IconLocation = strIcon
End With
objShortCut.Save

' ショートカットを DeskTop へコピー
' objFSO.CopyFile strShortCut, DeskTop & "\"
MsgBox "ショートカットを作成しました YO！"  & vbcrlf & vbcrlf & Title,64 ,"(´･ω･`) クマー！ "

End Sub