excel'den IP adresini değiştirmek

[pylor]

Sayın excel web uzmanları bu konuda formda değişik sorulara değişik yanıtlar mevcut örneğin IP adresini Gösteren kod yada IP adresini bulan kod vs gibi ama benim sizden öğrenmek istediğim IP adresinin excel içinden bir buton yada başka uygun bir yöntem yardımı ile IP adresinin değişip değişmeyeceği bu konuda bir dosya ekliyorum detaylı anlatım için yardımlarınızdan dolayı şimdiden teşekkürler

 

[halit3]

Sayın excel web uzmanları bu konuda formda değişik sorulara değişik yanıtlar mevcut örneğin IP adresini Gösteren kod yada IP adresini bulan kod vs gibi ama benim sizden öğrenmek istediğim IP adresinin excel içinden bir buton yada başka uygun bir yöntem yardımı ile IP adresinin değişip değişmeyeceği bu konuda bir dosya ekliyorum detaylı anlatım için yardımlarınızdan dolayı şimdiden teşekkürler

Ben şahsen bu işlerden anlamam ama aşağıdaki siteden aldığım kodları dosyanıza ekledim.

http://www.bleepingcomputer.com/forums/topic168516.html

İlgili hücreler

BİRİNCİ IP ADRESİ

Ip adresi C3 Hücresi
Alt ağ makinesi C4 Hücresi
Varsayılan ağ geçidi C5 Hücresi

Tercih edilen DNS sunucu C7 Hücresi
Diğer DNS sunucusu C8 Hücresi

İKİNCİ IP ADRESİ

Ip adresi C14 Hücresi
Alt ağ makinesi C15 Hücresi
Varsayılan ağ geçidi C16 Hücresi

Tercih edilen DNS sunucu C18 Hücresi
Diğer DNS sunucusu C19 Hücresi

kod:

Private Sub CommandButton1_Click()

On Error Resume Next

sIPAddress = Cells(3, "c").Value
sSubnetMask = Cells(4, "c").Value
sGateway = Cells(5, "c").Value

sDNS1 = Cells(7, "c").Value
sDNS2 = Cells(8, "c").Value

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

' DNS Section
For Each objNetAdapter In colNetAdapters
arrDNSServers = Array(sDNS1, sDNS2)
objNetAdapter.SetDNSServerSearchOrder (arrDNSServers)
Next

arrIPAddress = Array(sIPAddress)
arrSubnetMask = Array(sSubnetMask)
arrGateway = Array(sGateway)
arrGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway, arrGatewaymetric)

If errEnable = 0 Then
sMsg = "IP address has changed to: " & sIPAddress & vbCrLf
sMsg = sMsg & "Subnet has changed to: " & sSubnetMask & vbCrLf
sMsg = sMsg & "Gateway has changed to: " & sGateway & vbCrLf & vbCrLf
sMsg = sMsg & "DNS 1 has changed to: " & sDNS1 & vbCrLf
sMsg = sMsg & "DNS 2 has changed to: " & sDNS2 & vbCrLf
WScript.Echo sMsg
Else
WScript.Echo "The IP address could not be changed."
End If
MsgBox "işlem tamam"

Next


End Sub
Private Sub CommandButton2_Click()

On Error Resume Next

sIPAddress = Cells(14, "c").Value
sSubnetMask = Cells(15, "c").Value
sGateway = Cells(16, "c").Value

sDNS1 = Cells(18, "c").Value
sDNS2 = Cells(19, "c").Value

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

' DNS Section
For Each objNetAdapter In colNetAdapters
arrDNSServers = Array(sDNS1, sDNS2)
objNetAdapter.SetDNSServerSearchOrder (arrDNSServers)
Next

arrIPAddress = Array(sIPAddress)
arrSubnetMask = Array(sSubnetMask)
arrGateway = Array(sGateway)
arrGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway, arrGatewaymetric)

If errEnable = 0 Then
sMsg = "IP address has changed to: " & sIPAddress & vbCrLf
sMsg = sMsg & "Subnet has changed to: " & sSubnetMask & vbCrLf
sMsg = sMsg & "Gateway has changed to: " & sGateway & vbCrLf & vbCrLf
sMsg = sMsg & "DNS 1 has changed to: " & sDNS1 & vbCrLf
sMsg = sMsg & "DNS 2 has changed to: " & sDNS2 & vbCrLf
WScript.Echo sMsg
Else
WScript.Echo "The IP address could not be changed."
End If
Next
MsgBox "işlem tamam"

End Sub

 

[pylor]

Sayın halit 3 göndermiş olduğunuz kodlar için teşekkür ederim kodlar düzenli bir şekilde çalışıyor IP adresleri hatasız değişiyor çok teşekkür ederim iyi çalışmalar. ( Küçük bir uyarı yapmak istiyorum kottan faydalanmak isyen arkadaşlar admin yetkisine sahip olmanız gerekiyor admin dışındaki kullanıcılarda kod çalışlmıyor )

 

[halit3]

Sayın halit 3 göndermiş olduğunuz kodlar için teşekkür ederim kodlar düzenli bir şekilde çalışıyor IP adresleri hatasız değişiyor çok teşekkür ederim iyi çalışmalar. ( Küçük bir uyarı yapmak istiyorum kottan faydalanmak isyen arkadaşlar admin yetkisine sahip olmanız gerekiyor admin dışındaki kullanıcılarda kod çalışlmıyor )

Teşekkürler iyi çalışmalar

 

[talebeyim]

Halit bey alıntı olarak vermiş olduğu kodlarda iki farklı ip adresini değiştirmek için kullanılıyor. Peki II. commandbutona bastığımızda otomatik ip aldırmak istesek nasıl yapabiliriz ?

Private Sub CommandButton2_Click()

On Error Resume Next

sIPAddress = Cells(14, "c").Value
sSubnetMask = Cells(15, "c").Value
sGateway = Cells(16, "c").Value

sDNS1 = Cells(18, "c").Value
sDNS2 = Cells(19, "c").Value

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

' DNS Section
For Each objNetAdapter In colNetAdapters
arrDNSServers = Array(sDNS1, sDNS2)
objNetAdapter.SetDNSServerSearchOrder (arrDNSServers)
Next

arrIPAddress = Array(sIPAddress)
arrSubnetMask = Array(sSubnetMask)
arrGateway = Array(sGateway)
arrGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway, arrGatewaymetric)

If errEnable = 0 Then
sMsg = "IP address has changed to: " & sIPAddress & vbCrLf
sMsg = sMsg & "Subnet has changed to: " & sSubnetMask & vbCrLf
sMsg = sMsg & "Gateway has changed to: " & sGateway & vbCrLf & vbCrLf
sMsg = sMsg & "DNS 1 has changed to: " & sDNS1 & vbCrLf
sMsg = sMsg & "DNS 2 has changed to: " & sDNS2 & vbCrLf
WScript.Echo sMsg
Else
WScript.Echo "The IP address could not be changed."
End If
Next
MsgBox "işlem tamam"

End Sub

 

[halit3]

Halit bey alıntı olarak vermiş olduğu kodlarda iki farklı ip adresini değiştirmek için kullanılıyor. Peki II. commandbutona bastığımızda otomatik ip aldırmak istesek nasıl yapabiliriz ?

Bu kod da ip adresini siliyor.
Bu kodlar baya karışık bende anlamıyorum netten bulduğum kod:

Sub ip_adresi_sil()
Set objWMIService = GetObject("winmgmts:")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
On Error Resume Next
For Each objNicConfig In colNicConfigs
WScript.Echo vbCrLf & "Network Adapter " & objNicConfig.Index & _
vbCrLf & "  " & objNicConfig.Description & vbCrLf
If Not objNicConfig.DHCPEnabled Then
WScript.Echo "  Attempting to enable DHCP ..."
intReturn = objNicConfig.EnableDHCP
If intReturn = 0 Then
WScript.Echo "  DHCP enabled."
Else
WScript.Echo "  Unable to enable DHCP." & " Error #:" & intReturn
End If
intDNS = objNicConfig.SetDNSServerSearchOrder(Null)
Err.Clear
Else
WScript.Echo "  DHCP already enabled" & vbCrLf & _
"  DHCP Server:             " & objNicConfig.DHCPServer
Err.Clear
End If
errEnable = objNicConfig.EnableDHCP()
Next
MsgBox "işlem tamam"
End Sub

 

[talebeyim]

Evet kodlar işimi gördü, Bende araştırmıştım ama aradığımı bulamamıştım, Araştırmanız için teşekkürler halit bey