uzaktan Ip Yönlendirme

[karzer]

Excel içinde uygulama çalıştırma (psexec \\host cmd)

Merhaba,

Aşağıda hazırladığım tabloda gördüğünüz gibi herhangibir sunucuda uzaktan ip yönlendirmesi , yapılan yönlndirmeyi silme ve ip tablosunu görme işlevlerini yapmak istiyorum, ben bu işlemi bat dosyamdaki

psexec //sunucu cmd  /k route add 10.1.0.100 mask 255.255.255.255 10.0.0.1

kodlaması ile yapıyorum.

Bu işlemi birçok yere yapmam gerektiğinde kolay olmuyor, bu kodu aşağıda hazırladığım tabloya nasıl ayarlayabiliriz, yönledir dediğimizde hangi satırı tıklıorsak o satırdaki B sütundaki değeri 10.B.0.100 ikinci kısma yazarak yapmamız gerekiyor. örnek olarak Bursa satırının olduğu yerdeki yönlendire bastığımda 10.3.0.100 mask 255.255.255.255 10.0.0.1 olacak şekilde yönlendirecek yani 2. okteti B sütunundan alacak yardımcı olacaklara çok teşekkür ederim.

 

[karzer]

Buna benzer birşey yazabildim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As String
If Intersect(Target, [A2:A200,B2:B200,C2:C200]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "1" Or "2" Or "3" Or "4" Then
    z = Application.PathSeparator
    Shell "C:" & z & "windows" & z & "system32" & z & "PsExec.exe \\10.0.0.2 cmd /k route -p add 10.3.0.100 mask 255.255.255.255 10.0.0.1 & exit", vbNormalFocus
End If

Burdaki sıkıntım

 route -p add 10.3.0.100

3 yazan yere tıkladığım satırdaki rakamın yazılması b sütunundan alması gerekiyor rakamı bu değişkeni nasıl ataya biliriz şimdilik bunu çözersek sorun kalmayacak.
Yardımlarınızı bekliyorum.

 

[halit3]

iyi akşamlar olup olmuyacağını bilmiyorum ama değişkeni kırmızı ile işaretledim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As String
If Intersect(Target, [A2:A200,B2:B200,C2:C200]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "1" Or "2" Or "3" Or "4" Then
z = Application.PathSeparator
Shell "C:" & z & "windows" & z & "system32" & z & "PsExec.exe \\10.0.0.2 cmd /k route -p add 10." & Cells(Target.Row, "b").Value & ".0.100 mask 255.255.255.255 10.0.0.1 & exit", vbNormalFocus
End If