Script Yardımı İle User Bilgilerini Alarak Outlook ta Vcard Oluşturma

Outlook ta imza olarak ekte Vcard yollamak isteyen şirketler için vcf oluşturma scripti.

Bilgin Işık arkadaşıma katkılarından dolayı teşekkür ederim.

Set oOutlook = CreateObject(“Outlook.Application”)
Set oShell = CreateObject(“WScript.Shell”)

v = Split(oOutlook.Version, “.”)
outlook_Version = v(0) & “.” & v(1)
path = oShell.RegRead(“HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signature\”)
 
If Err.Number <> 0 Then
Err.Clear

oShell.RegWrite “HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\” & “”, “”
‘Else
‘MsgBox oShell.RegRead(“HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\”)
End If

oShell.RegWrite “HKCU\Software\Microsoft\Office\” & outlook_Version & “\Outlook\Signatures\” & SignName,  SignName & “_files\” & fileName

strHomeFolder = oShell.ExpandEnvironmentStrings(“%APPDATA%”)
strSignFolder = strHomeFolder & “\Microsoft\Signatures\” & SignName & “_files”

strFilename = strSignFolder & “\” & fileName

set oFS = CreateObject(“Scripting.FileSystemObject”)
set oFilevcf = oFS.CreateTextFile(strFilename & “.vcf”)

oFilevcf.Writeline “BEGIN:VCARD”
oFilevcf.Writeline “VERSION:2.1”
oFilevcf.Writeline “X-MS-SIGNATURE:YES”
oFilevcf.Writeline “N;LANGUAGE=tr;CHARSET=windows-1254:” & objUser.sn & “;” & objUser.firstname
oFilevcf.Writeline “FN:” & strName
oFilevcf.Writeline “ORG:” & objUser.company & “;” & objUser.department
oFilevcf.Writeline “TITLE:” & objUser.title
oFilevcf.Writeline “TEL;WORK;VOICE:+90 216 000 00 00 – ” & objUser.telephonenumber
oFilevcf.Writeline “TEL;WORK;FAX:+90 216 000 00 00”
oFilevcf.Writeline “ADR;WORK;PREF;CHARSET=windows-1254;ENCODING=QUOTED-PRINTABLE:;;Adres Satırı 1=0D=0A=”
oFilevcf.Writeline “Adres Staırı 2”
oFilevcf.Writeline “LABEL;WORK;PREF;CHARSET=windows-1254;ENCODING=QUOTED-PRINTABLE:Adres Satırı 1=0D=0A=”
oFilevcf.Writeline “Adres Satırı 2=0D=0A=”
oFilevcf.Writeline “Istanbul / TURKEY”
oFilevcf.Writeline “X-MS-OL-DEFAULT-POSTAL-ADDRESS:2”
oFilevcf.Writeline “URL;WORK:www.siteniz.com”
oFilevcf.Writeline “EMAIL;PREF;INTERNET:” & objUser.mail

oFilevcf.Writeline “END:VCARD”

Posted in Teknik | Tagged , , , , , , | Leave a comment

Powershell Yardımı ile Belirli Bir Tarihten Önceki ve Belirli Dosya İsimlerine Göre Dosya Silme

#scriptin çalışacağı klasör.
$TargetFolder = "<Dizin>"
#seçeceği dosya türü
$filetype= "*.jpg"
#dosya adında IMG geçiyorsa bu dosyayı silmemesi için birinci değişken. Eğer silmesini istiyorsanız aşağıdaki if döngüsünün içerisinde geçen notmatch parametresini match olarak değiştirmeniz gerekir.
$namefilter_1="IMG"
#dosya adında DSC geçiyorsa bu dosyayı silmemesi için ikinci değişken değişken. Eğer silmesini istiyorsanız aşağıdaki if döngüsünün içerisinde geçen notmatch parametresini match olarak değiştirmeniz gerekir.
$namefilter_2="DSC"
#60 günden önce işlem görmüş (modified) olmuş dosyalar
$file_age = "60"
foreach ($i in Get-ChildItem $TargetFolder -recurse -include $filetype)
{
if (($i.Lastwritetime -lt($(Get-Date).AddDays(-$file_age)))) -and ($i.name -notmatch $namefilter_1) -and ($i.name -notmatch $namefilter_2))
{

#Silmeden önce kontrol için hangi dosyaların silineceğini txt dosyasına yazar. kontrolden sonra alttaki satırı başındaki’#’ işaretini kadırıp bu satırı da başına ‘#’ işareti koyarak disable edetmeniz gerekmektedir.
echo $i.Name $i.LastWriteTime >>"c:\delete.txt"
# -whatif parametetresi işlem yapılmadan silinecek dosyaların listesini göstermeyi sağlar. silme işlemi yapmaz. Dosyaların silinmesi için ‘whatif’ paremetresini de kaldırmanız gerekir.
#Remove-Item $i -force -whatif
}
}

Günün sonunda Scriptimiz;

$TargetFolder = "<Dizin>"
$filetype= "*.jpg"
$namefilter_1="IMG"
$namefilter_2="DSC"
$file_age = "60"
foreach ($i in Get-ChildItem $TargetFolder -recurse -include $filetype)
{
if (($i.Lastwritetime -lt($(Get-Date).AddDays(-$file_age)))) -and ($i.name -notmatch $namefilter_1) -and ($i.name -notmatch $namefilter_2))
{
echo $i.Name $i.LastWriteTime >>"c:\delete.txt"
Remove-Item $i -force -whatif
}
}

Posted in Server 2003, Server 2008, Server Sistemleri, Teknik, Windows 7, Windows 8, Windows XP | Tagged , , , , , , , , , , , , , | Leave a comment

Exchange 2010 SP1 Mailbox Export İşlemleri

Exchange 2010 dan başka bir mail provider yada server a geçiş yapmanız gerekiyorsa veya bir sebepten dolayı tüm mailbox ların export unu almanız gerekiyorsa ne gibi durumlarla karşılaşacağınızı ve nasıl çözümler üretebileceğinizi kısaca özetlemek için bu yazıyı kaleme alıyorum..

Öncelikle bu link teki gerekli izinleri ayarlamanız gerekmektedir. Ardından gelelim Export işlemlerine;

Tüm Mailbox ları export etme işlemi için ufak bir Powershell scripti çalıştırmanız gerekmektedir. Bunu CAS serverda çalıştırıyoruz.

$mailboxes = get-mailbox
foreach ($mailbox in $mailboxes) {
new-mailboxexportrequest -mailbox $mailbox -FilePath \\<SERVERNAME>\PstFiles\$mailbox.pst }

Bu script i export.ps1 gibi bir isim ile kaydederek çalıştırıyoruz. Yaptığı iş kısaca tüm mailboxları export queue ya almaktır. Scriptin çalışması bittikten sonra queue daki exportları görmek için;

Get-MailboxExportRequest

komutunu çalıştırabilirsiniz.

Bunun ardından size gerekli olabilecek bazı komutlar ise;

  •  new-mailboxexportrequest -mailbox <mailboxname> -FilePath \\<SERVERNAME>\PstFiles\<pstname.pst > –> Tek bir kullanıcı için export alma işlemini queue ya ekler.
  • foreach ($i in (Import-Csv c:\<filename>.csv)) { New-MailboxExportRequest -Mailbox $i.Alias -FilePath “\\<Servername>\PstFiles\$($i.Alias).pst” } –>Csv dosyasında ki listede bulunan mailbox ların hepsini queue ya ekler. (Csv dosyasının ilk satırında sütun adını belirtmek için en üst satıra Alias yazmalıdır ve enter ile sıralanmış mailbox isimlerini içermelidir.)
  • New-MailboxExportRequest -Mailbox <mailboxname> -FilePath \\<Servername>\PstFiles\<Filename>.pst -ContentFilter {(Received -lt ’12/31/2012′) -and (Received -gt ’12/15/2012′)}  –> İlgili mailbox ta 2 tarih arasındaki mailleri export eder.
  • Get-MailboxExportRequest | where {$_.status -eq “Completed”} | Remove-MailboxExportRequest –>Bitmiş olan export işlemlerini queue listesinden siler.
  • Get-MailboxExportRequest | where {$_.status -eq “Failed”} | Remove-MailboxExportRequest-> Fail olan export işlemlerini queue listesinden siler.
  • Get-MailboxExportRequest | where {$_.status -eq “inprogress”} | Remove-MailboxExportRequest –> Aktif olarak çalışan export işlemini durdurur ve queue listesinden siler.
Posted in Exchange 2010 | Tagged , , , , , , | Leave a comment

Remote Desktop Portunun Değiştirilmesi…

1. Registry Editor açılır (start > run > regedit)
2. ޞuraya gidilir .
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber
3. Edit menüsünde, Modify kısmına tıklanır sonra Decimal seçilir ve istenilen port numarası yazılr.
Dikkat! Server üzerinde bulunan uygulamaların dışarıdan gelen bağlantıları kabul etmek için dinlediği portlardan birisi olmamalıdır. Örnek:IIS çalışan bir serverda 80 ve SSL kullanıyorsak 443 olmaz.
4. Server Restart edilir.
Bu uygulama Windows XP içinde geçerlidir.

Posted in Server 2003, Server 2008, Server Sistemleri, Teknik, Windows XP | Tagged , , , , , , , | Leave a comment