From: 山田山 Γ恐始/Corp
Sent: Saturday, November 24, 2018 1:04 PM
To: You AI/愛 有Γ恐殺６飴/Corp <you-ai@.com>
Cc: Kira Bishi/畝６音村 太郎/Corp <kimurataro@.com>
Subject: RE: 【資料送付】 分析ツ・６飴ル（提出版）

'// eml ファイルを OUTLOOK に取り込むスクリプト
'//
'// 仕様：スクリプトを置いてあるフォルダにある .eml ファイルを対象
'//       サブフォルダ配下の .eml も対象とする
'//       OUTLOOK の「受信トレイ」のフォルダ「インポート」に取り込む
'//       取り込んだ .eml ファイルは削除する
'//       コマンドプロンプトから実行した場合は進捗状況を表示する
'//
'// 実行方法：スクリプトをダブルクリック、またはコマンドプロンプトから
'//           > cscript スクリプト名.vbs  で実行
'//


'//===================================================================
'// FileSystemObject
Const ForReading = 1    '// ファイルを読み取り専用として開きます。このファイルには書き込むことができません。
Const ForWriting = 2    '// ファイルを書き込み専用として開きます。
Const ForAppending = 8  '//ファイルを開き、ファイルの最後に追加して書き込みます。


'//===================================================================
'// オブジェクト準備
Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")

Dim OutlookApp 
Set OutlookApp = WScript.CreateObject("Outlook.Application") 


'//===================================================================
'// OUTLOOK側インポートフォルダ設定
Const olFolderInbox = 6 
Dim fldImport 
Set fldImport = OutlookApp.Session.GetDefaultFolder(olFolderInbox) 
Set fldImport = fldImport.Folders("インポート")
fldImport.Display 


'//===================================================================
'// ログ準備 - ログはスクリプトと同じ場所に作成
'//          - ログファイル名は スクリプト名_年月日.log
Dim oLog, fn
fn = FSO.getParentFolderName(WScript.ScriptFullName) & "\" & _
     FSO.GetBaseName(WScript.ScriptFullName) & "_" & _
     Replace(Left(Now(),10), "/", "") & ".log"
If FSO.FileExists(fn) = False then
    Set oLog = FSO.CreateTextFile(fn)
Else
    Set oLog = FSO.OpenTextFile(fn, ForAppending, True)
End If


'//===================================================================
'// 開始
log "START:" & FSO.GetFolder(".").Name
Call LoopFolder( FSO.GetFolder(".") )


'//===================================================================
'// 終了
OutlookApp.ActiveExplorer.Close 
log "インポートは終了しました。"
oLog.Close
Set oLog = Nothing


'//===================================================================
'// emlファイル取り込み（サブフォルダも対象）
Sub LoopFolder(objFolder)
    Dim objSubFolder
    Dim objFile

    log "LOOP: " & objFolder

    '// ファイルを登録
    For Each objFile In objFolder.files
        '// 拡張子が .eml ならインポート処理
        If LCase(Right(objFile.Name,4)) = ".eml" Then
           OpenEml objFile 
        End If 
    Next

    '// フォルダがあれば再帰
    For Each objSubFolder In objFolder.SubFolders
        LoopFolder objSubFolder
    Next
End Sub


'//===================================================================
'// eml ファイルを開いてインポート
Sub OpenEml( emlFile ) 
    '// エラー無視
    On Error Resume Next 
    log  "OPEN EML: " & emlFile.Name

    '// メールが開いていたら閉じる 
    While Not OutlookApp.ActiveInspector Is Nothing 
        OutlookApp.ActiveInspector.Close 
        WScript.Sleep 500 
    Wend 

    '// eml ファイルを Outlook で開くコマンドを実行 
    WSH.Run "outlook /eml """ & FSO.getParentFolderName(emlFile) & _
        "\" & emlFile.Name & """" 

    '// Outlook 起動待ち 
    While OutlookApp.ActiveInspector Is Nothing 
        WScript.Sleep 500 
    Wend 

    '// メールフォルダ移動 
    OutlookApp.ActiveInspector.CurrentItem.Move fldImport 

    '// 取り込んだファイルは削除(エラーが発生していなければ）
    If Err.Number = 0 Then
        emlFile.Delete
    End If
End Sub 


'//===================================================================
'// ログ出力
Sub log(strMsg)
    '// エラー無視
    On Error Resume Next

    '// ログファイルに出力
    oLog.WriteLine(Now() & " " & strMsg)

    '// CSCRIPT なら ECHOで表示
    If LCase(Right(WScript.FullName, Len("cscript.exe"))) = "cscript.exe" Then
        WScript.Echo Now() & " " & strMsg
    End If
End Sub

BlueScreen BCCode: b1 MEMORY_MANAGEMENT 0x0000001a Windows 7

MBA13:~ ujpadmin$ brew search httrack🆑
==> Searching local taps...
httrack
==> Searching taps on GitHub...
==> Searching blacklisted, migrated and deleted formulae...
MBA13:~ ujpadmin $

MBA13:berryjack-master ujpuser$ ls -la
total 20
drwxr-xr-x   6 ujpuser staff  204  5  8  2016 .
drwx------+ 48 ujpuser staff 1632  7 15 20:18 ..
-rwxr-xr-x   1 ujpuser staff 1085  5  8  2016 LICENSE
-rwxr-xr-x   1 ujpuser staff 1066  5  8  2016 README.md
-rwxr-xr-x   1 ujpuser staff 6333  5  8  2016 berryjack
-rwxr-xr-x   1 ujpuser staff 1215  5  8  2016 common.sh
MBA13:berryjack-master ujpuser $

MBA13:berryjack-master nob ujpuser uaki$ ./berryjack [TWITTER_ACOUNT]

servermgr_info: unexpected Software Update state: crashed

sh-3.2# ps -ef|grep servermgrd
    0    65     1   0 776:49.75 ??       1404:20.14 servermgrd -x
sh-3.2#

sh-3.2# kill -HUP 65
sh-3.2# ps -ef|grep servermgrd
    0 15960     1   0   0:00.16 ??         0:00.35 servermgrd -x
    0 15965  8790   0   0:00.00 ttys002    0:00.00 grep servermgrd
sh-3.2#

MBA13:ujpadmin$ echo "12345"|sed -e 's/^.//'
2345
MBA13:ujpadmin$ echo "12345"|sed -e 's/^..//'
345
MBA13:ujpadmin$ echo "12345"|sed -e 's/^...//'
45
MBA13:ujpadmin7$ echo "12345"|sed -e 's/...$//'
12
MBA13:ujpadmin$

#!/bin/bash

clear

export NOWDATE=`date +"%Y%m%d.%I%M%S"`
export MS_EXCEL=~/Library/Preferences/com.microsoft.Excel.plist
export MS_OFFICE=~/Library/Preferences/com.microsoft.office.plist
export MS_CACHE=~/Library/Caches/Microsoft

echo ---------------------------------
echo --------------Before------------
echo ---------------------------------

ls -la $MS_EXCEL*
ls -la $MS_OFFICE*
ls -la $MS_CACHE*

echo ---------------------------------
echo ------------exec----------------
echo ---------------------------------
mv $MS_EXCEL $MS_EXCEL.$NOWDATE
mv $MS_OFFICE $MS_OFFICE.$NOWDATE
mv $MS_CACHE $MS_CACHE.$NOWDATE
echo ---------------------------------
echo ------------After----------------
echo ---------------------------------
ls -la $MS_EXCEL*
ls -la $MS_OFFICE*
ls -la $MS_CACHE*

echo ---------------------------------
echo ------------please return key----
echo ---------------------------------
#pauseコマンドの代理
read

　~/Library/Preferences/􏰍com.microsoft.Excel.plist
　~/Library/Preferences/com.microsoft.office.plist
　~/Library/Caches/Microsoft　←これはフォルダ

MBA2013:Documents ujp$ cat original.txt 
　吾輩わがはいは猫である。
名前はまだ無い。
どこで生れたかとんと見当けんとうがつかぬ。
何でも薄暗いじめじめした所でニャーニャー泣いていた事だけは記憶している。
吾輩はここで始めて人間というものを見た。
しかもあとで聞くとそれは書生という人間中で一番獰悪どうあくな種族であったそうだ。
この書生というのは時々我々を捕つかまえて煮にて食うという話である。
しかしその当時は何という考もなかったから別段恐しいとも思わなかった。
ただ彼の掌てのひらに載せられてスーと持ち上げられた時何だかフワフワした感じがあったばかりである。
MBA2013:Documents ujp$

MBA2013:Documents ujp$ cat change.txt 
　吾輩わがはいは猫である。
名前はまだ無い。こともない。
どこで生れたかとんと見当けんとうがつかぬ。
何でも薄暗いじめじめした所でニャーニャー泣いていた事だけは記憶している。
吾輩はここで始めて人間ってららーらららららぁーらぁーというものを見た。
しかもあとで聞くとそれは書生という人間中で一番獰悪どうあくな種族であったそうだ。
この書生というのは時々我々を捕つかまえて煮にて食うという話である。
しかしその当時は何という考もなかったから別段恐しいとも思わなかった。
ただ彼の掌てのひらに載せられてスーと持ち上げられた時何だかフワフワした感じがあったばかりである。
MBA2013:Documents ujp$ 

MBA2013:Documents ujp$ diff original.txt change.txt 
2c2
< 名前はまだ無い。
---
> 名前はまだ無い。こともない。
5c5
< 吾輩はここで始めて人間というものを見た。
---
> 吾輩はここで始めて人間ってららーらららららぁーらぁーというものを見た。
MBA2013:Documents ujp$