Windows Scripting (WSF) sendiri adalah file yang mencakup kode dan disimpan sebagai .wsf. Windows akan mengkompilasi dan menjalankan file ini secara langsung.
Windows Scripting sebenarnya lebih kuat dari pekerjaan batch yang profesional TI sering ditulis dan berjalan selama bertahun-tahun. WSF memberikan pengguna kekuatan bahasa terstruktur seperti Visual Basic. Secara default, Anda dapat membuat VBScript atau file JScript pada Windows WSF dan berjalan dengan baik.
Pada artikel ini, kita akan memperkenalkan kepada Anda khas tiga alat yang digunakan orang di profesional lingkungan TI serta di rumah. Tiga alat meliputi: menerima input data dari file teks; ping berbagai perangkat pada jaringan Anda; dan mengirim email melalui skrip yang tersedia.
Kekuatan Windows Scripting
Dari komponen kecil naskah Anda adalah mungkin untuk menggabungkan mereka ke dalam sebuah file tunggal yang besar untuk melakukan tugas-tugas masing-masing secara umum hanya dalam satu klik mouse saja. Seperti setelah artikel ini, Anda dapat: mendapatkan daftar IP dari file text input, ping perangkat dan akhirnya mengirim email pemberitahuan dari perangkat apapun.
Untuk menerima dan membaca file masukan
Langkah pertama dari proses ini kita akan belajar bagaimana membaca dan masukan informasi proses dari file teks. Di sini kita membuat IPlist.ini bernama file (format .txt menjalankan normal, tetapi kami tidak yakin tentang insiden ini bisa terjadi) di direktori yang sama seperti script. Isi file ini berisi daftar semua alamat IP harus diperiksa. Untuk dapat membaca setiap baris file teks ini, kita menggunakan script berikut:
<job>
<script language="VBScript">
Option Explicit
On Error Resume Next
Dim strHost
Dim strCommand
Dim ReturnCode
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"
If oFSO.FileExists(sFile) Then
Set oFile = oFSO.OpenTextFile(sFile, 1)
Do While Not oFile.AtEndOfStream
sText = oFile.ReadLine
If Trim(sText) <> "" Then
strCommand = sText
wscript.echo "IP Address is: " & sText
End If
Loop
oFile.Close
Else
WScript.Echo "The file was not there."
End If
WScript.Quit
</script>
</job>
Kode ini menggunakan obyek dalam sistem file Windows untuk membuka file, kemudian membaca setiap baris terakhir.
Dalam kasus Anda salah menaruhkan path file Ip List.ini akan menampilkan hasil:
Ping Host
Setelah membaca alamat IP dari file yang masuk, sekarang kita lanjutkan menggunakan Windows Scripting Ping.
Proses ping tempat yang lebih kompleks daripada membaca file teks, karena Anda harus menggunakan Windows Management Instrumentation scripting ke (WMI). Anda memasukkan kode berikut:
<job>
<script language="VBScript">
Option Explicit
On Error Resume Next
Dim colPingResults, objPingResult, strQuery
Dim strIPtext
strIPtext = "192.168.1.105"
' WMI query
strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & strIPtext & "'"
Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery( strQuery )
' Translate query results
For Each objPingResult In colPingResults
If Not IsObject( objPingResult ) Then
Ping = False
wscript.echo strIPtext & " is not pingable"
ElseIf objPingResult.StatusCode = 0 Then
Ping = True
wscript.echo strIPtext & " is pingable"
Else
Ping = False
wscript.echo strIPtext & " is not pingable"
End If
Next
Set colPingResults = Nothing
WScript.Quit
</script>
</job>
Setelah menjalankan script di atas, jendela popup muncul untuk mengetahui bahwa hasil IP Ping atau tidak.
Dalam kode ini kami hanya Ping ke alamat IP tunggal, dan apakah yang perlu Anda lakukan adalah dip perintah Ping di setiap alamat IP yang akan dibaca dari file teks, sehingga Anda akan mendapatkan seluruh alamat Ping di daftar.
Kirim Email
Akhirnya, ketika Anda punya script untuk memeriksa alamat IP dan jendela pop-up akan muncul jika Anda menemukan kesalahan apapun. Tapi jika Anda harus menjalankan script ini setiap hari tidak akan menarik bagi sebagian besar pengguna. Sebaliknya, menetapkan insiden tersebut secara otomatis dikirim ke email.
Untuk melakukan ini, Anda perlu tahu cara mengirim email melalui script. Di Internet ada banyak cara yang mungkin, yang paling umum digunakan metode CDO.
<job>
<script language="VBScript">
Option Explicit
On Error Resume Next
Const fromEmail = "rdxxxx@gmail.com"
Const password = "xxxxxxxx"
Dim emailObj, emailConfig
Set emailObj = CreateObject("CDO.Message")
emailObj.From = alert@topsecretwriters.com
emailObj.To = "rdxxxxx@gmail.com"
emailObj.Subject = "Test Email"
emailObj.TextBody = "It Works!!"
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") = true
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromEmail
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
emailConfig.Fields.Update
emailObj.Send
Set emailobj = nothing
Set emailConfig = nothing
WScript.Quit
</script>
</job>
Script di atas memungkinkan Anda mengirim teks dalam (body) dari sebuah alamat email untuk semua orang untuk menggunakan layanan Gmail. Anda dapat memodifikasi parameter gunakan untuk surat server lain SMTP.
Sekarang Anda melanjutkan untuk bergabung bersama kode di atas. Hasilnya adalah bahwa script akan membaca alamat IP, ping ke setiap alamat dan kemudian mengirim string pesan dalam body untuk email:
Otomatisasi pekerjaan di bidang IT akan lebih mudah jika Anda tahu bagaimana memanfaatkan kekuatan Windows Scripting. Setiap kali script otomatis akan memeriksa untuk membantu Anda, terutama pada sistem dengan perangkat yang tak terhitung jumlahnya.
