Vbs ( WSH ) ile smtp mail göndermek

Dim emailObj, emailConfig
'Değişkenlerimizi tanımlıyoruz

Set emailObj = CreateObject("CDO.Message")
'Email nesnemizi oluşturuyoruz.

emailObj.From = "ornek@live.com"
'Kimden Örn: ben@live.com

emailObj.To = "sana@live.com"
'Kime Örn: sana@live.com

emailObj.Subject  = "Siparişlerimiz"
'Mesaj konusu/başlığı/title

emailObj.TextBody = "Sayın yetkili 10 adet. Kırmızı kalem siparişimiz vardır."
'Mail/Mesaj içeriğimiz

emailObj.AddAttachment "C:\\OrnekKalem.jpg"
'Mailimize istediğimiz dosyayı ekliyoruz.

Windows Script Host ( WSH, Vbs) - Regex - Adodb.Stream kullanımına örnek bir uygulama

Dim http,url,pat,count,min,max
'Değişkenlerimizi tanımlıyoruz.

If WScript.Arguments.Count = 0 Then
'Eğer argüman sayısı 0 ise

 url = InputBox("Hedef Url:" & vbCrLf & Chr(214) & "rnek: https://www.youtube.com","Hedef Url Girin")
'input box çıkarıyor ve hedef urlmizi istiyor. başında http olmalı.
'vbCrLf bir alt satıra geç komutudur. \n veya <br /> ile aynı şeyi yapar.
'Chr(124) bildiğimiz Ö harfi için.

 If Len(url)=0 Then
'Eğer girilen url uzunluğu 0 ise

  WScript.Quit
'Scriptten çık

 End If

 pat = InputBox("RegExp Pattern:" &amp; vbCrLf)
'Regexp pattern giriniz örneğin <title>(.*) <\/title>
'burada bulunan sonucu .Submatches(0) ile alıyoruz.
'Eğer birden çok regex eşleştirmemiz varsa; Örneğin
'<a href="(.*)">(.*)</a><img src="(.*)" gibi
'Submatches(0 - 1 , 2 diye uzar gider
'NOT: vbs regexp kalıbı ECMA Standardındadır.