Windows Script ile Yapabileceğiniz 3 Harika Şey

İster bilişim alanında ister web tasarımcısı olarak, ister sadece öğrenci veya normal bir ofis çalışanı iseniz, Windows Scripting'in size sunacakları vardır. Tabii Applescript Mac'te Applescript Kullanıcı Arabirimi Komut Dosyası Nasıl Kullanılır Mac'te Applescript Kullanıcı Arabirimi Komut Dosyası Nasıl Kullanılır, ancak bu durumda benim odağım Windows'ta. Windows Komut Dosyası bölümüne bakınca, Windows'un derleyebildiği ve çalıştırabildiği, .wsf dosyası olarak kaydedilen kodla dolu metin dosyalarına atıfta bulunuyorum..

Neredeyse bir yıl önce, Windows Komut Dosyasından Toplu İşlemden Daha İyi Bir Giriş: Bir Windows Komut Dosyası Sunucusunda Bir Öğretici Toplu İşlemden Daha İyi Bir Windows Komut Dosyası Sunucusunda bir Öğretici: bir .wsf komut dosyasının eski stildeki toplu işlerden daha güçlü olabileceğini gösteren BT uzmanları yıllardır kod yazıyor ve çalışıyor. WSF, Visual Basic gibi yapılandırılmış bir dilin gücünü size verir. Varsayılan olarak, Windows'ta bir VBScript veya JScript WSF dosyası oluşturabilirsiniz;.

Bu tanıtım makalesinin ötesinde, bugün insanların hem profesyonel bir BT ortamında hem de evde kullandıkları üç tipik araç sunmak istedim. Bu üç araç, bir metin dosyasından girişleri okumak, ağınızdaki çeşitli aygıtlara ping atmak ve komut dosyasıyla e-posta göndermeyi içerir.

Windows Komut Dosyasının Gücü

Bu küçük bileşenlerin her birinin öğreneceği şey, onları daha büyük ve otomatik bir komut dosyasında birleştirmenize olanak sağlamaktır. Çok güzel bir otomatik betiğe koyabileceğiniz küçük betiği örneklerinden geçeceğim. Bu komut dosyasının yapacağı şey, bir metin dosyasından giriş IP listesini almak, bu aygıtların her birine ping atmak ve bu aygıtlardan herhangi birinin kapalı olması durumunda bir uyarı e-postası göndermektir..

Giriş Dosyalarını Okuma

Bu süreçte ilk adım, bir giriş metin dosyasındaki bilgilerin nasıl okunacağını ve işleneceğini öğrenmektir. Bu durumda, adlı bir metin dosyası oluşturdum IPlist.ini komut dosyasıyla aynı dizinde bulunur. Bu dosya kontrol etmek istediğim IP adreslerinin bir listesini içeriyor. Aşağıdaki komut dosyasını kullanarak bir metin dosyasının her satırında okuyabilirsiniz..

  Seçenek Açık Açık Hatası Devam Et Devam

Dim strHost Dim strCommand Dim DönüşKodu Dim strLine Dim oFSO, sFile, oFile, sText

Set Shell = wscript.createObject ("wscript.shell") Set oFSO = CreateObject ("Scripting.FileSystemObject") sFile = "c: \ users \ owner \ scripts \ IPlist.ini" ifadesini ayarlayın, eğer oFSO.FileExists (sFile) Sonra oFile öğesini ayarlayın = oFSO.OpenTextFile (sFile, 1) oFile.AtEndOfStream Olmazsa Yapın sText = oFile.ReadLine Trim (sText) Olursa - Sonra strCommand = sText wscript.echo "IP Adresi::"

Else WScript.Echo "Dosya orada değildi." WScript.Quit If Bitir  

Bu kodun amacı, bir dosyayı açmak için Windows dosya sistemi nesnesini kullanmaktır ve ardından dosyanın sonuna ulaşana kadar bir seferde bir satır metin okur..

Bir Ana Bilgisayara Ping Atmak

Artık her IP adresini metin dosyasından nasıl okuyacağınızı bildiğinize göre, Windows Komut Dosyası ile birlikte bir Ping işlemi yapmaya ne dersiniz??

Ping, bir metin dosyasında okumaktan biraz daha karmaşıktır, çünkü Windows Yönetim Araçları komut dosyasını (WMI) kullanmanız gerekir. İşte göründüğü gibi.

  Seçenek Açık Açık Hatası Devam Et Devam

Dim colPingResults, objPingResult, strQuery Dim strIPtext strIPtext = "192.168.1.105"

'WMI sorgusu strQuery = "SELECT * FROM_PREStatus'DAN WHERE Address ='" & strIPtext & "'"

Set colPingResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

'Sorgu sonuçlarını çevir

Her objPingResult için colPingResults'da IsObject Olmazsa (objPingResult) Sonra Ping = False wscript.echo strIPtext & "pingable olmaz" echo strIPtext & "pingable değildir" Sonrasında Sona Erir Sonunda colPingResults = Hiçbir şey WScript.Quit  

Bunun ne kadar kolay olduğunu gördün mü? Çalıştırdığımda, IP'nin pingable olup olmadığına dair bir pop-up sağlıyor.

Bu komut dosyasında, yalnızca tek bir IP adresi yazdım, ancak tek yapmanız gereken, her IP adresi metin dosyasından okunduktan sonra önceki betiğe ping atmak ve listenizdeki her IP adresini pingleyebilirsiniz..

Bir e-posta göndermek

Son olarak, IP adreslerini kontrol edecek ve herhangi bir hata olması durumunda bir pencere açacak bir komut dosyasını çalıştırmak güzel olsa da, komut dosyasını günlük olarak çalıştırmak ya da günde birden çok kez çalıştırmak güzel olmaz mıydı? otomatik olarak sorunlu e-postalar?

Bunu yapmak için, komut dosyasında nasıl bir e-posta göndereceğinizi bilmeniz gerekir. Çevrimiçi araştırıyorsanız, insanların bunu başarmasının düzinelerce (veya daha fazla) yolunu keşfedeceksiniz. Şimdiye kadar en popüler olanı CDO yaklaşımını kullanmak..

  Seçenek Açık Açık Hatası Devam Et Devam

Const from Email = "[email protected]" Const şifre = "xxxxxxxx"

Dim emailObj, emailConfig Set emailObj = CreateObject ("CDO.Message") emailObj.From = [email protected] emailObj.To = "[email protected]" emailObj.Subject = "Test E-postası" emailObj.TextBody = "Çalışıyor !!"

Set emailConfig = emailObj.Configuration emailConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" emailConfig.Fields ("http://schemas.microsoft.com / cdo / configuration / smtpserverport ") = 465 emailConfig.Fields (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 emailConfig.Fields (" http://schemas.microsoft.com/cdo / configuration / smtpauthenticate ") = 1 emailConfig.Fields (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = gerçek emailConfig.Fields (" http://schemas.microsoft.com/cdo/configuration) / sendusername ") = from e-posta emailConfig.Fields (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") = şifre emailConfig.Fields.Update emailObj.Send Set emailobj = hiçbir şey Set emailConfig = hiçbir şey WScript.Quit

Yukarıdaki komut dosyası, Gmail kimlik bilgilerinizi kullanarak herhangi bir adrese bir e-posta olarak ileti gövdesi için herhangi bir metin göndermenize olanak sağlar. İstediğiniz diğer SMTP posta sunucusunu kullanmak için parametreleri değiştirebilirsiniz.

Şimdi tek yapmanız gereken bu üç kodu bir araya getirmek. Bunu yaptığınızda, komut dosyası IP adreslerinin her bir listesini okuyacak, her birine ping atacak ve daha sonra bu dizeyi bir bildirim e-postasına ileti gövdesi olarak gönderecektir. İşte bu e-postanın nasıl görüneceği.

Tahmin edebileceğiniz gibi, bu, dünyayı takip etmek için sınırsız bir cihaz ve sunucu listesine sahip olduğunuz ve günde sadece 24 saat olan BT dünyasında oldukça kullanışlı bir hale geliyor. Her şeyi sizin için kontrol edebilecek otomatik komut dosyaları olabilir, her zaman.

Bu Windows Komut Dosyaları'nı deneyin ve çalışmanızı optimize etmenize ve işleri daha verimli hale getirmenize yardımcı olup olmadığını görün. Windows Scripting ile yapabileceğiniz başka güzel şeyler biliyor musunuz? Aşağıdaki yorum bölümünde düşüncelerinizi paylaşın.

Resim kredisi: Mario Alberto Magallanes Trejo