'Copyright (C) 2006 NTT DATA Corporation.

'This program is free software; you can redistribute it and/or
'Modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation, version 2.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details

'         運用管理ソフトウェア Hinemos エージェント for Windows  
'                                    アンインストーラ   Ver 2.1
'                                                    2006/10/20

Dim objWshShell          ' WshShell オブジェクト
Dim objFSO               ' FileSystem オブジェクト
Dim strCmdLine           ' 実行するコマンド
Dim strDelFile           ' 削除するファイル名
Dim strMsg               ' メッセージの確認

' Shellオブジェクトの生成
Set objWshShell = WScript.CreateObject("WScript.Shell")

' NTSyslogのアンインストール
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\WINDOWS\system32\ntsyslog.exe") <> True Then
   strMsg = MsgBox ("Hinemosエージェントはインストールされていません", vbInformation, "Hinemosエージェント")
   WScript.Quit
Else
   strCmdLine = "cmd.exe /C ntsyslog.exe -remove"
   objWshShell.Exec(strCmdLine)
   If Err.Number = 0 Then
   Else
      WScript.Echo "エラー: " & Err.Description
   End If
End If   


' ファイルの削除
strDelFile = "C:\WINDOWS\system32\ntsyslog*.exe"
If Err.Number = 0 Then
    objFSO.DeleteFile strDelFile, True
    If Err.Number = 0 Then
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

strMsg = MsgBox ("Hinemosエージェントをアンインストールしました", vbInformation, "Hinemosエージェント")

Set objFSO = Nothing
Set regEx = Nothing
Set objWshShell = Nothing
