JScript create a zip file of a log directory in MSFT Windows

f_CreateZip.js

// create a zip file of the log directory..
function f_CreateZip() {

	var shell = new ActiveXObject("Shell.Application");
	var fs_obj = new ActiveXObject("Scripting.FileSystemObject");
	var zipFilename = strLogPath.path + '\\' + sActiveConfig + '-LogFiles.zip';

	// create an empty zipfile :-)
	var zipFile = fs_obj.CreateTextFile(zipFilename, 1, 0);
	zipFile.Write('PK' + String.fromCharCode(5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0));
	zipFile.Close();

	var source = strLogPath.path + '\\Logs';

	// Test if is null folder
	if (source == null) {
		// throw new TypeError();
	}

	// copy all the source files into the zipfile
	shell.NameSpace(zipFilename).CopyHere(source);
	WScript.Sleep(2000);

	// delete directory
	fs_obj.DeleteFolder(strLogPath.path + '\\Logs');

};