Отправка факсов через ActFax

// Use: scr_FileUtils
 
function GetActFaxDataField(Name, Value) {
	if (IsEmptyValue(Value)) {
		return '';
	}
	return '@F' + Name + Value + '@';
}
 
function GetActFaxDataFields(Number, To, Subject) {
	return GetActFaxDataField('211', Number) +
		GetActFaxDataField('201', To) +		
		GetActFaxDataField('307', Subject) +
		GetActFaxDataField('501', 2);
}
 
function SetDefaultPrinter(PrinterName) {
	var WinApi = new ActiveXObject('DynamicWrapper');
	WinApi.Register('winspool.drv', 'SetDefaultPrinter', 'i=s', 'f=s', 'r=l');
	WinApi.SetDefaultPrinter(PrinterName);
// 1.
//	var WshShell = new ActiveXObject('WScript.Shell');	
//	var RegPathWinNT = 
//		"HKCU\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\Device";		
//	WshShell.RegWrite(RegPathWinNT, PrinterName);	
 
// 2.
//	var WshNetwork = new ActiveXObject('WScript.Network');
//	WshNetwork.SetDefaultPrinter(PrinterName);	
}
 
function GetDefaultPrinter() {
	var RegPathWinNT = 
		"HKCU\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows\\Device";		
	var WshShell = new ActiveXObject('WScript.Shell');	
	var DefaultPrinter = WshShell.RegRead(RegPathWinNT);
	var CommaIndex = DefaultPrinter.indexOf(',');
	if (CommaIndex > 1) {
		DefaultPrinter = DefaultPrinter.substr(0, CommaIndex);
	}
	return DefaultPrinter;
}
 
function SendActFaxFromFile(Number, FileName, To, Subject) {
	if (IsEmptyValue(Number)) {
		return false;
	}
	if (IsEmptyValue(FileName)) {
		return false;
	}	
    if (!CheckFileExists(FileName)) {
    	return false;
	}
 
	// Получение параметров для отправки факса
	var DataFields = GetActFaxDataFields(Number, To, Subject);
 
	// Копирование файла во временную папку
	// В название включаются параметры для отправки факса
	var FileSystemObject = GetFileSystemObject();
	var FileBaseName = FileSystemObject.GetBaseName(FileName);
	var FileExtensionName = FileSystemObject.GetExtensionName(FileName);		
	var ParamFileName = System.GetTempFileName(FileBaseName + DataFields, 
		FileExtensionName);
	FileSystemObject.CopyFile(FileName, ParamFileName);		
 
	var DefaultPrinter = GetDefaultPrinter();
	SetDefaultPrinter('ActiveFax');	
	try {
	  	var Shell = new ActiveXObject('Shell.Application');			           
		Shell.ShellExecute(ParamFileName, '', '', 'print', 0);
		System.Sleep(100);
	} finally {
		SetDefaultPrinter(DefaultPrinter);
	}
 
	// TODO: Удалять временный файл после отправки
	// FileSystemObject.DeleteFile(ParamFileName, true);	
}