'Do not use {{

'strComputer = "."
'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

'For Each objItem in colItems
'	dtmLocalTime = objItem.LocalDateTime
'	dtmMonth = Mid(dtmLocalTime, 5, 2)
'	dtmDay = Mid(dtmLocalTime, 7, 2)
'	dtmYear = Mid(dtmLocalTime, 3, 2)
'Next

'dtmDay = dtmDay - 1
'If dtmDay < 10 Then dtmDay = "0" & dtmDay

'}} Do not use

zipcmd = """C:\Program Files\7-Zip\7z.exe"""
workdir = "D:\LogFiles\W3SVC1\"

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

For i = 1 To 30
	temp = Replace( DateAdd( "d", -i, Date() ), "-", "" )
	yy = Mid( temp, 3, 2 )
	mm = Mid( temp, 5, 2 )
	dd = Mid( temp, 7, 2 )
	'Wscript.Echo yy & mm & dd

	'ÀÏ ´ÜÀ§ ¾ÐÃà
	strLogFile = "u_ex" & yy & mm & dd & ".log"
	'Wscript.Echo workdir & strLogFile
	If fso.FileExists( workdir & strLogFile ) Then
		'Wscript.Echo zipcmd & " a """ & workdir & strLogFile & ".gz"" """ & workdir & strLogFile & """"
		WshShell.Run zipcmd & " a """ & workdir & strLogFile & ".gz"" """ & workdir & strLogFile & """", 0, true
		fso.DeleteFile workdir & strLogFile
	End If

	'½Ã°£ ´ÜÀ§ ¾ÐÃà
	For h = 23 To 0 Step -1
		hh = CStr( h )
		If Len( hh ) < 2 Then hh = "0" & CStr( h )
			'Wscript.Echo yy & mm & dd && hh
			strLogFile = "u_ex" & yy & mm & dd & hh & ".log"
			'Wscript.Echo workdir & strLogFile
			If fso.FileExists( workdir & strLogFile ) Then
				'Wscript.Echo zipcmd & " a """ & workdir & strLogFile & ".gz"" """ & workdir & strLogFile & """"
				WshShell.Run zipcmd & " a """ & workdir & strLogFile & ".gz"" """ & workdir & strLogFile & """", 0, true
				fso.DeleteFile workdir & strLogFile
		End If
	Next
Next