Bilgisayar Kullanımınızı Otomatikleştirmek için 5 Yararlı VB Windows Scripti

İlan

İster bir BT analisti olun, isterse normal bir bilgisayar kullanıcısı olun, PC'nizde sık sık yapmanız gerekebilecek birçok görev vardır. VB komut dosyaları, yukarıdan bir şey yapabilen Windows komut dosyaları olarak hizmet veren Visual Basic programlarına göre ölçeklendirilir bilgisayar donanımı, hizmetleri durdurma ve başlatma veya ağınızı sıfırlama hakkında önemli bilgiler kartı.

Tüm bu şeyleri normal şekilde nasıl yapacağınızı veya toplu dosyaları kullanarak nasıl yapacağınızı öğrenmek mümkündür. Fakat VB komut dosyaları toplu komut dosyalarından daha iyidir Toplu İşlemden Daha İyi: Windows Komut Dosyası Ana Bilgisayar Eğitimi Daha fazla oku çünkü daha esnektirler. Aşağıdaki komut dosyalarını, ihtiyaç duyduğunuzda ulaşılması hızlı olan ortak bir yerde saklarsanız, bu görevleri çok kısa bir sürede gerçekleştirebilirsiniz. Sadece betiğe çift tıklarsınız, bir soruyu yanıtlarsınız ve görev tamamlanır.

Aşağıdaki VB Windows komut dosyalarına bir göz atın ve kullanmak istediğiniz herhangi birini görürseniz, komut dosyasını kopyalayıp yapıştırmanız yeterlidir.

Not defteri veya diğer kodlama notları aracı Programcılar ve Kodlayıcılar için En İyi 7 Not Alma UygulamasıProgramcı olarak organize kalmak zor olabilir! İşte kodlayıcılar ve geliştiriciler düşünülerek tasarlanmış en iyi not alma uygulamaları. Daha fazla oku ve WSF dosyası olarak kaydedin.

Windows Komut Dosyalarınızı Hazırlayın

Aşağıda ayrıntılı olarak verilen komut dosyalarının her biri, dosyayı .WSF uzantılı olarak adlandırdığınız sürece ve kodu başlangıçta eklediğiniz sürece yalnızca çift tıklama ile çalışır:

Kodu şu şekilde kapatın:

  WScript. Çıkın. 

Bu, Windows'un komut dosyasının yazıldığı dili tanımasını ve düzgün bir şekilde işlemesini sağlar.

1. Bilgisayar Bilgileri için Windows Komut Dosyalarını Kullanma

Windows, WMI veya Windows Yönetim Araçları adlı bir şey sunar; bu komut dosyası, komut dosyasına işletim sisteminin bileşenlerine erişmek için bir arabirim sağlar. Sisteminizle ilgili güncel canlı bilgileri almak için WMI'ya karşı sorgular çalıştırabilirsiniz. Microsoft, tüm sorgu kategorileri sisteme karşı yapabilirsiniz.

VBA'nın aşağıdakileri yapmak için nasıl kullanılacağını ele aldık bilgisayar bilgilerini Excel'e çekme Basit Bir Excel VBA Komut Dosyası Kullanarak Tüm Bilgisayar Bilgilerinizi GörmeExcel ve 10 dakikalık çalışma, bilgisayarınız hakkında düşündüğünüzden daha ayrıntılı bilgi verecektir. Gerçek olamayacak kadar iyi mi? Bu Windows, nasıl kullanılacağını biliyorsanız. Daha fazla oku , ancak aynı şeyi Excel dışında basit bir VB komut dosyası kullanarak da yapabilirsiniz.

Bu örnekte sistemi işlemci bilgileri (aile, üretici ve çekirdek sayısı) için sorgulayacağız, pil bilgisi Power Throttling ile Windows 10'da Pil Ömrü Nasıl TasarlanırMicrosoft, Windows kullanıcılarına arka planda çalışırken tek tek uygulamaların pil tüketimini nasıl ele aldığı konusunda daha fazla kontrol sağlayan güç azaltma özelliğini tanıttı. Daha fazla oku (açıklama ve durum) ve mantıksal disk bilgisi Windows 10'da Disk Alanı TasarrufuDisk alanı gereksinimleri açısından, Windows 10 tamamen oburdur. Küçük bir SSD'de 20 GB boşa harcamak sinir bozucu olabilir. Neyse ki, Windows 10 kapladığı alanı azaltabilir ve bu alanın bir kısmını geri alabilirsiniz. Daha fazla oku (ad, kalan boş alan ve toplam boyut). Ardından, kolay görüntüleme için tüm bu bilgileri bir CSV dosyasına göndeririz.

İlk adım, CSV dosyasına çıktı vermek için kullanacağınız FileSystemObject öğesini ayarlamak ve dosyayı oluşturmaktır:

Set oFSO = CreateObject ("Komut Dosyası. FileSystemObject ") sFile1 = "MyComputerInfo.csv" Set oFile1 = oFSO.CreateTextFile (sFile1, 1)

Bir sonraki adım, WMI sorgusunu ayarlamak ve yürütmektir:

strQuery = "Win32_Processor'dan SELECT Ailesi, Üretici, NumberOfCores" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Son olarak, sonuçları sıralayın ve bilgileri CSV dosyasına gönderin. Süslü olmak istiyorsanız, çıktı dosyanızın daha iyi görünmesine yardımcı olmak için bunu birkaç satırla önceden yapın:

oFile1.WriteLine "İşlemci Bilgileri" oFile1.WriteLine "" colResults In Her objResult İçin strResults = "Aile:," + CStr (objResult. Aile) oFile1.WriteLine strResults strResults = "Üretici:," + CStr (objResult. Üretici) oFile1.WriteLine strResults strResults = "Çekirdek Sayısı:," + CStr (objResult. NumberOfCores) oFile1.WriteLine strResults. Sonraki

Kodunuzu şimdi çalıştırırsanız, çıktınız şöyle görünür:

Kodunuzun sonraki iki bölümü için, ek bilgileri aramak üzere sorguyu tekrar edip değiştireceksiniz. Pil bilgisi sorgusu:

oFile1.WriteLine "" strQuery = "SELECT Açıklama, Durum FROM Win32_Battery" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Pil Bilgisi" oFile1.WriteLine "" colResults In Her objResult İçin strResults = "Durum:," + CStr (objResult. Açıklama) oFile1.WriteLine strResults strResults = "Açıklama:," + CStr (objResult. Durum) oFile1.WriteLine strResults. Sonraki

İşte mantıksal disk sorgusu için bir sonraki bölüm:

oFile1.WriteLine "" strQuery = "Win32_LogicalDisk'ten Ad, FreeSpace, Boyut Seç" Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Disk Bilgisi" oFile1.WriteLine "" 'Mantıksal Disk Alanını belirleyin. Her objResult İçin colResults'ta strResults = "Ad:," + CStr (objResult. Ad) oFile1.WriteLine strResults strResults = "Boş Alan:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "Disk Boyutu:," + CStr (objResult. Boyut) oFile1.WriteLine strResults. Sonraki

Son olarak, dosyayı kapatarak ve nesneleri “Hiçbir şey” olarak ayarlayarak kodu kapatmayı unutmayın:

oFile1.Close Set oFile1 = Hiçbir şey. set colResults = Hiçbir şey. strResults = ""

Tüm bu kodu yeni .WSF dosyanıza koyun, çalıştırın ve çıktılarınız şöyle görünecektir:

Hakkında bilgi almak istediğiniz diğer bilgisayar aygıtları veya yazılımlar için yukarıdaki sorguları değiştirmeniz yeterlidir. tam sistem raporu Otomatik PC Sağlık Raporlama Sistemi Nasıl OluşturulurCep telefonunuz sizi önemli bir metne bildirirken öğle yemeği yiyorsunuz. SMS şunu okur: "Ev Bilgisayarı Uyarısı: 3 hack girişimi." Bu kurgu değil! Size bunu nasıl yapacağınızı gösterelim! Daha fazla oku istediğiniz zaman sadece bir fare tıklaması ile.

2. Hizmetleri Durdurma ve Başlatma

Belirli hizmetlerin sorunları olduğu zamanlar olacaktır ve düzgün bir şekilde yeniden çalışmak için hızlı bir yeniden başlatma gerektirir. Bu özellikle BT'de doğru BT'yi Çalışmadan Önce Neler İçine Girdiğinizi BilinBilgi Teknolojisi (IT) böylesine yaygın bir kariyer tercihi haline geldi. Ancak aslında BT'nin ne olduğunu ve disiplininin ne demek olduğunu çok az insan biliyor. Daha fazla oku bazen biraz hatalı olan sunucu yazılımını çalıştırmak zorunda kaldığınızda.

Hizmet yeniden başlatma işleminin bir dakikasını tıraş etmek istiyorsanız, aşağıdaki komut dosyasını uygun bir yerde saklamanız yeterlidir. Yeniden başlatmak istediğiniz hizmetin adını girmeniz istenir ve ardından tam olarak bunu yapar.

Hizmetlerin durdurulması ve başlatılması yönetici ayrıcalıkları gerektirdiğinden, komut dosyanızı vermek için komut dosyanızın başına aşağıdaki kodu yerleştirmeniz gerekir Yükseltilmiş ayrıcalıklar:

WScript değilse. Argümanlar. Adlandırılan. Var ("yükselt") Sonra CreateObject ("Kabuk. Uygulama "). ShellExecute WScript. FullName _ ve WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Çıkın. End If

Bu yapıldıktan sonra, kullanıcı girişi için giriş kutusunu çalıştırmak için kodun geri kalanını ekleyin, komut penceresini başlatve "net stop" ve "net start komutları" nı gönderin:

Set cmdShell = CreateObject ("WScript. Kabuk") strServiceName = Inputbox ("Inter Service to Stop", "Input Required") cmdShell. "Cmd.exe" dosyasını çalıştırın WScript. 1000 cm uykuda kalın. SendKeys "net stop" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. 1000 cm uykuda kalın. SendKeys "net start" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. 1000 cm uykuda kalın. SendKeys "Çıkış" cmdShell. SendKeys "{Enter}"

Hepsi bu kadar. Hizmetler aracı için avlanmaya gerek yok. Sadece bu komut dosyasını çalıştırın ve saniyeler içinde herhangi bir hizmeti durdurup başlatın.

3. Kayıt Defteri Ayarlarını, Varsayılan Yönetici Parolasını Değiştir

Aşağıdaki senaryo ile iki kuşu bir taşla öldüreceğiz. Bu komut dosyası size nasıl yapılacağını gösterir kayıt defterini düzenle Özellikleri Geliştirmek ve Kilidini Açmak için 5 Windows 10 Kayıt Defteri AyarıKayıt defteri düzenleyicisi, Windows 10'un bazı gizli özelliklerini etkinleştirmenin tek yoludur. Burada size karanlık temayı etkinleştirme veya klasörleri gizleme gibi kolay ince ayarlar göstereceğiz. Daha fazla oku bir VB betiği ile. Ayrıca, bu kayıt defteri ayarlarını düzenleyerek varsayılan Windows kullanıcı adını ve parolasını ayarlamanıza izin veren bir komut dosyası da verecektir.

İşte böyle çalışır. İlk olarak, kayıt defterini düzenlemek yönetici hakları gerektirdiğinden, komut dosyanız için yükseltilmiş ayrıcalıklar ayarlamanız gerekir:

WScript değilse. Argümanlar. Adlandırılan. Var ("yükselt") Sonra CreateObject ("Kabuk. Uygulama "). ShellExecute WScript. FullName _ ve WScript. ScriptFullName & / elevate "," "," runas ", 1 WScript. Çıkın. End If

Önce kullanıcıya hangi kullanıcı adını ve şifreyi kullanacağını sormak için iki giriş kutusu çalıştırın:

strUserName = Giriş Kutusu ("Varsayılan Kullanıcı Adını Girin", "Giriş Gerekli") strPassword = Giriş Kutusu ("Varsayılan Parolayı Girin", "Giriş Gerekli")

Ardından, kabuk nesnesini ayarlayın ve bu değerleri uygun kayıt defteri anahtarlarına yazın:

Set wshShell = CreateObject ("WScript. Kabuk ") WshShell. RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" WshShell. RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultPassword", strPassword, "REG_SZ" Set wshShell = Hiçbir şey

Ve hepsi bu kadar. “RegWrite” yöntemi, VB Windows komut dosyasını kullanarak herhangi bir kayıt defteri anahtarına herhangi bir değer yazmanıza olanak tanır. Bilmeniz gereken tek şey uygun yoldur.

Komut dosyasını çalıştırın ve komutları yanıtlayın.

Girdiğiniz değerler, komut dosyasında ayarladığınız kayıt defteri ayarlarına eklenecektir.

Senaryo ile oynayın ve beğeninize göre değiştirin. İstediğiniz kayıt defteri anahtarlarını düzenleyebilirsiniz, bu yüzden yaratıcı olun!

4. Ağ Bağlantınızı Sıfırlayın

VB komut dosyası kullanarak ağ bağlantınızı sıfırlama Ağ Ayarlarını Anında Değiştirmek İçin Windows Komut Dosyası Nasıl YazılırBirçok ofis veya çalışma ortamında, farklı ağlara bağlanmak için ağ ayarlarınızı yeniden tanımlamanız gerekebilir. Kendimi bu durumda yeterince sık buldum ve ... Daha fazla oku daha önce MakeUseOf'ta ele aldığımız bir şey. Bunun aşağıdaki sürümü aslında ölçeklendirilmiştir ve uygulanması çok daha basittir. Tek tek ağ kartlarını sormak yerine, tüm ağ bağlantılarınızı sıfırlar ve bu durum, karşılaşabileceğiniz ağ sorunlarını giderir.

Yönetici haklarına ihtiyaç duyan diğer komut dosyalarında olduğu gibi, yükseltilmiş ayrıcalıklar için bölümü başlangıçta eklemeniz gerekir. Bu kodu yukarıdaki koddan kopyalayın.

Ardından, WMI nesnesini oluşturun ve sisteminizde etkin ağ bağdaştırıcılarının listesi için sorgulayın:

strComputer = "." ObjWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") olarak ayarlayın ColItems = objWMIService öğesini ayarlayın. ExecQuery (_ "SELECT * FROM Win32_NetworkAdapter Nerede NetEnabled = 'True'")

Son olarak, tüm etkin bağdaştırıcıları gözden geçirin ve sıfırlayın:

ColItems objItem içindeki her nesne için. WScript'i devre dışı bırakın. 1000 objektif uyu. Etkinleştirme. Sonraki

Bu, tüm aktif ağ adaptörleri Windows'ta Kablosuz Ağları Yönetmek için 8 CMD KomutuKablosuz ağınızı kontrol etmek için Komut İstemi'ni kullanın. Ev ağınızda sorun gidermeye yönelik en kullanışlı komutlar şunlardır. Daha fazla oku sık sık ağ sorunlarını çözmenin en hızlı yoludur. Bu komut dosyasını el altında bulundurun ve yavaş bir ağınız veya diğer garip ağ sorunlarınız olduğunda her zaman deneyin.

5. Ping Aygıtları veya Web Siteleri

En sevdiğim VB windows betiğimi son olarak sakladım. Bu aslında ev bilgisayarımda zamanlanmış bir görev olarak ayarladığım ve günde sadece birkaç kez çalıştırmasını sağlayan web sitemin aktif olup olmadığını kontrol et En sevdiğiniz web sitesi kapalı olup olmadığını anlamak için 3 yoluOrada sadece temel soruyu cevaplamak için ayrılmış birkaç web sitesi vardır sonunda sorarsınız: "Bu web sitesi kapalı mı?" Burada, bu web sitelerinden üç tane var ve bunlar herşey... Daha fazla oku . Site çalışmıyorsa betiğin bana e-posta var. Ağınızdaki önemli sunucuları veya bilgisayarları izlemek için aynı komut dosyasını kullanabilir ve komut dosyanızın aygıta ping atamadığı zamanlarda kendinize e-posta gönderebilirsiniz.

İlk olarak, ping yapmak istediğiniz hedef için komut dosyasını ayarlayın, kabuk nesnesini oluşturun ve sonra ping komutunu çalıştırın.

strTarget = "topsecretwriters.com" WshShell = WScript'i ayarlayın. CreateObject ( "WScript. Kabuk") Ping = WshShell. Çalıştır ("ping -n 1" & strTarget, 0, Doğru)

Ping sonuçlarını çalıştırmak ve buna göre yanıt vermek için Select Case ifadesini kullanın. Sonuçlar sıfır olarak geri dönerse, sitenin (veya sunucunun) çevrimiçi olduğunu bilirsiniz ve hiçbir şey yapmanız gerekmez. “1” döndürürse, ping başarısız oldu ve bir şeyler yapmanız gerekiyor. Benim durumumda, Windows CDO nesnesini kullanarak bir e-posta gönderiyorum:

Vaka Ping'i Seç 0 Vaka 1 Set objMessage = CreateObject ("CDO.Message") Set objConfig = CreateObject ("CDO.Configuration") objConfig. Load -1 Set Flds = objConfig. Flds .Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Doğru .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Item (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]" .Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx" .Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com" .Item (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Update İle Bitiş objMessage Set ile .Configuration = objConfig .Subject = "Siteniz çevrimdışı". = "[email protected]" .To = "[email protected]" .TextBody = "Hey, web siteniz çevrimdışı." Son Gönder İle. Bitiş Seçimi

Komut dosyası çalıştıktan sonra aygıta veya web sitesine ping atma, anında mesaj alırsınız.

Hızlı ve kolaydır ve her verimlidir!

Bilgisayarınızı Denetlemek için VB Windows Komut Dosyalarını Kullanma

Bunlar, bilgisayar kullanımınızı kolaylaştırmak için VB komut dosyasıyla yapabileceğiniz bazı harika şeylere sadece birkaç örnektir. Hoşunuza gidebilecek diğer birçok şey var VB ve Synctoy ile otomatik yedekleme SyncToy ve VB Script ile Veri Yedekleme Aracı OluşturmaBurada MUO'da birçok yedekleme çözümünü ele aldık ve tüm bu çözümler harika, ancak ücretsiz 3. taraf yazılım paketleri veya şirketler hakkında ihtiyatlı bir ortamda çalışıyorsanız ... Daha fazla oku , telnet komutlarını otomatikleştirme VB Komut Dosyası Kullanarak Telnet Komutlarını OtomatikleştirmeToplu işler ve daha yakın zamanda Windows komut dosyaları yazmak, ağ ve sistem yöneticilerinin büyük çoğunluğunun işlerini nasıl daha hızlı gerçekleştirdiği ve istiyoruz ... Daha fazla oku , ya da uygulama pencerelerini aç ve denetle VB Komut Dosyası ile Uygulamaları ve Windows'u En Üst Düzeye Çıkarmanın 3 Yolu [Windows]Yapmayı sevdiğim bir şey varsa, VB komut dosyaları yazmaktır. İster bir Windows Script dosyası ister bir uygulamanın içindeki bir VBA komut dosyası olsun, komut dosyası oluşturma, uygulamalara işlevsellik ekleme olanağı sağlar ... Daha fazla oku .

Bilgisayarınızda bir Windows komut dosyasıyla otomatikleştirdiğiniz şeylerden bazıları nelerdir? Sizinkini VB kullanarak mı yazıyorsunuz, yoksa başka bir araç mı kullanıyorsunuz? PowerShell gibi Windows Yönetici Becerilerinizi Geliştirecek Powershell Cmdlet'leriPowershell eşit parça komut satırı aracı ve komut dosyası dilidir. Bilgisayarınızı yönetmek için kullandığınız komutlarla otomatikleştirmenizi sağlar. Daha fazla oku ?