netopenx otomatik kur güncelleme

Burada derleme ve bir yöntem olarak günlük netsiste otomatik güncellemeden bahsedece?im.
A?a?ydaki kodu vbs uzantysy ile bir dosyaya kaydedin.
Yani windows üstünde visual basic ile yazylmy? çaly?abilir bir script oluyor.
1-Bu dosya içinde netopenx ba?lantysy için netsis ?irket ady,kullanycy,?ifre giri?lerini kendinize göre de?i?tirmeniz gerekiyor
2- Ayryca smtp eposta parametrelerinide girmeniz gerekiyor
3- Sonrasynda windows zamanlanmy? görevlerden basit bir görev ekleyip güncelleme yapacak saati seçiyorsunuz. 64 bit sistemlerde çaly?tyrmayy windows\syswow64 klasöründeki wscript.exe dosyasyna parametre vererek yapmak gerekiyor. Görevi gizle ve yüksek öncelikli olarak
4- Bu uygulama netopenx dll oldu?u serverda çaly?tyrylmaly.

çaly?masy :
Netopenx ile kur güncelleme yapar ve belirledi?iniz epostalara eposta gönderir.
Eposta ayarlarynda smtp kullanycy ady ?ifresi girilmeli kullanylan portu do?ru ayarlanmaly.
Eposta gönderemezse script dosyasynyn çaly?ty?y dizine yada virtual klasöre kur_hata.txt adly dosya olu?turu ve içine hata zamany ve ne oldu?unu yazar buradanda takip edilebilir.
Detayly bilgi için bana ula?abilirmisiniz : zafercgezen@hotmail.com

----------VB script ba?langycy-----------
dim strSIRKET,strNUSER,strNSIFRE
dim resmsg,gondeposta,alicieposta,smtpuser,smtppass,smtpport
'#########NETOPENX PARAMETRELER #########
strSIRKET    = "ENTERPRISE7"   'netsis sirket adi
strNUSER    = "NETSIS"              'netsis kullanici adi   
strNSIFRE    = "net1"                 'netsis sifre
'#######################################
on error resume next
Set Kernel = createobject("netopenx50.kernel")
Set SirketSQL = Kernel.yeniSirket(0,strSIRKET,"TEMELSET","",strNUSER,strNSIFRE,"0")
Set Doviz  = Kernel.yeniDoviz(SirketSQL)
Doviz.DovizKurGuncelle(DATE)
Set Doviz  = Nothing
Set Sirket = Nothing
Set Kernel = Nothing

if Err <> 0 then
resmsg=Date&" gunu kur guncellemede sorun ya?andi,lutfen manuel olarak guncelleme yapiniz.  - hata mesaji: " & Err.Number & " - " & Err.Source & " - " &  Err.Description
Err.Clear
else
resmsg=Date&" gunu icin kur guncellemesi yapildi."
end if

'#########EPOSTA PARAMETRELERY #########
gondeposta="gonderen@deneme.com.tr"
alicieposta="deneme@deneme.com.tr"
smtpserver="mail.deneme.com.tr"
smtpuser="deneme@deneme.com.tr"
smtppass="denemekullanycyady"
smtpport=587 'server smtp portu
'#################################

set objMessage=CreateObject("CDO.Message")
objMessage.Subject="NETSIS GUNLUK KUR GUNCELLEME BILGISI"
objMessage.From=gondeposta
objMessage.To=alicieposta
objMessage.TextBody=resmsg
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/postusing")=2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=smtpserver
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=smtpport
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=5
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=0
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=smtpuser
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=smtppass
objMessage.Configuration.Fields.Update()
objMessage.Send()

if Err <> 0 then
Dim objFileSystem, objOutputFile
Dim strOutputFile
strOutputFile = "kur_hata.txt"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
objOutputFile.WriteLine("Kayit zamani : " & Now)
objOutputFile.WriteLine("Hata mesaji  : " & Err.Number & " - " & Err.Source & " - " &  Err.Description)
objOutputFile.Close
Set objFileSystem = Nothing
Err.Clear
end if
----------VB script sonu-----------




Düzenleyen Kaisiersose - 18 Aralık 2013 Saat 16:15