Thanks for your reply wcburton ..
I am trying this. The reason i choose description because when i do ipconfig all ..under description it gave me "Cisco Systems VPN Adapter"......to find out if computer is connected through vpn or not...
Option Explicit
Dim objWMI
Dim colClass
Dim objClass
Dim strComputer
strComputer = "."
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colClass = objWMI.ExecQuery("Select * from Win32_NetworkConnection",,48)
On Error Resume Next
For Each objClass in colClass
WScript.Echo "DisplayType: " & objClass.discription
Next
Set objWMI = Nothing
Set colClass = Nothing
Set objClass = Nothing
This script is not giving me any output...
When I connect computer through CISCO VPN connection, on system try, vpn icon says connected. is there any way to catch this sequence....