IP Sıkıntısı

netsh interface set interface name="Yerel Ağ Bağlantısı" newname="local area"
netsh interface ip set address "local area" source=dhcp
netsh interface ip set dns "local area" source=dhcp

savas bey verdiğiniz script yine çalışmadı.

 

 

Local Area Connection olarak dener misin.

Kabus gibi bişey oldu bu durum sana elle yapsan bitmişti 🙁

 

 

Sonun da oldu teşekkürler 🙂 ağ bağlantıları otomatiğe döndü.scipt in son hali:

 

SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "tokens=*" %%a IN ('wmic NIC where "netconnectionid like '%'" get netconnectionid ^| FIND /i "yerel"') DO SET lan=%%a
FOR /f "tokens=* delims= " %%a IN ("%lan%") DO SET lan=%%a
FOR /l %%a IN (1,1,21) DO IF "!lan:~-1!"==" " SET lan=!lan:~0,-1!
NETSH interface ip SET address "%lan%" source=dhcp
netsh interface ip set dns "%dns%" source=dhcp

 

 

 

 

 

 

 

Merhaba Ahmet Bey, üstte ilk verdiğiniz Dos çıktısında dikkat ederseniz bağdaştırıcı ismi olarak "Yerel A-­ Ba-­lant²s²" şeklinde gözüküyor, haliyle tanımlı böyle bir bağdaştırıcı olmadığı için çalışmıyor.

Düzenleyip çalıştırdığınız script query ile ismi çekiyor(wmic NIC where "netconnectionid like '%'" get netconnectionid), lan değişkenine atamasını yapıyor(SET lan=%%a) ancak içindeki boşlukları trim etmesi için ikinci for döngüsünü eklediğim zaman birinci for döngüsü hata veriyor, sorguyu yapamıyordu, yapsa bile değişkene atayamıyordu. Bu sorunu dün bi türlü aşamadım. Tahminimce windows 7 kullandığımdan bu sorunla karşılaştım. Xp client'ta deneme fırsatı bulamadım. İmkanlar olmayınca böyle oluyo, naparsın işte 🙂

Bu arada eklemekte fayda var, scriptte hata var. Çalışmaması lazım 🙂

 netsh interface ip set dns "%dns%" source=dhcp

Burda %dns% şeklinde bir değişken var ama tanımlanmamış, ip adreslerini otomatiğe alsa bile bu satır yüzünden DNS'i otomatiğe almayacaktır. Scriptin son hali aşağıdaki gibi.
Başarılar, iyi çalışmalar.

SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "tokens=*" %%a IN ('wmic NIC where "netconnectionid like '%'" get netconnectionid ^| FIND /i "yerel"') DO SET lan=%%a
FOR /f "tokens=* delims= " %%a IN ("%lan%") DO SET lan=%%a
FOR /l %%a IN (1,1,21) DO IF "!lan:~-1!"==" " SET lan=!lan:~0,-1!
NETSH interface ip SET address "%lan%" source=dhcp
netsh interface ip set dns "%lan%" source=dhcp

 

düzeltmeniz için teşekkürler savaş bey 🙂 yalnız bir sorun var xp tamam da win7 çalışmıyor script 🙂

düzeltmeniz için teşekkürler savaş bey 🙂 yalnız bir sorun var xp tamam da win7 çalışmıyor script 🙂

Script'i yönetici hakları ile çalıştırıyorsunuz değil mi ? 

evet ..

evet ..

Ahmet bey;

Eğer denemediyseniz, oturum açmış olduğunuz kullanıcı yönetici olsa dahi script'in üzerinde sağ tıklayıp açılan menüden "Yönetici olarak çalıştır" seçeneği ile tekrar deneyebilir misiniz ?

İyi çalışmalar. 

denedim serkan bey çalışmıyor ..

denedim serkan bey çalışmıyor ..

Komut Istemcisini yönetici olarak çalıştırdıktan sonra komutları manuel olarak girip aldığınız mesajları paylaşır mısınız ?

 

 çok hızlı geçtiği için yakalaya bildiğim kısım bu ..

 

Bu satırda arayüz adı boş geldiği için olmamış gibi görünüyor. Aşağıdaki linkleri inceleyebilirsiniz.

http://www.cozumpark.com/forums/post/198613.aspx
http://technet.microsoft.com/en-us/library/gg214167(v=ws.10).aspx
http://technet.microsoft.com/en-us/library/dd573311(v=ws.10).aspx  

İyi çalışmalar.. 

bir kaç gündür internet üzerinde araştırıyordum sonunda işime yarayabileceğimi düşündüğüm bir .vbs komutu buldum.test ortamım da denedim şuan için çalışıyor fakat daha test edicem birkaç gün daha.

ama yine win7 üzerinde çalışmadı komut , xp de sorun yok .. bu komut ile sadece subnet mask adresi değişiyor.. 252 yaparak ağ adreslerimi genişletmeyi düşünüyorum.

 

 

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

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

strSubnetMask = Array("255.255.252.0")

For Each objNetAdapter in colNetAdapters
    strIPAddress = objNetAdapter.IPAddress
    strGateway = objNetAdapter.DefaultIPGateway
    strGatewayMetric = objNetAdapter.GateWayCostMetric

    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address has been changed."
    Else
        WScript.Echo "The IP address could not be changed."
    End If
Next

 

 

Merhabalar Ahmet Bey,

Bir kaç gündür şehir dışında olduğum için cevap yazmaya fırsatım olmadı. Windows 7 ve Xp bilgisayarlar için aşağıdaki scripti kullanabilirsiniz.
Denedim %100 çalışıyor 🙂

Kolay gelsin, iyi çalışmalar. 

@echo off
cls
set dhcp=on
set NetName=Local Area Connection
setlocal
(
echo Const NETWORK_CONNECTIONS = ^&H31^&
echo Set NShell = CreateObject("Shell.Application"^)
echo Set NFolder = NShell.Namespace(NETWORK_CONNECTIONS^)
echo Set SItems = NFolder.Items
echo Set CozumPark = WScript.CreateObject("Wscript.Shell"^)
echo For Each NItem in SItems
echo If NItem.Name = "Yerel Ağ Bağlantısı" Then
echo NItem.Name = "%NetName%"
echo End If
echo Next
Set NShell = Nothing
)>%temp%\net.vbs
cscript.exe %temp%\net.vbs
NETSH interface ip SET address "%NetName%" source=dhcp"
NETSH interface ip SET dns "%NetName%" source=dhcp"

if %dhcp%==on
call:iprefresh
goto end

:iprefresh
ipconfig /release
ipconfig /renew
:end

echo If NItem.Name = "Yerel Ağ Bağlantısı" Then

merhaba savaş bey

evet komut hem xp de hem de win7 de çalışmakta teşekkürler.

ama bazı clientlerin ağ kartı isimleri (örnek: Yerel Ağ Bağlantısı 2) faklı.bu durumda komut çalışmayacaktır .. (denedim çalışmadı)

Deneme yaptığım bilgisayarda fazladan ağ olduğu kartları için sadece bu şekilde ayarlama fırsatım oldu. 

@echo off
cls
set dhcp=on
set NetName=Local Area Connection
setlocal
(
echo Const NETWORK_CONNECTIONS = ^&H31^&
echo Set NShell = CreateObject("Shell.Application"^)
echo Set NFolder = NShell.Namespace(NETWORK_CONNECTIONS^)
echo Set SItems = NFolder.Items
echo Set CozumPark = WScript.CreateObject("Wscript.Shell"^)
echo For Each NItem in SItems
echo If NItem.Name = "Yerel Ağ Bağlantısı" Then
echo NItem.Name = "%NetName%"
echo ElseIf 
NItem.Name = "Yerel Ağ Bağlantısı 2" Then 
echo  NItem.Name = "%NetName%"
echo ElseIf  NItem.Name = "Yerel Ağ Bağlantısı 3" Then 
echo  NItem.Name = "%NetName%"
echo End If
echo Next
echo Set NShell = Nothing
)>%temp%\net.vbs
cscript.exe %temp%\net.vbs
NETSH interface ip SET address "%NetName%" source=dhcp"
NETSH interface ip SET dns "%NetName%" source=dhcp"

if %dhcp%==on
call:iprefresh
goto end

:iprefresh
ipconfig /release
ipconfig /renew
:end