Option Explicit

Dim gzip, strMessage
If Wscript.Arguments.Count = 0 Then
	strMessage = "GZIP script. Drop a file on this script "
	strMessage = strMessage & "to compress it. After the file "
	strMessage = strMessage & "has been compressed, it will "
	strMessage = strMessage & "have an added "".gz"" file "
	strMessage = strMessage & "file extension. You can uncompress "
	strMessage = strMessage & "the file with WinZip."
	MsgBox strMessage
Else
	Set gzip = GetObject("script:http://www.ericphelps.com/scripting/samples/wsc/Gzip.jpg")
	gzip.compress Wscript.Arguments(0)
End If