avatar

Yararlı .Bat ve .Vbs Kodları - 2
Host dosyasına bat kodu ile site ekleme

15/05/2018
Sezer Tahmaz

İşinize yarayacak Kod Örneklerini altta paylaşmaya devam ediyorum...

 

Önceki paylaştığım kodlara Buradan bakabilirsiniz.

 

 

.bat ile İp ve Network Kartları bilgilerini Masaüstünde bir .txt belgesine Kaydedelim.

 

@echo off
ipconfig>%userprofile%\desktop\ip_bilgileri.txt
echo.
exit

 

.bat ile Bir Klasör içeriğini Masaüstünde bir .txt Belgesine Kaydedelim.

 

Burada masaüstünde "Deneme" isimli Klasörün içindekileri listeletip yine masaüstünde "Klasor icerigi.txt"   isimli bir Not Belgesine yazdırmasını istiyoruz.(Bu işlemde .txt belgesine kaydedilen içeriğiniz sadece isim olarak kaydedilmez İçeriğin Ne Zaman Oluşturulduğu ve Boyutu da ayrıntılı şekilde göstermektedir.)

@echo off
Dir %userprofile%\desktop\Test>%userprofile%\Desktop\"Klasor icerigi".txt
exit

 

 .bat ile bir .txt belgesine Yazı Yazdırma ve kaydetme

(Kırmızı ile işaretlenmiş bölüme mesajınızı  >> Yeşil ile işaretli alana da Oluşturulacak olan Not belgesine ne isim vereceğinizi yazınız.)

 

@echo off
echo Bu kısma ne kaydetmek istiyorsaniz yazabilirsiniz...>%userprofile%\Desktop\"Kaydedilecek Dosya Adi".txt
exit

 

 .bat kodu ile Bilgisayarınızın Sistem bilgilerini Masaüstüne kaydedin.

 

@echo off
systeminfo>>%userprofile%\desktop\"Sistem Bilgilerim".txt
echo Donanim ve Sistem Bilgileriniz Masaustunuze Yuklenmistir!
exit

 

 

.bat kodu ile TaskList Masaüstüne kaydetme

 

@echo off
tasklist>%userprofile%\desktop\Deneme.txt 
exit

 

 

 .bat kodu ile Taşıma Yapma

(Alttaki komutta Kullanıcının masaüstünde bulunan Deneme.txt isimli metin belgesini yine masaüstünde bulunan Deneme isimli Klasöre taşıma gösterilmiştir.Dosya yollarını değiştirebilirsiniz.)

@echo off
move %userprofile%\desktop\Deneme.txt %userprofile%\desktop\Deneme
exit

 

 

.bat kodu ile Yazıcı Servislerini Durdurma / Yeniden Başlatma

(Bu kodu daha önce 5 ayrı şekilde vermiştim aslında ama hangisini kullanmalıyım diye düşünmeyin diye kodların hepsini birleştirerek tek hale getirdim.)

 

 

@echo off
echo Yazici Servisi Durduruluyor. . .
timeout /T 5
net stop spooler
del /q %SystemRoot%\system32\spool\printers\*.* /q
del %windir%\system32\spool\printers\*.* 
net start spooler
echo Yazici Servisi Yeniden Baslatiliyor . . .
timeout /T 5
exit

 

 .bat ile Hosts dosyasına içerik (site veya program) eklemek - Hosts dosyası ile Site Yasaklama

 Normalde Windows 10 sürümlerin de host dosyasına dışardan müdahale etmeniz yasaktır.Bir zamanlar aklımda bir şey vardı host dosyasına direk eklemeyelim de lazım oldukta ekleyelim.Bunu da sorsun bana ne eklemek istiyorsun diye uğraşmayayım diye çırpındım ama sonuç bulamadım.Ne tekim bu gün buldum ve O bloğun sahibi ve müdavimlerine lazım olur diye dahası benimde çorbada tuzum olsun diye ekledim işte O Makale Burada ..

Script size öncelikle hangi ip'yi vermek istediğinizi sonrasında ise yasaklamak istediğiniz adresi soracaktır.

Ayrıca bir ip adresiniz yoksa : 

  • 127.0.0.1
  • 255.255.255.255
  • 0.0.0.0

Adreslerinden birini kullanabilirsiniz.

 

@echo off
set /p IP=Ip Adresi Girin: 
set /p SiteAdres=Domain Girin: 
Echo ""
Echo %ip%   %siteadres%>>"%Windir%\system32\drivers\etc\hosts"
Rem DNS Önbelleği Güncelleniyor
ipconfig /flushdns
Rem DNS Önbelleği Güncellendi
Exit

 

Host dosyasından site yasaklama .vbs kodu (Üsttekinin aynısı)

 

Option Explicit
Const strIP = "127.0.0.1" ' Eklenecek IP Sabiti
Dim oFso, oYaz, strUrl, oCmd

Set oFso = CreateObject("Scripting.FileSystemObject")
	Set oYaz = oFso.OpenTextFile("C:\Windows\system32\drivers\etc\hosts",8,False,-2)
		strUrl = InputBox("Site Adresini Gir","Site Adresini Girin")
		If Len(strUrl) > 0 Then oYaz.WriteLine(vbNewLine & strIP & vbTab & strUrl) ' Kayıt Ekleniyor
		oYaz.Close
	Set oFso = Nothing
Set oYaz = Nothing

Set oCmd = CreateObject("WScript.Shell")
	oCmd.Run "%comspec% /c ipconfig /flushdns",0,True ' DNS Önbelleği Temizleniyor
Set oCmd = Nothing

MsgBox strUrl &" kaydı Hosts dosyasına eklendi."

 

Sağ Tuşa "Birlikte Aç" Menüsü Ekleme / Kaldırma

Belki başınıza gelmiştir dosya veya programlarınızı sağ tıklayarak farklı bir uygulama ile açmak istersiniz veya indirdiğiniz bir dosya açılmaz uygun program seçmek istersiniz ama tam o anda bir bakarsınız ki sağ tuş'ta Birlikte Aç Menüsü  Yok! Uzatmayalım işte geri getirebileceğiniz veya silebileceğiniz kodlar.

 

"Birlikte Aç" Geri Getirmek İçin: Add >> Open With!

@echo off
Reg.exe add "HKCR\*\shellex\ContextMenuHandlers\Open With" /ve /t REG_SZ /d "{09799AFB-AD67-11d1-ABCD-00C04FC30936}" /f
Exit

"Birlikte Aç" Silmek İçin: Delete >> Open With!

@echo off
Reg.exe delete "HKCR\*\shellex\ContextMenuHandlers\Open With" /f
Exit

 

.bat ile 100 mb üzeri Ram kullanan Servis ve Programları Masaüstünde bir .txt belgesine Kayıt edelim. 

 (100000 MB boyutunu istediğiniz gibi  değiştirebilirsiniz)

 

echo off

tasklist /fi "memusage gt 100000">%userprofile%\desktop\"Ram Kullanimi".txt 

echo.

exit

 

Yeni kodlarla görüşmek üzere..

Yorumlar Yorum Yap

  • Sezer Tahmaz

    Merhaba Emre, istediğin şey Örnek: Sistem bilgilerini kaydedeceksin ama oluşturulan .txt belgesinde o bilgisayarın ismi yazsın istiyorsun yani EmrePC.txt şeklinde,Doğrumudur? Bunun için kodları verirkende yazmıştım şu şekilde değiştirebilirsin. @echo off systeminfo>>%userprofile%\desktop\"EmrePC".txt echo Donanim ve Sistem Bilgileriniz Masaustunuze Yuklenmistir! exit

    Sezer Tahmaz 17/05/2018 12:10
  • Emre

    Yazı için teşekkür ederim. Güzel bir anlatım olmuş. Benim yapmak istediğim sistem bilgilerini masaüstüne kaydederken txt dosyasının adını o bilgisayarın adı olarak kaydetmek istiyorum. Bilgisayar adı ne ise txt adı da o olsun. Bunu nasıl yapabiliriz?

    Emre 17/05/2018 10:48

Son Yazılar