アリンコネット – あるSEのログ2

Set a = CreateObject("CDO.Message")
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.xxx.xxx"
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
a.Configuration.Fields.Update

a.From = "xxxx@exsample.com"
a.To = "test@exsample.com"
a.Subject = "[AS400]エラー通知"
a.TextBody = "AS400にてエラーしました。" & vbCrLf

'// 送信パターン指定があるか？
If WScript.Arguments.Named.Exists("I") Then
    iSendMode = 0

    If WScript.Arguments.Named("I") <> "" Then
        iSendMode = CInt(WScript.Arguments.Named("I"))
    End If	

    SELECT CASE iSendMode
    CASE "1"
        ' 01 ファイルロックモニタ用
        a.Subject = "[AS400]ファイルロック発生通知"
        a.TextBody = "AS400にてファイルロック発生通知が発生したようです。" & vbCrLf
    CASE ELSE
        a.Subject = "[AS400]エラー通知"
        a.TextBody = "AS400にてエラーしました。" & vbCrLf
    END SELECT
End If

'// 時刻を末尾に追加
a.TextBody = a.TextBody & Now

'// メール送信
a.Send

Dim strArg      ' 引数情報
Dim objWMI, VMList, VM
Set objWMI = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = objWMI.ExecQuery("SELECT * FROM Msvm_ComputerSystem")  

For Each strArg In WScript.Arguments
    For Each VM In VMList
        If VM.Caption = "仮想マシン" then 
            If VM.ElementName = strArg Then
		WScript.Echo strArg & "を起動中。"
                VM.RequestStateChange(2)
            End If
        End if 
    Next
Next

Dim strArg      ' 引数情報
Dim objWMI, VMList, VM, objVMShutdown, objRes
Set objWMI = GetObject("winmgmts:\\.\root\virtualization")
Set VMList = objWMI.ExecQuery("SELECT * FROM Msvm_ComputerSystem")

For Each strArg In WScript.Arguments
    For Each VM In VMList 
        If VM.Caption = "仮想マシン" and VM.EnabledState = 2 then
            If VM.ElementName = strArg Then
                If Not VM.EnabledState = 32769 Then
                    Set objVMShutdown = objWMI.ExecQuery("SELECT * FROM Msvm_ShutdownComponent WHERE SystemName='" & VM.Name & "'") 
                    objRes = objVMShutdown.ItemIndex(0).InitiateShutdown(True,"Scripted Shutdown")
                    WScript.Echo strArg & "を停止中。"
                Else
                    Msgbox "NG"
                End If
            End if
        End if
    Next
Next