Install WEDU 1.2 under Windows 10

Discussion in 'Windows 10' started by rmz, Aug 25, 2016.

Tags:
  1. rmz

    rmz MDL Novice

    Jan 2, 2011
    3
    4
    0
    When you try to install WEDU 1.2 under Windows 10, an error message is shown:

    Cannot install until after Microsoft Update Agent 7.0.6000.374 or later is installed.


    Workaround:

    - Use any MSI editor tool (Orca, SuperOrca, Advanced Installer, etc.)
    - Goto Property table
    - Change the values of the following properties from Not Installed to Installed
    WINDOWS_UPDATE_AGENT_32
    WINDOWS_UPDATE_AGENT_64
    - Save

    That's it, everything is working fine.
     
  2. abbodi1406

    abbodi1406 MDL KB0000001

    Feb 19, 2011
    16,222
    84,900
    340
    #2 abbodi1406, Aug 25, 2016
    Last edited by a moderator: Apr 20, 2017
    VBS can do the job as well :)
    Code:
    ' Hello friends,
    ' Make sure WEDU1.2.msi is in the same directory as this file before running:
    ' cscript <name_of_file>.vbs
    ' Modify this file as needed.
    ' Kind Regards,
    ' dumpydooby (modded by ricktendo64)
    Option Explicit
    Dim ws, installer, db, view, x
    Set ws = WScript.CreateObject("WScript.Shell")
    Set installer = WScript.CreateObject("WindowsInstaller.Installer")
    Set db = installer.OpenDatabase("WEDU1.2.msi", 1)
    Function QueryDatabase(query)
    WScript.Echo query
    On Error Resume Next
    Set view = db.OpenView (query) : CheckError
    view.Execute : CheckError
    view.close
    Set view = nothing
    db.commit : CheckError
    End Function
    Sub CheckError
    Dim message, errRec
    If Err = 0 Then Exit Sub
    message = Err.Source & " " & Hex(Err) & ": " & Err.Description
    If Not installer Is Nothing Then
    Set errRec = installer.LastErrorRecord
    If Not errRec Is Nothing Then message = message & vbNewLine & errRec.FormatText
    End If
    Wscript.Echo "" : Wscript.Echo message : Wscript.Echo ""
    Wscript.Quit 2
    End Sub
    On Error Resume Next
    QueryDatabase("UPDATE `Property` SET Value = 'Installed' WHERE `Property` = 'WINDOWS_UPDATE_AGENT_32'") 
    QueryDatabase("UPDATE `Property` SET Value = 'Installed' WHERE `Property` = 'WINDOWS_UPDATE_AGENT_64'") 
    
    place next to msi file, then execute admin cmd:
    Code:
    cscript WEDU.vbs