Option Explicit
' benötigte Konstanten
Private Const olExchangeGlobalAddressList As Integer = 0
Private Const olExchangeUserAddressEntry As Integer = 0
Private Const olExchangeRemoteUserAddressEntry As Integer = 5
Public Function getExchangeOn() As Boolean
Dim oOutlook As Object
Dim oAddressList As Object
getExchangeOn = False
' Outlook-Instanz anlegen
Set oOutlook = CreateObject("Outlook.Application")
' Alle Adress-Listen durchgehen
For Each oAddressList In oOutlook.Session.AddressLists
' Prüfen, ob Exchange-Liste
If oAddressList.AddressListType = olExchangeGlobalAddressList Then
getExchangeOn = True
Exit For
End If
Next
'Outlook schließen
oOutlook.Quit
' Objektvariable freigeben
Set oAddressList = Nothing
Set oOutlook = Nothing
End Function
Sub test1()
MsgBox getExchangeOn()
End Sub
Private Sub IsVPNEnabled()
Dim objWMI As Object, objItem As Object
Dim aname As String
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
aname = "Cisco AnyConnect Secure Mobility Client Virtual Miniport Adapter for Windows x64"
For Each objItem In objWMI
If objItem.Description = aname Then
MsgBox objItem.IPEnabled
End If
Next
Set objWMI = Nothing
End Sub
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Description='" & ANAME & "'")