WMI Repository Windows Xp de repair etme

Posted on 19/10/2012 by Tansu Ekinci

1) WMI Repository’i tekrar oluşturma
– net stop winmgmt
– C:\Windows\system32\wbem\repoistory folderını silin
– net start winmgmt

2) Wmi companentlerini tekrar register etmek
– cd /d %windir%\system32\wbem
– for %i in (*.dll) do RegSvr32 -s %i
– for %i in (*.exe) do %i /RegServer

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

Windows DNS Serverda MX Kaydı Oluştururken Dikkat!!!

Posted on 19/10/2012 by Tansu Ekinci

Arkadaşlar,

Windows DNS serverda MX kaydı oluşturma prosedürünü aşağıya yazıyorum :

  1. Bir adet Host A kaydı oluşturulur.
  2. Host A kaydı oluşturulurken MX kaydı için kullanılacak CNAME kullanılır.
  3. Yeni MX kaydı penceresine gelinir.
  4. “Host or Child Domain” (En üstteki kutucuk) kutusu boş bırakılır.
  5. Browse diyerek az önce oluşturmuş olduğunuz Hosta A kaydı seçilir ve “OK” denir.

Şimdi diyeceksinizki ne var bunda?

Yazımın saatine bakın ve saat 21:00 dan beri bunu çözmekle uğraşıyorum. Eğer MX kaydını oluştururken 4. maddede belirttiğim kutucuğa bir şey yazarsanız DNS inizden MX sorgusunun cevabını alamassınız. sonra DNS i kontrol eder durursunuz ama birşey göremezsiniz benim gibi :).

Geçmiş olsun bana 🙂 Uykumdan oldum gene 🙂

Kendinize iyi bakın…

İyi geceler…

Posted in Exchange Server 2003, Exchange Server 2007, Server 2003, Server 2008, Server Sistemleri, Teknik | Tagged , , , , , , , , , , , , , , , , | 1 Comment

Script Yardımı ile Active Directory Kullanarak Outlook a İmza Ekleme

Posted on 19/10/2012 by Tansu Ekinci

Bazı durumlarda şirket içerisinde herkese belirli formatta bir imza eklememiz gerekebilir. Bunu maalesef Excahnge Server üzerinden yapamıyoruz. Transport rule lar ile maillerin sonuna disclaimer eklenebiliyor ancak kullanıcıya özel bilgi ekleyemiyoruz.

Bunu yapmanın yolu VBscriptten geçiyor. Tabi bunuda kullanabilmeniz için Active Directory ortamında kişilerin bilgilerinin tam girilmiş olması gerekmekte.

Aşağıda ilgili kodu bulabilirsiniz ve kendinize göre düzenleyebilirsiniz.
Emeği geçen Bilgin Işık arkadaşıma da ayrıca teşekkür ederim..

 

On Error Resume Next
Set objSysInfo = CreateObject(“ADSystemInfo”)
strUser = objSysInfo.UserName 
Set objUser = GetObject(“LDAP://” & strUser) 
strName = objUser.FullName 
strTitle = objUser.Title 
strDepartment = objUser.Department 
strCompany = objUser.Company 
strPhone = objUser.telephoneNumber 
strStreet = objUser.streetAddress 
Set objWord = CreateObject(“Word.Application”) 
Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 
Set objEmailOptions = objWord.EmailOptions 
Set objSignatureObject=objEmailOptions.EmailSignature 
Set objSignatureEntries=objSignatureObject.EmailSignatureEntries 
Dim name,firstLetter,otherLetters,fname,sname 
name = strName 
arr = Split(name, ” “) 
firstLetter=UCase(Left(arr(0),1)) 
otherLetters=LCase(Right(arr(0),Len(arr(0))-1)) 
fname=firstLetter & otherLetters 
firstLetter=UCase(Left(arr(1),1)) 
otherLetters=LCase(Right(arr(1),Len(arr(1))-1)) 
sname=firstLetter & otherLetters 
name =fname & ” ” & sname 
With objSelection.ParagraphFormat 
.LeftIndent = CentimetersToPoints(0) 
.RightIndent = CentimetersToPoints(0) 
.SpaceBefore = 0 
.SpaceBeforeAuto = False 
.SpaceAfter = 0 
.SpaceAfterAuto = False 
.LineSpacingRule = wdLineSpaceMultiple 
.LineSpacing = LinesToPoints(1.15) 
.Alignment = wdAlignParagraphLeft 
.WidowControl = True 
.KeepWithNext = False 
.KeepTogether = False 
.PageBreakBefore = False 
.NoLineNumber = False 
.Hyphenation = True 
.FirstLineIndent = CentimetersToPoints(0) 
.OutlineLevel = wdOutlineLevelBodyText 
.CharacterUnitLeftIndent = 0 
.CharacterUnitRightIndent = 0 
.CharacterUnitFirstLineIndent = 0 
.LineUnitBefore = 0 
.LineUnitAfter = 0 
.MirrorIndents = False 
.TextboxTightWrap = wdTightNone
End With With objSelection 
.Font.Bold = True 
.TypeText name 
.TypeText vbCRLF 
.TypeText strTitle 
.TypeText vbCRLF 
.TypeText strDepartment & ” Department” 
.TypeText vbCRLF 
.TypeText vbCRLF 
.Font.Color = vbRed 
.TypeText strCompany 
.TypeText vbCRLF 
.Font.Bold = True 
.Font.Color = vbBlack 
.TypeText “Phone : ” 
.Font.Bold = False 
.TypeText strPhone 
.TypeText vbCRLF 
.Font.Bold = True 
.TypeText “Address : ” 
.Font.Bold = False 
.TypeText vbCRLF 
.TypeText strStreet 
End With 
Set objSelection = objDoc.Range()
IF(objSignatureEntries(“AD Signature”)) THEN
objSignatureEntries.Remove “AD Signature” END IF
objSignatureEntries.Add “AD Signature”, objSelection 
objSignatureObject.NewMessageSignature = “AD Signature” 
objSignatureObject.ReplyMessageSignature = “AD Signature” 
objDoc.Saved = True 
objWord.Quit
Posted in Exchange Server 2003, Exchange Server 2007, Server 2003, Server 2008, Server Sistemleri, Teknik | Tagged , , , , , , , , , , , | Leave a comment

Netsh Komutuyla DHCP Serverınızda Mevcut Clientlarınız için Reservasyon Yapmak

Posted on 19/10/2012 by Tansu Ekinci

Arkadaşlar,

Çalışan bir networkte DHCP ile iligili bir yapı değişikliğine gittiğimizi varsayalım.

Diyelimki tüm istemcileriniz DHCP den ip alıyorlar ve siz artık istemcilerin iplerinin değişmemesini istiyorsunuz. Ayrıca DHCP server’ın sizin istemcileriniz haricinde bir istemciye ip dağıtmasını istemiyorsunuz.

Bu durumda networkunuzde kac adet istemci varsa hepsinin mac adresini ve IP sini DHCP server üzerinde rezervasyon yapmak için tek tek girmeniz gerekecektir.

Eğer her istemcinin son aldığı IP yi almasının sizin için bir sakıncası yoksa bu işi dakikalar içerisinde halledebilirsiniz.

Oncelikle yapmanız gereken

netsh -c dhcp server scope 192.168.1.0 show clients

komutunu çalıştırmak. Bu komutun çıktısı aşşağıdaki gibi olacaktır.

Changed the current scope context to 192.168.1.0 scope.

Type : N – NONE, D – DHCP B – BOOTP, U – UNSPECIFIED, R – RESERVATION IP
======================================================
IP Address      – Subnet Mask    – Unique ID           – Lease Expires        -Type
======================================================

192.168.1.44       – 255.255.255.0  -0F-22-46-16-e2-8f   – NEVER EXPIRES        -D
192.168.1.46       – 255.255.255.0  -0F-0e-7b-86-ef-9e   – NEVER EXPIRES        -D
192.168.1.47       – 255.255.255.0  -0F-22-19-f4-a0-29   – NEVER EXPIRES        -D
192.168.1.48       – 255.255.255.0  -0F-0f-fe-57-e2-34   – NEVER EXPIRES        -D
192.168.1.49       – 255.255.255.0  -0F-23-5a-46-48-1a   – NEVER EXPIRES        -D
192.168.1.51       – 255.255.255.0  – 0F-80-88-03-f7-af   -09.03.2010 11:38:48    -D
192.168.1.52       – 255.255.255.0  – 0F-0b-cd-a5-e5-2e   -10.03.2010 13:08:19    -D
192.168.1.57       – 255.255.255.0  – 0F-22-46-16-e3-1c   -10.03.2010 09:18:29    -D
192.168.1.58       – 255.255.255.0  – 0F-12-3f-df-94-07   -10.03.2010 14:39:25    -D
192.168.1.67       – 255.255.255.0  -0F-11-11-2d-36-4b   – NEVER EXPIRES        -D

No of Clients(version 4): 56 in the Scope : 192.168.1.0.

Command completed successfully.

Alınan bu bilgiyi bir text dosyasına çıkartmak için ise;

netsh -c dhcp server scope 192.168.1.0 show clients >c:\DHCPLIST.txt

komutunu kullanabilirsiniz.

Aldığınız bu bilgiyi Excel de kolaylıkla aşağıdaki şekle çevirebilirsiniz.

netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.10 0f0d7b948f78

elde edeceğiniz tablo aşağıdaki gibi olacaktır;

netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.51 0F880803f7af
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.52 0F0bcda5e52e
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.57 0F336416e31c
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.58 0F123fdf9407
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.67 022222d364b
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.80 0F336416e28e
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.81 0F0ffe381e48
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.82 0F3364180b2d
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.83 0F215a76255d
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.84 0F0ffe379396
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.85 0F0ffe3795e3
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.86 0F336416e31d
netsh dhcp server \\server1 scope 192.168.1.0 add reservedip 192.168.1.89 0F22222d34d8

Bu tabloyu bir bat dosyası olarak kaydederek sunucu üzerinde çalıştırdığımızda rezervasyonların yapılmış olduğunu göreceksiniz.

İyi çalışmalar…

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