Runtime error '-2146232576 (80131700)': Automation error (1 Viewer)

[Pac-Man]

Hello,

I am getting subject-mentioned error on execution of both Set sysText = CreateObject(SYS_TEXT_UTF8) and With CreateObject(SHA512_MANAGED). This error is resolved when I install .Net FW 3.5 however there are few PCs with my users on which we are unable to install .Net FW 3.5 as those PCs came with Windows 10 pre-unstalled and didn't receive install CD with them. To install .Net FW 3.5, we need to use DISM command with install CD inside DVD ROM.

I hope there would be some method like referencing some .Net FW dll files so that this code could run without .Net FW 3.5.

Const SYS_TEXT_UTF8   As String = "System.Text.UTF8Encoding", _
        SHA512_MANAGED  As String = "System.Security.Cryptography.SHA512Managed"

  Dim sysText           As Object, _
      arrBytes          As Variant

  Set sysText = CreateObject(SYS_TEXT_UTF8)

  With CreateObject(SHA512_MANAGED)

    arrBytes = .ComputeHash_2(sysText.GetBytes_4(strToHash))
  End With

 

[jdraw]

You could try this site--download is free and you can install via ControlPanel.

 

[Pac-Man]

You could try this site--download is free and you can install via ControlPanel.

Thanks for link. Sorry I forgot to mention that the PC don't have internet and I knew the control panel method but that method required internet and so does the web installer. I tried finding .Net 3.5 redistributable offline installer but none worked on Windows 10.

 

[sonic8]

I hope there would be some method like referencing some .Net FW dll files so that this code could run without .Net FW 3.5.

That's exactly what I would recommend. Research an alternative but similar approach that works with the .Net Fx 4.*. Even though .Net 3.5 is officially supported till 2029, it makes more sense long-term to use the newer versions of the framework.

 

[Pac-Man]

While searching the internet for the last two days, I came across these two (Stakeoverflow Link and VBForums Link) resources but couldn't figure out how to make them work for me.