INetwork.GetName catastrophic failure

[DataLife]

Can someone tell me how to eliminate this catastrophic failure error or at least suppress it?

Suppressing should be ok because when I click YES to continue my script still works as expected.

I tried to add the screenshot to this post but the preview does not show it. So I added a link to the image below.


https://www.dropbox.com/s/w6nurv70hkrg5 ... r.PNG?dl=0

Here is the code that is causing the catastrophic failure.

Code: Select all

ActiveNetwork =   ;if the pc is not connected to any network then  ActiveNetwork := INetwork.GetName() is skipped,
  for INetwork in ComObjCreate("{DCB00C01-570F-4A9B-8D69-199FDBA5723B}").GetNetworks(1)
   ActiveNetwork := INetwork.GetName()
  if ActiveNetwork =
   return

[HotKeyIt]

use try

Code: Select all

ActiveNetwork =   ;if the pc is not connected to any network then  ActiveNetwork := INetwork.GetName() is skipped,
  for INetwork in ComObjCreate("{DCB00C01-570F-4A9B-8D69-199FDBA5723B}").GetNetworks(1)
   try ActiveNetwork := INetwork.GetName()
  if ActiveNetwork =
   return

[DataLife]

thanks HotKeyIt, I will try

Code: Select all

 try ActiveNetwork := INetwork.GetName()

I never was able to reproduce the error on command, I just have to wait and see if comes back.

[DataLife]

Thanks HotKeyIt, using "Try" has resolved the catastrophic failure error.

I have a very unusual issue with retrieving the network name.

With the code below I am monitoring the network name (windstream) which is the name of my wireless network.
It returns windstream until I open Devices and Printers and click Add Printer. While scanning for a new printer the network name changes to DIRECT-EIDESKTOP-V3D3LUJPHRW

I have no idea what (DIRECT-EIDESKTOP-V3D3LUJPHRW) is. DESKTOP-V3D3LUJ is my computer name.

This only happens on my PC running windows 10. I tried it on 2 other computers running windows 10 with no issues.

Why would scanning for a new printer cause the network name to change? Once the Add Printer dialog windows is closed the this script detects windstream again.

Code: Select all

loop
 {
  for INetwork in ComObjCreate("{DCB00C01-570F-4A9B-8D69-199FDBA5723B}").GetNetworks(1)
   try ActiveNetwork := INetwork.GetName()
  if ActiveNetwork <> windstream
   MsgBox %activenetwork%
  sleep 1000  
}

escape::
exitapp