@echo off

c:
cd\
cd MrC

rem del %COMPUTERNAME%_ete all previous ErrorReports (%COMPUTERNAME%_%USERNAME%.zip)
if exist %COMPUTERNAME%_%USERNAME%.zip del %COMPUTERNAME%_%USERNAME%.zip

blat -install smtp.mrcuk.mr-carpet.co.uk info@mr-carpet.co.uk

cls
:regedit /e > %COMPUTERNAME%_registry.txt

ipconfig /all > %COMPUTERNAME%_ipconfig.txt

netdiag -v

dcdiag > %COMPUTERNAME%_dcdiag.txt

ren netdiag.log %COMPUTERNAME%_netdiag.log


echo Collecting Event Log information, please wait ...
elogdmp.exe %COMPUTERNAME% Application > %COMPUTERNAME%_event_app.txt
elogdmp.exe %COMPUTERNAME% System > %COMPUTERNAME%_event_sys.txt
elogdmp.exe %COMPUTERNAME% Security > %COMPUTERNAME%_event_sec.txt
elogdmp.exe %COMPUTERNAME% "Directory Service" > %COMPUTERNAME%_DirectoryService.txt
elogdmp.exe %COMPUTERNAME% "DNS Server" > %COMPUTERNAME%_DNSServer.txt
elogdmp.exe %COMPUTERNAME% "File Replication Service" > %COMPUTERNAME%_FileReplicationService.txt
elogdmp.exe %COMPUTERNAME% "Internet Explorer" > %COMPUTERNAME%_InternetExplorer.txt


echo Packing all logs now, please wait ...
zip -9 %COMPUTERNAME%_%USERNAME%.zip %COMPUTERNAME%_registry.txt %COMPUTERNAME%_ipconfig.txt %COMPUTERNAME%_event_app.txt %COMPUTERNAME%_event_sys.txt %COMPUTERNAME%_event_sec.txt %COMPUTERNAME%_dcdiag.txt %COMPUTERNAME%_netdiag.log %COMPUTERNAME%_DirectoryService.txt %COMPUTERNAME%_DNSServer.txt %COMPUTERNAME%_FileReplicationService.txt %COMPUTERNAME%_InternetExplorer.txt
del %COMPUTERNAME%_registry.txt
del %COMPUTERNAME%_ipconfig.txt
del %COMPUTERNAME%_event_app.txt
del %COMPUTERNAME%_event_sys.txt
del %COMPUTERNAME%_event_sec.txt
del %COMPUTERNAME%_netdiag.log
del %COMPUTERNAME%_dcdiag.txt
del %COMPUTERNAME%_DirectoryService.txt
del %COMPUTERNAME%_DNSServer.txt
del %COMPUTERNAME%_FileReplicationService.txt
del %COMPUTERNAME%_InternetExplorer.txt

blat C:\MrC\ErrorLogs.txt -to peterguyan@mr-carpet.co.uk -subject "Logs from %COMPUTERNAME% sent by %USERNAME%" -attach "C:\MrC\%COMPUTERNAME%_%USERNAME%.zip"

cls
echo.
echo Error logs have been sent !
sleep 10
exit