Hi everyone,

My office laptop disconnects frequently from my home WiFi whereas my personal laptop has no problem.
One strange thing is, once my office laptop is disconnected, all other devices like MOBILE phones, etc. stop working. They show "No Internet" message. You won't be able to browse internet on them.

So far, I have tried to
Uncheck the checkbox - "Allow computer to turn off this device to save power" for the Wireless adapter.
But no effect.

Updated all the drivers - no effect.

Is there anything that I should try now?

Office laptop configuration - Dell Latitude 5590, Windows 10 Enterprise 64 bit
It also has Cisco AnyConnect that is USED to connect to office WiFi in all office premises.

WiFi Router - TP-LINK TL-WR841NHi 
I want to share with you my vbscript in order to create a shortcut on the desktop for Network Diagnostics in order to fix my internet connection.
This vbscript is tested by me only on my Windows 10 (32 bits).
Just give a try and tell me if the problem was solved or not ?

How to use this vbscript ?
Just open your Notepad or Notepad++ and copy and paste this code below and save it as : Network_Diagnostics.vbs and run it by double click, so you will get a shortcut on your desktop for running Network Diagnostics in order to fix some issues that can be encountred when trying to connect to the internet !
NB : You can also run this TOOL with this hotkey combination : CTRL+ALT+D

Network_Diagnostics.vbs
Code: [SELECT]Option Explicit
' Vbscript Created by Hackoo on 09/06/2020 16:00
' Tested only on Windows 10 (32 bits)
Dim Title : Title = "Shortcut Creator for Network Diagnostics by Hackoo 2020"
 
Call Create_Shortcut(_
    "NetworkDiagnostics",_
    "%SystemRoot%\system32\msdt.exe",_
    "-skip TRUE -path %Windir%\diagnostics\system\networking -ep NetworkDiagnosticsPNI",_
    "%SystemRoot%\system32\msdt.exe,0",_
    "Network Diagnostics to fix problems",_
    "CTRL+ALT+D"_
)
 
MsgBox "The shortcut was created successfully on your desktop !" & vbCrlf &_
"Le raccourci a été créé avec succès sur votre bureau !" & vbcrlf &_
"تم إنشاء الاختصار بنجاح على سطح المكتب الخاص بك !",vbInformation,Title
'---------------------------------------------------------------------------------------
Sub Create_Shortcut(ShortcutName,TargetPath,Arguments,IconLocation,Description,HotKey)
    Dim objShell,DesktopPath,objShortCut
    Set objShell = CreateObject("WScript.Shell")
    DesktopPath = objShell.SpecialFolders("Desktop")
    Set objShortCut = objShell.CreateShortcut(DesktopPath & "\" & ShortcutName & ".lnk")
    objShortCut.TargetPath = chr(34) & TargetPath & chr(34)
    objShortCut.Arguments = Arguments
    ObjShortCut.IconLocation = IconLocation
    ObjShortCut.Description = Description
    ObjShortCut.HotKey= HotKey
    objShortCut.Save
End Sub
'--------------------------------------------------------------------------------------
For any update of this vbscript you will find it here