Sıkça sorulanlar

VBscript nasıl olusturulur?
VBScript için SMS handler ayarlama
VBScript için SMS kaynağı ayarlama
Veritabanı ile baglantı
Windows Scriptleme için Host referansı
VBScript Dil referansı

Script örnekleri

Komut satırından SMS gönderme
Dosyadan SMS gönderme

Handler için örnekler

Mesajları veritabanına kaydetme
Mesajları metin dosyasına kaydetme
Basit bir otoyanıt sistemi
Anahtar kelime tabanlı otoyanıt sistemi
E-mail adresine SMS gönderme

SMS kaynagi örnekleri

Veritabani tablolarından SMS gönderme
Metin dosyasından SMS gönderme
İşlemleri izleme
Host izleme (ping)

Sık sorulanlar

VBscript nasıl oluşturulur?

VBScript sıradan bir metin dosyasıdır. Yeni bir metin dosyası oluşturun ve bu sayfada belirtilen kodları içerisine kopyalayıp yapıştırın. Dosya uzantısını ise .vbs olarak değiştirin.

Windows 7'de dosya uzantılarını görmek için:
"Bilgisayar>Düzenle>Klasör ve arama seçenekleri>Görünüm>Bilinen dosya türleri için uzantıları gizle>" kutusundaki işareti temizleyip, "tamam" a tıklayın.

VBScript dosya yöneticisinden veya komut satırından cscript.exe (script adı) komutu ile çalıştırılabilir.

VBScript için SMS handler ayarlama

1. Sistem tepsisindeki Toplusmsgönder PRO ikonuna çift tıklayın ve Kontrol Panelini açın;
2. "Handlerlar"sekmesine tıklayın;
3. "Ekle" butonuna tıklayın;
4. Tip seçiminden "Command-line" seçin ve gelen mesajları alabilmek için olay olarak da "AL" seçeneğini işaretleyin. Handler için komutu ve bu komutun hangi dizinde çalıştığını seçin. Eğer bir VBScript ile yazılmış handler ayarlıyorsanız, komutunuz cscript.exe ile başlamalıdır;
5. Handler hatalarını görmek için,"Logdaki handler çıktısına bak" kutusunu işaretleyin;
6. "TAMAM"a tıklayın. Ayarlamış olduğunuz handler listede belirecektir.

VBScript için SMS kaynağı ayarlama

1. Sistem tepsisindeki Toplusmsgönder PRO ikonuna çift tıklayın ve Kontrol Panelini açın;
2. "Kaynaklar" sekmesine tıklayın;
3. "Ekle" butonuna tıklayın;
4. Tip olarak "Komut" seçin ve "Tamam"a tıklayın;
5. "Type of SMS source" bölümünden "Komut"u seçip Tamam"a tıklayın.Saniye cinsinden SMS kaynağınızın kontrol periyodunu ayarlayın. Eğer bir VBScript ile yazılmış handler ayarlıyorsanız, komutunuz cscript.exe ile başlamalıdır;
   
6. SMS kaynağı hataları için, "Logdaki handler çıktısına bak" kutusunu işaretleyin;
7. "TAMAM"a tıklayın. SMS kaynağınýz listede belirecektir.

Veritabanı ile bağlantı

VBScript ile veritabanı kullamak için, ADODB.Bağlantısı kullanmalısınız.

VBScript yazarken ADODB.Bağlantısı nasıl kullanılır?

Bazı veritabanı türlerinde; ek olarak veritabanı sürücüsü kurmanız gerekebilir (connector).

MySQL Connector indirmek için tıklayınız

Örnek 1: MS Access veritabanına yazma

sDB = "D:\db\veritabanim.mdb" Set objDB = CreateObject("ADODB.Connection") objDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDB objDB.Execute("INSERT INTO table VALUES(NOW(), 'alan1', 'alan2')")

Örnek 2: MySQL veritabanına yazma

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "gizli" Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString objDB.Execute("INSERT INTO table VALUES(NOW(), 'alan1', 'alan2')")

Örnek 3: MS SQL veritabanına yazma

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "gizli" Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={SQL Server}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PWD=" & sSqlPassword & ";" objDB.Open ConnString objDB.Execute("INSERT INTO table VALUES(NOW(), 'alan1', 'alan2')")

Script Örnekleri

Komut satırından SMS gönderme

Aşağıdaki script şu komutla çalıştırılır: cscript.exe script.vbs "(alıcı)" "(mesaj)"

sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objSMSDriver = CreateObject("toplusmsgonderGSM.SMSSurucu") Set objMsg = CreateObject("toplusmsgonderGSM.SMSMesaj") objMsg.To = sMsisdn objMsg.Body = sBody objSMSDriver.Connect() objMsg.Send()

Dosyadan SMS gönderme

Örnek 1: Tek mesaj, çoklu alıcılar

Dosyada aşağıdaki içerikler yer almalıdır::
(mesaj)
(alıcı 1)
(alıcı 2)
...

Aşağıdaki script şu komutla çalıştırılır: cscript.exe script.vbs "(file)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(DosyaAdi, OkumaIcin) Const ForReading = 1 Set objSMSDriver = CreateObject("toplusmsgonderGSM.SMSSurucu") objSMSDriver.Connect() sMsg = objFile.ReadLine Do Until objFile.AtEndOfStream sMsisdn = Trim(objFile.ReadLine) Set objMsg = CreateObject("toplusmsgonderGSM.SMSMesaj") objMsg.To = sMsisdn objMsg.Body = sMsg objMsg.Send() Loop objFile.Close

Örnek 2: çoklu mesaj ve çoklu alıcılar

Dosyada aşağıdaki içerikler yer almalıdır:
(alıcı 1) (mesaj 1)
(alıcı 2) (mesaj 2)
...

Aşağıdaki script şu komutla çalıştırılır: cscript.exe script.vbs "(file)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(DosyaAdi, OkumaIcin) Const ForReading = 1 Set objSMSDriver = CreateObject("toplusmsgonderGSM.SMSSurucu") objSMSDriver.Connect() Do Until objFile.AtEndOfStream sLine = objFile.ReadLine nSpace = InStr(sLine, " ") If nSpace > 0 Then sMsisdn = Left(sLine, nSpace - 1) sMsg = Trim(Right(sLine, Len(sLine) - nSpace)) Set objMsg = CreateObject("toplusmsgonderGSM.SMSMesaj") objMsg.To = sMsisdn objMsg.Body = sMsg objMsg.Send() End If Loop objFile.Close

Handler için Örnekler

Mesajları veritabanına kaydetme

Bu scriptler de mesajı MySQL veritabanına kaydeder. Tablo şu SQL sorgusu ile oluşturulur: CREATE TABLE inbox(date DATETIME, msisdn VARCHAR(255), sms VARCHAR(255)). Handler komutu: cscript.exe script.vbs "_FROM_" "_BODY_".

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "gizli" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) sConvBody = Replace(sBody, "'", "\'") Set objDB = DBConnect() objDB.Execute("INSERT INTO inbox VALUES(now(), '" & sMsisdn & "', '" & sConvBody & "')") 'This function sets up DB Connection Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function

Mesajları metin dosyasına kaydetme

Handler komutu: cscript handler_to_file.vbs _FROM_ "_BODY_" "C:\path\to\file.txt".

sMsisdn = WScript.Arguments(0) sMessage =WScript.Arguments(1) FileName = WScript.Arguments(2) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForAppending, True) Const ForAppending = 8 objFile.WriteLine(Date & " " & Time & " " & sMsisdn & " " & sMessage) objFile.Close

Basit bir otoyanıt sistemi

Handler komutu: cscript.exe script.vbs "_FROM_" "_BODY_"

sReply = "Mesajınız için teşekkürler!" sMsisdn = WScript.Arguments(0) 'sBody = WScript.Arguments(1) ' Yanıtlama dönüşü ' Mesaj alana kadar bağlıyız. Set objMsg = CreateObject("toplusmsgonderGSM.SMSMesaj") objMsg.To = sMsisdn objMsg.Body = sReply objMsg.Send()

Anahtar kelime tabanlı otoyanıt sistemi

Bu script MySQL tablosundaki anahtar kelimeleri arar. Tablo şu SQL sorgusu ile oluşturulur: CREATE TABLE keywords(keyword VARCHAR(255), reply VARCHAR(255)). Handler komutu: cscript.exe script.vbs "_FROM_" "_BODY_"

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "gizli" sDefaultReply = "Anahtar kelime bulunamadı!" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objDB = DBConnect() Set oRS = objDB.Execute("SELECT reply FROM keywords WHERE '" & sBody & "' like CONCAT('%', keyword, '%') LIMIT 1") 'WScript.echo(sBody) ' Executed once maximum Do While Not oRS.EOF sReply = oRS.Fields.Item("reply") oRS.MoveNext Loop If sReply = "" Then sReply = sDefaultReply End If 'WScript.echo(sReply) ' Return reply Set objSMSDriver = CreateObject("ToplusmsgonderGSM.SMSSurucu") Set objMsg = CreateObject("ToplusmsgonderGSM.SMSMesaj") objMsg.To = sMsisdn objMsg.Body = sReply objSMSDriver.Connect() objMsg.Send() 'Bu fonksiyon belirtilen DSN'i kullanılarak veritabanı bağlantısını ayarlar Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function

E-mail adresine SMS gönderme

Bu script hem Microsoft Outlook hem de Microsoft Outlook Collaboration Data Objects (CDO) gerektirmektedir. Handler komutu: cscript.exe script.vbs "_FROM_" "_BODY_"

sFrom = " <script language='JavaScript' type='text/javascript'> <!-- var prefix = 'ma' + 'il' + 'to'; var path = 'hr' + 'ef' + '='; var addy75912 = 'email' + '@'; addy75912 = addy75912 + 'adresiniz' + '.' + 'com'; document.write( '<a ' + path + '\'' + prefix + ':' + addy75912 + '\'>' ); document.write( addy75912 ); document.write( '<\/a>' ); //-->\n </script><script language='JavaScript' type='text/javascript'> <!-- document.write( '<span style=\'display: none;\'>' ); //--> </script>Bu mail adresi spam botlara karşı korumalıdır, görebilmek için Javascript açık olmalıdır <script language='JavaScript' type='text/javascript'> <!-- document.write( '</' ); document.write( 'span>' ); //--> </script>" sTo = " <script language='JavaScript' type='text/javascript'> <!-- var prefix = 'ma' + 'il' + 'to'; var path = 'hr' + 'ef' + '='; var addy87608 = 'alicinin' + '@'; addy87608 = addy87608 + 'emailadresi' + '.' + 'com'; document.write( '<a ' + path + '\'' + prefix + ':' + addy87608 + '\'>' ); document.write( addy87608 ); document.write( '<\/a>' ); //-->\n </script><script language='JavaScript' type='text/javascript'> <!-- document.write( '<span style=\'display: none;\'>' ); //--> </script>Bu mail adresi spam botlara karşı korumalıdır, görebilmek için Javascript açık olmalıdır <script language='JavaScript' type='text/javascript'> <!-- document.write( '</' ); document.write( 'span>' ); //--> </script>" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "SMS from " & sMsisdn objMessage.From = sFrom objMessage.To = sTo objMessage.TextBody = sBody objMessage.Send

SMS kaynağı örnekleri

Veritabanı tablolarından SMS gönderme

Giden smslerin yerleştirileceği tablonun adı outbox. Bu tabloda iki adet alan vardır: addr ve body (alıcı ve mesaj metni).

SMS kaynağı komutu: cscript.exe //Nologo script.vbs

sqlHost = "localhost" sqlBase = "test" sqlUser = "root" sqlPassword = "gizli" sqlGetQuery = "SELECT addr, body FROM outbox" sqlFlushQuery = "DELETE FROM outbox" 'Main Processing section 'Database connection & select all from Table Set objDB = DBConnect() objDB.Execute("LOCK TABLES outbox READ") Set oRS = objDB.Execute(sqlGetQuery) ' Our XML format WScript.Echo "<messages>" Do While Not oRS.EOF WScript.Echo " <message msisdn=""" & oRS.Fields.Item("addr") & """>" &_ oRS.Fields.Item("body") & "</message>" oRS.MoveNext Loop WScript.Echo "</messages>" objDB.Execute(sqlFlushQuery) objDB.Execute("UNLOCK TABLES") 'Procedures section 'This function sets up DB Connection using specified DSN Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sqlHost &_ "; DATABASE=" & sqlBase & "; UID=" & sqlUser &_ "; PASSWORD=" & sqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function

Metin dosyasından SMS gönderme

Dosyada aşağıdaki içerikler yer almalıdır:
(alıcı 1) (mesaj 1)
(alıcı 2) (mesaj 2)
...

SMS kaynağı komutu: cscript.exe //Nologo script.vbs "(file)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForReading) Const ForReading = 1 WScript.Echo "<messages>" Do Until objFile.AtEndOfStream sLine = objFile.ReadLine nSpace = InStr(sLine, " ") If nSpace > 0 Then sMsisdn = Left(sLine, nSpace - 1) sMsg = Trim(Right(sLine, Len(sLine) - nSpace)) WScript.Echo "<message msisdn=""" & sMsisdn & """>" & sMsg & "</message>" End If Loop WScript.Echo "</messages>" objFile.Close

İşlemleri izleme

Bu scriptler bilgisayarın hafızasındaki işlemlerin mevcut durumunu izler. Eğer herhangi bir işlem bulunamazsa, sistem yöneticisine SMS mesajı gönderilir. SMS kaynağı adı: Toplusmsgönder PRO (belirlenen sn. içinde). SMS kaynağı komutu: cscript.exe //Nologo script.vbs "(admin phone)" "(process.exe)".

' Buraya sunucu adını yazınız ServerName = "." AdminPhone = WScript.Arguments(0) ProcessName = WScript.Arguments(1) count=0 Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48) For Each objItem in colItems if LCase(objItem.Name) = LCase(ProcessName) then count=count+1 end if Next if count < 1 then ' Raise SMS alert! sMessage = "uyarı! İşlem çalışmıyor '" & ProcessName & "'" WScript.Echo "<messages>" WScript.Echo "<message msisdn=""" & AdminPhone & """>" & sMessage & "</message>" WScript.Echo "</messages>" end if

Host izleme (ping)

Bu script bir host'u pingler ve host yanıt vermeyi durdurmuşsa; admine mesaj atar.Toplusmsgönder PRO (belirlenen sn. içinde). SMS kaynağı komutu: cscript.exe //Nologo script.vbs "(phone)" "(host)" (Örnek, cscript.exe //Nologo script.vbs "18000000001" "www.toplusmsgonder.com").

sMsisdn = WScript.Arguments(0) strHost = WScript.Arguments(1) if Ping(strHost) = False then sMessage = "Host " & strHost & " could not be contacted" WScript.Echo "<messages>" WScript.Echo "<message msisdn=""" & sMsisdn & """>" & sMessage & "</message>" WScript.Echo "</messages>" end if Function Ping(strHost) dim objPing, objRetStatus set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") for each objRetStatus in objPing if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then Ping = False 'WScript.Echo "Status code is " & objRetStatus.StatusCode else Ping = True 'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize 'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime 'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive end if next End Function