MeryWiki

「上書き保存(UAC対応)」の版間の差分

← 古い編集
MSY-07 (トーク | 投稿記録)
2,274 回編集
見出しの修正
MSY-07 (トーク | 投稿記録)
2,274 回編集
SyntaxHighlightにcopyの追加
 
(同じ利用者による、間の11版が非表示)
1行目: 1行目:
== 概要 ==
UAC に対応した「上書き保存」マクロです。
== バグ ==
== バグ ==
'''2013/2/1 以前までのコードにはセキュリティリスクのあるバグが含まれていました。'''
'''2013-02-01 以前までのコードにはセキュリティリスクのあるバグが含まれていました。'''


申し訳ありません。
=== バグ詳細 ===
;現象
;現象
:ファイルのアクセス権限が書き換えられる。
:ファイルのアクセス権限が書き換えられる。
11行目: 11行目:
;条件
;条件
:TEMP がユーザフォルダ配下にある(デフォルト状態)
:TEMP がユーザフォルダ配下にある(デフォルト状態)
== 概要 ==
UAC に対応した「上書き保存」マクロです。


== 変更履歴 ==
== 変更履歴 ==
* 2013/1/27 初版
* 1.0.1 (2013-02-02)
* 2013/2/2 バグ修正&UAC判定の強化
** バグ修正&UAC判定の強化
* 1.0.0 (2013-01-27)
** 初版


== 注意 ==
== 注意事項 ==
* 若干の副作用(制限)があります。
* 若干の副作用(制限)があります。
* 環境変数「TEMP」にアクセスします。
* 環境変数「TEMP」にアクセスします。
37行目: 36行目:
* 「外部でファイルが変更されています」のメッセージが表示される
* 「外部でファイルが変更されています」のメッセージが表示される
* UAC 制御画面でキャンセルしても編集マーク(*)が消える(実際には保存されていない)
* UAC 制御画面でキャンセルしても編集マーク(*)が消える(実際には保存されていない)
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="javascript" copy>
#title="上書き保存"
#title="上書き保存"


52行目: 51行目:


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


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


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


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


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


85行目: 84行目:
var shell = new ActiveXObject("Wscript.Shell");
var shell = new ActiveXObject("Wscript.Shell");
var folder = shell.ExpandEnvironmentStrings("%TEMP%");
var folder = shell.ExpandEnvironmentStrings("%TEMP%");
var tempFilePath = fso.BuildPath(folder, Document.Name);
var tempFilePath = fso.BuildPath(folder, document.Name);
SaveToFile(tempFilePath, Document);
SaveToFile(tempFilePath, Document);


var appShell = new ActiveXObject("Shell.Application");
var appShell = new ActiveXObject("Shell.Application");
appShell.ShellExecute("cmd.exe", '/c COPY /Y "' + tempFilePath +'" "' + Document.FullName + '" & DEL "' + tempFilePath + '"', "", "runas", 2);
appShell.ShellExecute("cmd.exe", '/c COPY /Y "' + tempFilePath +'" "' + document.FullName + '" & DEL "' + tempFilePath + '"', "", "runas", 2);
UpdateSavedMark(true);
UpdateSavedMark(true);


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


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


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


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


  return false;
return false;
}
}


// ファイル保存
// ファイル保存
function SaveToFile(path, doc) {
function SaveToFile(path, doc) {
  var charset = "utf-8";
var charset = "utf-8";
  switch (doc.Encoding) {
switch (doc.Encoding) {
    case meEncodingEUC:                   charset = "euc-JP";   break;
case meEncodingUTF16LEBOM:
    case meEncodingShiftJIS:             charset = "shift-jis"; break;
case meEncodingUTF16LENoBOM:
    case meEncodingUTF16LE:
case meEncodingUTF16BEBOM:
    case meEncodingUTF16BE:               charset = "unicode"; break;
case meEncodingUTF16BENoBOM: charset = "unicode";     break;
    case meEncodingUTF7:                 charset = "utf-7";   break;
case meEncodingUTF8BOM:
    case meEncodingUTF8WithSignature:
case meEncodingUTF8NoBOM:     charset = "utf-8";       break;
    case meEncodingUTF8WithoutSignature: charset = "utf-8";    break;
case meEncodingUTF7:         charset = "utf-7";        break;
  }
case meEncodingEUC:           charset = "euc-JP";       break;
case meEncodingJIS:           charset = "iso-2022-jp"; break;
case meEncodingShiftJIS:     charset = "shift-jis";    break;
}


  var adodb = new ActiveXObject("ADODB.Stream");
var adodb = new ActiveXObject("ADODB.Stream");
  adodb.Charset = charset;
adodb.Charset = charset;
  adodb.Type = 2;
adodb.Type = 2;
  adodb.Open();
adodb.Open();
  adodb.WriteText(doc.Text.replace(/\n/mg, NEWLINE_CODE));
adodb.WriteText(doc.Text.replace(/\n/mg, NEWLINE_CODE));


  // BOM 削除処理
// BOM 削除処理
  if (doc.Encoding == meEncodingUTF8WithoutSignature) {
if (doc.Encoding == meEncodingUTF8NoBOM) {
    adodb.Position = 0;
adodb.Position = 0;
    adodb.Type = 1;
adodb.Type = 1;
    adodb.Position = 3;
adodb.Position = 3;
    var binary = adodb.Read();
var binary = adodb.Read();
    adodb.Close();
adodb.Close();


    // 新規ストリームに BOM を除いた文字列を書き込む
// 新規ストリームに BOM を除いた文字列を書き込む
    adodb.Open();
adodb.Open();
    adodb.Write(binary);
adodb.Write(binary);
  }
}
  adodb.SaveToFile(path, 2);
adodb.SaveToFile(path, 2);
  adodb.Close();
adodb.Close();
};
};


168行目: 170行目:
// すぐに反映されないので対処
// すぐに反映されないので対処
function UpdateSavedMark(isSaved) {
function UpdateSavedMark(isSaved) {
  if (Document.Saved != isSaved) {
if (document.Saved != isSaved) {
    Document.Saved = isSaved;
document.Saved = isSaved;
    var sel = Document.Selection;
var sel = document.selection;
    if (sel.GetActivePointX(mePosLogical) == 1 && sel.GetActivePointY(mePosLogical) == 1) {
if (sel.GetActivePointX(mePosLogical) == 1 && sel.GetActivePointY(mePosLogical) == 1) {
      sel.CharLeft();
sel.CharLeft();
    } else {
} else {
      sel.CharLeft();
sel.CharLeft();
      sel.CharRight();
sel.CharRight();
    }
}
  }
}
}
}
</syntaxhighlight>
</syntaxhighlight>
184行目: 186行目:
副作用(制限)
副作用(制限)
* 元に戻す、やり直しの履歴が削除される
* 元に戻す、やり直しの履歴が削除される
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="javascript" copy>
#title="上書き保存"
#title="上書き保存"


197行目: 199行目:


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


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


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


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


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


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


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


// 一時ファイルに保存して UAC 対応ムーブ
// 一時ファイルに保存して UAC 対応ムーブ
Document.Saved = true;
document.Saved = true;
Document.Save(tempFilePath);
document.Save(tempFilePath);
var appShell = new ActiveXObject("Shell.Application");
var appShell = new ActiveXObject("Shell.Application");
appShell.ShellExecute("cmd.exe", '/c COPY /Y "' + tempFilePath +'" "' + filePath + '" & DEL "' + tempFilePath + '"', "", "runas", 2);
appShell.ShellExecute("cmd.exe", '/c COPY /Y "' + tempFilePath +'" "' + filePath + '" & DEL "' + tempFilePath + '"', "", "runas", 2);
247行目: 249行目:
// ファイルムーブの完了待ち(最大 1 秒)
// ファイルムーブの完了待ち(最大 1 秒)
for (var i=0; i<50; i++) {
for (var i=0; i<50; i++) {
  Sleep(20);
Sleep(20);
  if (!fso.FileExists(tempFilePath)) {
if (!fso.FileExists(tempFilePath)) {
    break;
break;
  }
}
}
}


// ファイルを開き直す
// ファイルを開き直す
// UACの昇格を拒否されていた場合は、エディタ上の内容だけ書き換え
// UACの昇格を拒否されていた場合は、エディタ上の内容だけ書き換え
Editor.OpenFile(filePath);
editor.OpenFile(filePath);
var doc = Editor.ActiveDocument
var doc = editor.ActiveDocument
if (doc.Text != latestText) {
if (doc.Text != latestText) {
  doc.Text = latestText;
doc.Text = latestText;
}
}
doc.Selection.SetActivePoint(mePosLogical, tx, ty);
doc.Selection.SetActivePoint(mePosLogical, tx, ty);
270行目: 272行目:
// UAC が必要かを判定
// UAC が必要かを判定
function IsNeedUAC(path) {
function IsNeedUAC(path) {
  if (!path) {
if (!path) {
    return false;
return false;
  }
}


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


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


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


  return false;
return false;
}
}
</syntaxhighlight>
</syntaxhighlight>
「https://www.haijin-boys.com/wiki/上書き保存(UAC対応)」から取得
スポンサーリンク