Bilgisayar internete bağlı mı değil mi bunu anlamak için bir yöntem….
Dim strResult As String
Sub internetkontrol()
Dim objPing As Object
Dim objStatus As Object
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
ExecQuery("Select * from Win32_PingStatus Where Address = 'www.google.com'")
For Each objStatus In objPing
Select Case objStatus.StatusCode
Case 0: strResult = "1"
Case Else: strResult = "0"
End Select
Next
Set objPing = Nothing
End Sub