Hoşgeldin Sivil

.
Forum Yöneticisi: Administrator | Bu Bölümde Yetkili Tüm Yöneticiler? | Bu konuyu okuyanlar?

 Forum Ana Sayfa
   Networking

   
 Kurallar    Aktif Konular    PM    Kayıt Ol     Giriş Yap  
» CyberAkademi -Excel İP Ping Test Statü
[ 1 ]   2
 
 Konu Kalitesi %20
Oy Ver   
 
Gönderilme Tarihi: 31 Mart 2022 11:01:24 - Kayıtlı IP
  Mesajı İhbar Et!     

STORİX
Oktay OLGUN

Binbaşı

31 Ocak 2022
53 Mesaj

Durum: Ya Hak.


Aktiflik
Seviye
Deneyim
Fahri Yönetici


Öncelikle Herkese Merhaba

Network üzerinden 50 yada 100 den fazla İP ile çalışan cihazlarınızın durumları excel makro üzerinden tek tuşla sorgulama yapabilen bir excel uygulamasıdır.



Servername : Şirketinizde yada bünyenizde bulunan İp adresilerinin sorgulama yapılacağı İp adresi
Ping Status: Sorgulama Yapılan İP Adresinizin anlık durumunu sorgulama ve durumunu gösteren hücre.
Statu: Servername ve Ping Statusunu alıp durumunu " Yesil " ve " Kırmızı" olarak görsel gösteren hücre.
Server Site :İP adresinizin bağlı olduğu lokasyon adı
Execute :İP Listesimizin sorgusunu başlatmak için buton





Makro Kodu :

Sub PingSystem()
'----First clear the cells in Row B-----------------
ClearStatusCells
'---------------------------------------------------
Dim strcomputer As String
Application.ScreenUpdating = True
For introw = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
strcomputer = ActiveSheet.Cells(introw, 1).Value
'------------Call ping function and post the output in the adjacent cell-------
If Ping(strcomputer) = True Then
strpingtest = "Online"
ActiveSheet.Cells(introw, 2).Value = strpingtest
Else
ActiveSheet.Cells(introw, 2).Font.Color = RGB(200, 0, 0)
ActiveSheet.Cells(introw, 2).Value = "Offline"
End If
Next
MsgBox "Script Completed"
End Sub
Function Ping(strcomputer)
Dim objshell, boolcode
Set objshell = CreateObject("wscript.shell")
boolcode = objshell.Run("ping -n 1 -w 1000 " & strcomputer, 0, True)
If boolcode = 0 Then
Ping = True
Else
Ping = False
End If
End Function

Sub ClearStatusCells()
Range("B2:B1000").Clear
End Sub

Sub toplama()
Dim a As Integer
a = Application.Sum((Sheets1("Sheets1").Range("B1:B255")))
Cells(10, 10).Value = Online
End Sub



Excel İp Ping Test Download


___________________________________________
“Bilgiyi veren yargıyı belirler.”
          
     
 
 
Gönderilme Tarihi: 31 Mart 2022 11:09:45 - Kayıtlı IP
  Mesajı İhbar Et!     

DeXPLaNeR

Co (Administrator)

CyberOttoman/Angara
18 Kasım 2021
419 Mesaj

Durum: OrtayaKarışık


Aktiflik
Seviye
Deneyim
(Co) Administrator

Görev Org./Grup :

Strateji


+++


___________________________________________
* CA_ DeXPLaNeR _CW *
       
  C-WarZ , Errorle Mücadele (TIM LiDERi) , Yöneteam (TIM LiDERi) ,    
 
 
Gönderilme Tarihi: 31 Mart 2022 12:48:25 - Kayıtlı IP
  Mesajı İhbar Et!     

Balerion
Balerion the Black Dread

Albay

İstanbul
26 Ocak 2022
81 Mesaj

Durum: Öğreniyor


Aktiflik
Seviye
Deneyim



Çok iyi, sadece excel ile yapılabilecekler gerçekten harika.

Ellerine sağlık.


___________________________________________
Elimizden Geldikçe, Dilimiz Döndükçe.
       
  Yeni Üyeler TIM ,    
 
 
Gönderilme Tarihi: 11 Nisan 2022 04:00:49 - Kayıtlı IP
  Mesajı İhbar Et!     

Ahmet ÖNDER

Binbaşı

39.801°K 33.6965°D
08 Şubat 2022
15 Mesaj

Durum: Duvar Ustası


Aktiflik
Seviye
Deneyim



Eline sağlık Oktay ağabey, gayet güzel olmuş.


___________________________________________
Kâh çıkarım gökyüzüne, seyrederim âlemi. Kâh inerim yeryüzüne, seyreder âlem beni...

          
     
 
 
Gönderilme Tarihi: 11 Nisan 2022 04:11:23 - Kayıtlı IP
  Mesajı İhbar Et!     
WEB KARTALI
<? Ahmet ?>

General

Mars 7. Segment
29 Ocak 2022
107 Mesaj

Durum: For İSLAM


Aktiflik
Seviye
Deneyim


Uzmanlık Alanları:
PHP
HBYS

Excel in yapmadığı bi bu kalmıştı zaten.. süper gerçekten.. ++


___________________________________________
Web Developer | Social Planet Founder
          
     
 
 
Gönderilme Tarihi: 13 Nisan 2022 00:34:57 - Kayıtlı IP
  Mesajı İhbar Et!     

HAYALET

Albay

03 Ocak 2022
259 Mesaj

Durum: Beyaz Ve Sen


Aktiflik
Seviye
Deneyim
Moderatör

Görev Org./Grup :

Sosyal Medya


Lojistik


abi eline koluna sağlık on numara beş yıldız


___________________________________________
Oraleti sevmemiz portakala olan düşkünlüğümüzden değil biz ezilenin yanındayız.
       
     
 
 
Gönderilme Tarihi: 21 Temmuz 2024 20:20:16 - Kayıtlı IP
  Mesajı İhbar Et!     

Altay

Albay

Bilinmeyen
16 Ocak 2022
194 Mesaj

Durum: Sabırlı


Aktiflik
Seviye
Deneyim



Kısa ve öz olmuş. Faydalı bir içerik ++


___________________________________________
Kamların Gecesi
       
     
 
 
[ 1 ]   2
 
Git:
  Arkadaşına yolla

Sayfa Yüklenme Süresi: 0.1473


 

İçerik Yöneticisi : AKTIF / Veriler Aktarıldı...
IP Adresiniz : 172.69.6.70 Güvenlik Nedeniyle Kayıt Altındadır.



Uzun yoldan geldik, uzun yola devam...

   


Reklam vermek için tıklayın

Forum Kuralları | Üye Olmak İçin | CyberAkademi | Operasyonel TİM'ler
CYBERAKADEMI ~ 2021