代码之家  ›  专栏  ›  技术社区  ›  Ryan

将MSIUSEREALADMINDETECTION添加到MSI的脚本

  •  8
  • Ryan  · 技术社区  · 16 年前

    this handy script 但是加上 MSIUSEREALADMINDETECTION

    我知道我可以手动使用Orca,也可以使用它的转换功能,但我宁愿不去那里。

    1 回复  |  直到 16 年前
        1
  •  12
  •   Ryan    16 年前

    一些裁判

    修改问题中引用的CustomAction_NoImpersonate.js将生成此脚本,该脚本可以在Properties表中添加/设置任何值。

    使用“cscript.exe MSI_SetProperty.js your.MSI属性值”调用

    // MSI_SetProperty.js <msi-file> <property> <value>
    // Performs a post-build fixup of an msi to set the specified property (and add it if it doesn't already exist)
    
    // Constant values from Windows Installer SDK
    var msiOpenDatabaseModeTransact = 1;
    var msiViewModifyInsert         = 1;
    var msiViewModifyUpdate         = 2;  
    
    if (WScript.Arguments.Length != 3)
    {
        WScript.StdErr.WriteLine("Usage: " + WScript.ScriptName + "file property value");
        WScript.Quit(1);
    }
    
    var filespec = WScript.Arguments(0);
    var property = WScript.Arguments(1);
    var value = parseInt(WScript.Arguments(2));
    var installer = WScript.CreateObject("WindowsInstaller.Installer");
    var database = installer.OpenDatabase(filespec, msiOpenDatabaseModeTransact);
    
    WScript.StdOut.WriteLine("Looking for property:" + property);
    
    try
    {   
        var sql = "SELECT Property, Value FROM Property WHERE Property = '" + property + "'";   
        var view = database.OpenView(sql);  
        view.Execute();     
        var record = view.Fetch();  
    
        if (record)
        {       
            while (record)
            {
                WScript.StdOut.Write("Found: " + record.StringData(0) + ", " + record.StringData(1) + ", " + record.StringData(2));
                if (record.IntegerData(2) != value)
                {
                    WScript.StdOut.WriteLine(" - changing to " + value);
                    record.IntegerData(2) = value;
                    view.Modify(msiViewModifyUpdate,record);
                }
                else
                    WScript.StdOut.WriteLine(" - OK");
    
                record = view.Fetch();
            }
        }
        else
        {           
            WScript.StdOut.WriteLine("Not found, so adding");
            // There may be a better way to do this?
            sql = "INSERT INTO Property (Property,Value) VALUES ('" + property + "','" + value + "')";
            view = database.OpenView(sql);
            view.Execute();     
        }
        view.Close();
        database.Commit();
    }
    catch(e)
    {
        WScript.StdErr.WriteLine(e);
        WScript.Quit(1);
    }