「上書き保存(UAC対応)」を編集中 (節単位)

=== パターン2 ===
副作用(制限)
* 元に戻す、やり直しの履歴が削除される
<syntaxhighlight lang="javascript" copy>
#title="上書き保存"

// -----------------------------------------------------------------------------
// Overwrite.js
//
// UAC対応の上書き保存
//
// (C) ks
// http://merysmacro.seesaa.net/
// -----------------------------------------------------------------------------

// 『無題』は通常処理
if (!document.Name) {
	document.Save();
	Quit();
}

// 変更がない場合は保存しない
if (document.Saved) {
	Quit();
}

// ファイルがない場合は通常処理(Mery準拠)
var fso = new ActiveXObject("Scripting.FileSystemObject");
if (!fso.FileExists(document.FullName)) {
	document.Save();
	Quit();
}

// 書き込み禁止か取得
var file = fso.GetFile(document.FullName);
if (file.Attributes & 0x01) {
	Alert("このファイルは読み取り専用です");
	Quit();
}

// UAC の判定
if (!IsNeedUAC(document.FullName)) {
	document.Save();
	Quit();
}

var shell = new ActiveXObject("Wscript.Shell");
var folder = shell.ExpandEnvironmentStrings("%TEMP%");
var tempFilePath = fso.BuildPath(folder, document.Name);

// 保存前の状態を保持
var sel = document.selection;
var latestText = document.Text;
var sx = ScrollX, sy = ScrollY;
var tx = sel.GetTopPointX(mePosLogical), ty = sel.GetTopPointY(mePosLogical);
var bx = sel.GetBottomPointX(mePosLogical), by = sel.GetBottomPointY(mePosLogical);
var filePath = document.FullName;

// 一時ファイルに保存して UAC 対応ムーブ
document.Saved = true;
document.Save(tempFilePath);
var appShell = new ActiveXObject("Shell.Application");
appShell.ShellExecute("cmd.exe", '/c COPY /Y "' + tempFilePath +'" "' + filePath + '" & DEL "' + tempFilePath + '"', "", "runas", 2);

// ファイルムーブの完了待ち(最大 1 秒)
for (var i=0; i<50; i++) {
	Sleep(20);
	if (!fso.FileExists(tempFilePath)) {
		break;
	}
}

// ファイルを開き直す
// UACの昇格を拒否されていた場合は、エディタ上の内容だけ書き換え
editor.OpenFile(filePath);
var doc = editor.ActiveDocument
if (doc.Text != latestText) {
	doc.Text = latestText;
}
doc.Selection.SetActivePoint(mePosLogical, tx, ty);
doc.Selection.SetAnchorPoint(mePosLogical, bx, by);
ScrollX = sx; ScrollY = sy;


//==============================================================================
// 関数定義

// UAC が必要かを判定
function IsNeedUAC(path) {
	if (!path) {
		return false;
	}

	// 書き込み可能か確認
	var fso = new ActiveXObject("Scripting.FileSystemObject");
	try {
		fso.OpenTextFile(path, 8).Close();
		return false;
	} catch (e) {
		// 排他制御中でも同じ結果を返すが判別できない
	}

	// OS 判定
	// XP 以前は不要
	var oLocator = new ActiveXObject("WBemScripting.SWbemLocator");
	var oService = oLocator.ConnectServer();
	var os = new Enumerator(oService.ExecQuery("SELECT * FROM Win32_OperatingSystem"));
	if (Number(os.item().Version.substring(0, 3)) < 6.0) {
		return false;
	}

	// ファイルの権限を確認
	var SE_DACL_AUTO_INHERITED = 0x0400;
	var permission = new Enumerator(oService.ExecQuery("SELECT * FROM Win32_LogicalFileSecuritySetting Where Path='" + path.replace(/\\/g, "\\\\") + "'"));
	if (!permission.atEnd() && permission.item().ControlFlags & SE_DACL_AUTO_INHERITED) {
		return true;
	}

	return false;
}
</syntaxhighlight>