Horas and konnichiwa untuk semua

ホリエモン事件の報道を見ていると、おかしいなと思います。
ホリエモンがほぼ明らかに法律を破ったのですが、これと負けないぐらいおかしいのはその事件についての多くのコメントである。すべての報道はほぼ同じ方向に向かってホリエモンを非難した。ホリエモンを買ったある人は取材に対して本を買った人として「裏切られた」とコメントしている。何がそんなにえらそうに裏切られたというのか。私もホリエモンの本を買っているが、別に裏切られたと思っていない。悪いことは悪いことであるが、最近（？）の日本では悪いことをしたらそのした人のすべてが否定される傾向があるのではないか。ホリエモンは粉飾決算などの悪いことをしたから、本を書いたことも含めて彼のすべてが否定されてしまう報道ばかりされている気がして、おかしいと思っている。

ホリエモンの本を買ったことについて例としてあげると、やはり日本ははやりの社会である。ホリエモンがはやっているから本を買ってしまうというパターンだから、ホリエモンが逮捕されると裏切られたと感じる。私はホリエモンが言っていることに興味があってその本を買ってもっと知ろうと思ったので、彼はどうなったとしても自分は裏切られたなんて思うことはない。彼のすべてを否定するのはあまりにも自己中心であり偉そうな行為であるので、彼が悪いことをしたことはほぼ間違いないとなっていても、何か彼のいい面もあるはず。

今日は英雄で、明日は非国民。これはまさによくある報道のパターンです。これは日本国民の問題ではなく、報道だけの問題であることを信じたい。悪いことをした人のすべてを否定するのは偽善者である、そうすることで自分の過ちを目立たなくすることができるからです。

‘
‘パブリックフォルダからOutlook予定表をコピーする
‘
‘このスクリプトはコピーする前にコピー先の予定表をまずすべて削除するので、
‘ご注意ください
‘

‘メイン

OPTION Explicit

‘Global declarations
Dim intOpMode ‘value returned from intParseCmdLine()

‘constants

‘********************************************************************
‘********************************************************************
‘　　ここでユーザ設定をしてください
‘********************************************************************
‘********************************************************************

‘ コピー元とコピー先を設定してください

‘コピー元
CONST SRCFOLDER_PARENT=”パブリック フォルダ”
CONST SRCFOLDER_CHILD=”すべてのパブリック フォルダ”
CONST SRCFOLDER=”MALTech”

‘コピー先
CONST DSTFOLDER_PARENT=”メールボックス – Siboro Arnold P.”
CONST DSTFOLDER=”予定表”

‘ 今日より何日前からの分をコピーするか指定してください
CONST DAYSBEFORE=14

‘********************************************************************
‘********************************************************************

CONST CONST_ERROR = 0
CONST CONST_WSCRIPT = 1
CONST CONST_CSCRIPT = 2
Const CONST_SHOW_USAGE = 3
Const CONST_NORMAL = 4
Const CONST_OVERWRITE = 5
Const CONST_PROMPT = 6

‘スクリプティングホストはCScriptであることを確認する
VerifyHostIsCscript()

‘Parse the command line
intOpMode = intParseCmdLine()

Select Case intOpMode
Case CONST_SHOW_USAGE
Call ShowUsage()
Case CONST_NORMAL, CONST_OVERWRITE, CONST_PROMPT
Appointments(intOpMode)
Case Else ‘Default — should never happen
Call Wscript.Echo(“Error occurred in passing parameters.”)
End Select

‘メイン終了

‘********************************************************************
‘*
‘* Sub VerifyHostIsCscript()
‘*
‘* Purpose: Determines which program is used to run this script.
‘*
‘* Input: None
‘*
‘* Output: If host is not cscript, then an error message is printed
‘* and the script is aborted.
‘*
‘********************************************************************
Sub VerifyHostIsCscript()

ON ERROR RESUME NEXT

Dim strFullName, strCommand, i, j, intStatus

strFullName = WScript.FullName

If Err.Number then
Call Wscript.Echo( “Error 0x” & CStr(Hex(Err.Number)) & ” occurred.” )
If Err.Description “” Then
Call Wscript.Echo( “Error description: ” & Err.Description & “.” )
End If
intStatus = CONST_ERROR
End If

i = InStr(1, strFullName, “.exe”, 1)
If i = 0 Then
intStatus = CONST_ERROR
Else
j = InStrRev(strFullName, “\”, i, 1)
If j = 0 Then
intStatus = CONST_ERROR
Else
strCommand = Mid(strFullName, j+1, i-j-1)
Select Case LCase(strCommand)
Case “cscript”
intStatus = CONST_CSCRIPT
Case “wscript”
intStatus = CONST_WSCRIPT
Case Else ’should never happen
Call Wscript.Echo( “An unexpected program was used to ” _
& “run this script.” )
Call Wscript.Echo( “Only CScript.Exe or WScript.Exe can ” _
& “be used to run this script.” )
intStatus = CONST_ERROR
End Select
End If
End If

If intStatus CONST_CSCRIPT Then
Call WScript.Echo( “Please run this script using CScript.” & vbCRLF & _
“This can be achieved by” & vbCRLF & _
“1. Using “”CScript Outlook.vbs arguments”" for Windows 95/98 or” _
& vbCRLF & “2. Changing the default Windows Scripting Host ” _
& “setting to CScript” & vbCRLF & ” using “”CScript ” _
& “//H:CScript //S”" and running the script using” & vbCRLF & _
” “”Outlook.vbs arguments”" for Windows NT/2000.” )
WScript.Quit
End If

End Sub

‘********************************************************************
‘*
‘* Function intParseCmdLine()
‘*
‘* Purpose: Parses the command line.
‘*
‘* Inputs: None
‘*
‘* Output: Constant value “mode” as entered in command line.
‘*
‘********************************************************************
Private Function intParseCmdLine()

ON ERROR RESUME NEXT

Dim strFlag

‘Set strFlag to first arg
If Wscript.Arguments.Count > 0 Then
strFlag = Wscript.arguments.Item(0)
End If

‘No arguments have been received
If IsEmpty(strFlag) Then
intParseCmdLine = CONST_NORMAL
Exit Function

‘Check if the user is asking for help or is just confused
Elseif (strFlag=”help”) OR (strFlag=”/h”) OR (strFlag=”\h”) OR (strFlag=”-h”) _
OR (strFlag = “\?”) OR (strFlag = “/?”) OR (strFlag = “?”) OR (strFlag=”h”) Then
intParseCmdLine = CONST_SHOW_USAGE
Exit Function

Elseif (strFlag=”/O”) Then
‘Overwrite mode.
intParseCmdLine = CONST_OVERWRITE
Exit Function

Elseif (strFlag=”/P”) Then
‘prompt user mode.
intParseCmdLine = CONST_PROMPT
Exit Function

Else
‘default… should never get here.
intParseCmdLine = CONST_SHOW_USAGE

End If

End Function

‘********************************************************************
‘*
‘* Sub ShowUsage()
‘*
‘* Purpose: Shows the correct usage to the user.
‘*
‘* Input: None
‘*
‘* Output: Help messages are displayed on screen.
‘*
‘********************************************************************
Sub ShowUsage ()

Wscript.Echo “”
Wscript.Echo “Imports appointments from one Outlook calendar to another.”
Wscript.Echo “Please send bug reports/questions/comments to alaughlin@this.org”
Wscript.Echo “”
Wscript.Echo “SYNTAX:”
Wscript.Echo ” Outlook.vbs [/?] | [/O] | [/P]“
Wscript.Echo “”
Wscript.Echo “PARAMETER SPECIFIERS:”
Wscript.Echo “”
Wscript.Echo ” No parameters: Appointments are added to destination calendar.”
Wscript.Echo “”
Wscript.Echo ” One parameter is accepted. Additional parameters are ignored.”
Wscript.Echo “”
Wscript.Echo ” /? Displays help dialog.”
Wscript.Echo “”
Wscript.Echo ” /O Overwrite mode. Overwrites appointments in the “
Wscript.Echo ” destination calendar that have the same date and time.”
Wscript.Echo “”
Wscript.Echo ” /P Prompts user to overwrite when a conflicting appointment “
Wscript.Echo ” is found in the destination calendar.”
Wscript.Echo “”
Wscript.Echo “”

End Sub

‘********************************************************************
‘*
‘* Private Function Appointments()
‘*
‘* Purpose: Core functionality. Copies all appointments based on the
‘* mode selected by the user.
‘*
‘* Inputs: Desired mode (normal copy, prompt or overwrite).
‘*
‘* Outputs: None.
‘*
‘********************************************************************

Private Function Appointments(intMode)

‘Declarations
Dim objOutlook ‘Outlook application object
Dim objNameSpace ‘Only namespace is MAPI
Dim objCalendarFolderSrc ‘The source calendar folder selected by the user
Dim objCalendarFolderSrcParent ‘The source calendar folder selected by the user
Dim objCalendarFolderSrcChild ‘The source calendar folder selected by the user
Dim objCalendarFolderDest ‘The destination calendar folder selected by the user
Dim objCalendarFolderDestParent ‘The destination calendar folder selected by the user
Dim objItemsSrc ‘Items collection in source calendar
Dim objItemsDest ‘Items collection in destination calendar
Dim objApptsSrc

‘The script below obtains a reference to the Outlook folder containing the
‘appointments the user would like to import.

‘Outlook vbScript sucks cause it won’t see constants.
Const olFolderCalender = 9
Const olAppointmentItem = 1

‘Create application and namespace objects.
Set objOutlook = CreateObject(“Outlook.application”)
Set objNameSpace = objOutlook.GetNameSpace(“MAPI”)

‘
‘The user picks the folder they want to import appointments from.
‘ We’ll check the folder’s type to ensure it contains only appointment type items.
‘

‘
‘コピー元のフォルダ
‘
‘MsgBox “On the next screen, select the source calendar.”, vbOKOnly, “Source calendar”
‘Set objCalendarFolderSrc = objNameSpace.PickFolder
Set objCalendarFolderSrcParent = objNameSpace.Folders(SRCFOLDER_PARENT)
Set objCalendarFolderSrcChild = objCalendarFolderSrcParent.Folders(SRCFOLDER_CHILD)
Set objCalendarFoldersrc = objCalendarFolderSrcChild.Folders(SRCFOLDER)

While objCalendarFolderSrc.DefaultItemType olAppointmentItem
MsgBox “The selected folder is not a calendar type folder.” + vbCRLF + “Select again.”, vbOKOnly, “Error”
Set objCalendarFolderSrc = objNameSpace.PickFolder
Wend

‘
‘コピー先のフォルダ
‘
‘MsgBox “On the next screen, select the destination calendar.”, vbOKOnly, “Destination calendar”
‘Set objCalendarFolderDest = objNameSpace.PickFolder
Set objCalendarFolderDestParent = objNameSpace.Folders(DSTFOLDER_PARENT)
Set objCalendarFolderDest = objCalendarFolderDestParent.Folders(DSTFOLDER)

While objCalendarFolderDest.DefaultItemType olAppointmentItem
MsgBox “The selected folder is not a calendar type folder.” + vbCRLF + “Select again.”, vbOKOnly, “Error”
Set objCalendarFolderDest = objNameSpace.PickFolder
Wend

‘Use the Items property to return the Items object of a MAPIFolder object.
Set objItemsSrc = objCalendarFolderSrc.Items
Set objItemsDest = objCalendarFolderDest.Items

‘
‘This section will import the appointments.
‘
‘counters
Dim x
Dim i
Dim totalitems

‘If destination calendar is empty, no comparison is necessary so we’ll default to normal mode
If objItemsDest.count Date()-DAYSBEFORE Then
WScript.Echo(“Copying appointment ” & x & “/” & totalitems & ” ” & objItemsSrc.Item(x).start)
Set objApptsSrc = objItemsSrc.Item(x).copy
objApptsSrc.move objCalendarFolderDest
Else
WScript.Echo(“Skipping appointment ” & x & “/” & totalitems & ” because it’s ” & FormatNumber(Date()-objItemsSrc.Item(x).start,0) & ” days old.”)
End if
Next

‘MsgBox “Task complete.”, vbOKOnly, “Task complete”
WScript.Echo(“Task complete.”)

‘—-> FINISH THIS
Case CONST_PROMPT
WScript.Echo(“Prompt mode has yet to be implemented.”)

Case Else ‘Default — should never happen
WScript.Echo(“Critical error… that sucks”)

End Select

‘Clean up
Set objOutlook = Nothing
Set objNameSpace = Nothing
Set objCalendarFolderSrc = Nothing
Set objCalendarFolderDest = Nothing
Set objItemsSrc = Nothing
Set objItemsDest = Nothing
Set objApptsSrc = Nothing

End Function