Exchange 2010 yapısına geçirdiğimiz bir müşterimizden şöyle bir talep geldi.

Yapıda varolan tüm Mailbox veritabanlarındaki varolan mailboxların totalitemsize,kota,varolan sizeları gibi bilgileri belirli periyodlarla edinebilirmiyim?

Burada tabiki powershell komutlarını kullanarak bazı taklalar atmamız mümkün.Hatta artık Exchange 2010 ile ilgili gelen taleplerin neredeyse tamamına aklımda powershell komutları olduğu müddetçe “œmümkündür” cevabını veriyorum.

Burada yapmamız gereken Get-MailboxStatistics cmdlet ini kullanmak.Bu komut ile belirli mailboxlar için belirli değerleri çekebiliyoruz.

Burada gördüğünüz gibi bizden hangi mailbox için bu istatistikleri çekmemiz gerektiğini soruyor.Benim amacım varolan tüm veritabanları yada belirli veritabanları içerisindeki tüm mailboxlar.Bu sebeple aşağıdaki gibi komutu genişletebilirim.

Aynı zamanda burada get-mailboxdatabase ““identity “œMailboxdb” | get-mailboxstatistics komutu ile spesifik bir veritabanı üzerinden de bilgi çekebilirsiniz.

Ardından bu çıktıları itemsize’ına göre sıralamak için komutu aşağıdaki haline getirelim.

Get-MailboxDatabase "MailboxDB1" | Get-MailboxStatistics | Sort totalitemsize ““desc

Bizden istenen bu verilerin bir excel tablosu halinde çıktısı.Bunun için hemen çok güzel çalışan Export-CSV parametremi kullanıyorum.

Get-MailboxDatabase "MailboxDB1" | Get-MailboxStatistics | Sort totalitemsize ““desc | Export-CSV c:\MailboxDB1Sizes.csv

Yukarıdaki komut tüm çıktıları csv dosyasına yazacaktır.

Ve powershell’in son güzelliğinden faydalanarak varolan bu çıktıyı attachment olarak mail ile istediğim kullanıcılara göndermek.Buda oldukça basit.

Get-MailboxDatabase "MailboxDB1" | Get-MailboxStatistics | Sort totalitemsize -desc | Export-CSV c:\MailboxDB1Sizes.csv | Send-MailMessage ““To musteri@domain.com ““From powershell@domain.com -Subject "MailboxDB1 icin aylik size degerleri" -SmtpServer exchserver -Attachments c:\MailboxDB1Sizes.csv

Oldukça kullanışlı bir komut değilmi?

Bu işlemden sonra yukarıdaki komutu ps1 uzantısı ile kaydedip schedule tasktan aylık çalıştırılacak şekilde ayarladığınız takdirde kullanıcıya bu mailbox server içerisindeki tüm mailboxlar ile ilgili aylık csv dosyası mail ile otomatik gönderilecektir.

Server 2008 üzerinde uptime değerini alabilmek için aslında birçok şansımız var.Bu yazıda kısaca bunlardan bahsedelim.

1)Task Manager

Aslında  en kolay yöntem bu sanırım.Server 2008 üzerinde task manager ekranında bizi “uptime” adında bir değer karşılıyor.Aşağıdaki resimde göreceğiniz üzere sunucunun uptime süresini öğrenebilirsiniz.

2)Systeminfo komutu

Server 2008 altında systeminfo komutunu aşağıdaki parametre ile kullanırsanız size sunucunun açıldığı zamanı verecektir.

3)Eventviewer

Eventviewer altında 6005 nolu event sunucunun boot işlemini bitirdiğini bize bildirir.Aşağıdaki resimde benim sunucum üzerindeki bir örneğini görebilirsiniz.

İsterseniz filtreleme sayesinde sadece id 6005 olanları listeyerek boot süresini öğrenebilirsiniz.

4)Uptime.exe

Microsoft’un uptime.exe adında ufak bir komut satırı aracı var. http://support.microsoft.com/kb/232243  adresinden indirebilirsiniz.İndirdiğiniz bu aracı Windows Server 2008 sunucunuz üzerinde system32 altına kopyalayıp komutu çalıştırdığımızda aşağıdaki gibi bir çıktı verecektir.

5)Scriptler

Microsoft’un scripting guy üzerindeki scriptlerini araştırdığınızda karşınıza powershell ve vbs ile hazırlanmış uptime süresini veren hazır scriptleri bulabilirsiniz.Hatta iki tane hazır scriptin adresini verelim.

http://technet.microsoft.com/en-us/magazine/2008.12.heyscriptingguy.aspx?pr=blog

http://www.microsoft.com/technet/scriptcenter/resources/qanda/aug05/hey0802.mspx

Birisi powershell birisi vbs ile hazırlanmış scriptleri kullanarakda uptime değerine ulaşabilirsiniz.

ISA Server 2006 varsayılan olarak log dosyalarını MSDE veritabanında saklar.Ve yine varsayılan konfigurasyonda bu logların dizini ISA Server kurulum dizini altındaki ISALogs klasörüdür.Bu klasörün içeriğini incelediğinizde .mdf uzantılı dosyaları görebilirsiniz.Bu logları text tabanlı görüntülemek için Microsoft’un güzel bir scripti bulunuyor.Buradaki adresten indirebileceğiniz MSDEtoText.vbs scriptini aşağıdaki parametreler ile kullandığınızda belirttiğiniz dizine txt formatı ile yine belirttiğiniz log database’ini export edebilirsiniz.

Scripti kullanmak için scripti yüklediğiniz dizine komut satırından inerek ;

MSDEToText.vbs ISALOG_20090315_FWS_000 FireWallLog c:\loglarım.txt

parametreleri ile kullanabilirsiniz.Bu takdirde ISALOG_20090315_FWS_000 isimli veritabanı c:\loglarım.txt dosyası içerisine export edilecektir.Aynı şekilde FirewallLog parametresi yerine WebProxyLog parametresini kullanarak bu loglarıda export edebilirsiniz.

Küçük ama kullanışlı bir script.

Powershell’i kurdunuz yada exchange 2007 için exchange management shell üzerinde varolan bir .ps1 dosyasını çalıştırdığımızda;

File cannot be loaded because the execution of scripts is disabled on this system error in PowerShell

hatası alabiliriz.Bunun sebebi aslında defaultta gelen güvenlik ayarları.Varolan güvenlik ayarları scriptin çalıştırılmasına izin vermiyor demektir.Yani teknik olarak Execution Policy durumu.Temelde varolan execution policyler aşağıdaki gibidir.

Restricted: Varsayılan ayar budur.Bazı özel komutlar çalışırken powershell scriptleri çalışmaz.
AllSigned: Scriptler çalışabilir fakat local bilgisayar üzerinde digital bir imzaya sahip olması lazım .Scriptleri çalıştırmadan önce uyarı verir.
RemoteSigned: Digital imzalara gerek yoktur.Fakat internet üzerinden yada mail ile yüklenen scriptlet için imzaya gerek vardır.
Unrestricted: Her script çalıştırılır.Dışarıdan yüklenen scriptler ise uyarı verir.

O zaman bireysel bilgisayarınızda çalışıyorsanız yani kurumsal bir ortamda değilseniz geçici olarak scripti çalıştırabilmek için policy settingsi unrestricted’a çekebiliriz.Bunun için yapmamız gereken;

Set-ExecutionPolicy Unrestricted

Aynı şekilde diğer policyleride bu komuttaki gibi koşturabiliriz.

Aşamaları takip etmeniz zor.Verdiği hataları yada eksik önyüklemeleri seçmeniz uğraştırıyor.Ama yinede bilmenizde fayda var.Sunucu üzerine exchange 2007 kurulumunu komut satırından yada powershell içerisinden gerçekleştirebilirsiniz.Aşina olduğumuz komut satırından gerçekleştirmek için Exchange 2007 dvd dizinine inerek;

Setup.Com “/r:M,HT,C” “/on:Messaging” komutunu koşturun.

Aynı işlemi powershell üzerinde gerçekleştirmek içinde;

./Setup.Com “/r:M,HT,C” “/on:Messaging” komutu işinizi görücektir.

Fakat gerçekten verdiği hataları gözlemlemek,yükleme ayrıntılarını gözlemlemek için GUI aracılığı ile yükleme yapmanız daha yararlı olucaktır.Bu komut aklımızın bir köşesinde kalsın.

Bu arada unutmadan r: parametresi bize rolleri belirtiyor.

M:Mailbox HT:Hub transport C:client access rolleri

On: parametreside kuracağımız exchange organizasyonunun ismi…

Bildiğimiz gibi artık powershell ile sunucularımızı ve işlerimizi yönetebiliyoruz.Powershell’in bir diğer marifetide Net.Mail.SmtpClient objesini kullanarak mail gönderebilmesi.Aşağıdaki kodları kullanarak isterseniz bir.ps1 oluşturabilir ve bunu schedule ile istediğiniz zamanlarda çalıştırabilirsiniz.Powershell’de mail gönderimi için

$emailFrom = “user@yourdomain.com”
$emailTo = “user@yourdomain.com”
$subject = “your subject”
$body = “your body”
$smtpServer = “your smtp server”
$smtp = new-object Net.Mail.SmtpClient($smtpServer)
$smtp.Send($emailFrom, $emailTo, $subject, $body)

Marc Nivens’ın yazdığı aşağıdaki örnek script ile ,yapımızdaki Lotus Notes kullanıcılarını Exchange 2007′ye migrate edebiliriz.Bunun için tek yapmamız gereken kullanıcıları aşağıdaki formatla bir txt dosyasına kaydetmek:

Anil Erduran/DOMINO
Osman Yagmurdereli/DOMINO
Hülya Avsar/DOMINO

Ardından aşağıdaki scripti çalıştırarak migrate işlemine başlayabiliriz.

$TargetDatabase = “EXCHANGE\First Storage Group\Mailbox Store”
$SourceFile = “c:\dominousers.txt”
$a = remove-item c:\miglog.txt -ea SilentlyContinue
$error.Clear()
$UserList = Get-Content $SourceFile
foreach($user in $UserList)
{
$message = “Migrating User ” + $user
write-output $message | out-file -filePath “c:\miglog.txt” -append -noClobber
move-dominomailbox $user -TargetMailboxDatabase $TargetDatabase
if($error.Count -ne 0)
{
$message = “User ” + $user + ” failed migration”
write-output $message | out-file -filePath “c:\miglog.txt” -append -noClobber
$message = “Error: ” + $error[0].ToString()
write-output $message | out-file -filePath “c:\miglog.txt” -append -noClobber
$error.Clear()
}
}

c:\dominousers.txt dizinindeki dosyada kullanıcıları kaydettiğimiz txt dosyası bulunuyor.Ayrıca migrate işlemi sırasında meydana gelen hatalar c:\miglog.txt dosyasına yazılıyor.
Buradaki değerleri değiştirerek yada eklemeler yaparak daha spesifik migrate çözümleri üretebiliriz.

Komut isteminde AT komutu ile zamanlanmış görevler oluşturabiliriz.Örneğin:

AT \\bilgisayarismi 02:00 /Interactive /every:pazartesi CHKDSK C:

komutunu yazdığımızda yada batch dosyası olarak kaydedip çalıştırdığımızda chkdsk aracı her pazartesi saat 02:00′da çalışacak vaziyette zamanlanmış olur.
Aynı zamanda bu disk kontrol işlemi sırasında log tutulmasını sağlayabiliriz.Bunun için ayrı bir .bat dosyası hazırlamamız gerekiyor.AT komutunu aşağıdaki gibi kullanalım:

AT \\bilgisayarismi 02:00 /Interactive /every:Friday loglama.BAT

Bu zamanlanmış görev loglama.bat dosyasını çağıracaktır.Bunun için birde loglama.bat isminde dosya oluşturacağız.Chkdsk işlemini loglara dökmek oldukça basit.> işareti komuttan sonra konulduğunda o komutun bilgilerini export etmeye yarar.Bunun için aşağıdaki komutu kullanacağız:

CHKDSK > DURUM.LOG
Bu durumda ilk batch dosyamız ikincisini belirlenen zaman aralıklarında çağıracak.Ardından ikinci dosyada işlemini yapıp,kontrolden sonra log dosyasını oluşturucak.
Burada dikkat etmemiz gereken başka bir konu daha var.Biz bir görev oluşturduk.Yani her pazartesi saat 2′de bu komut çalışacak ve loglama işlemini yapıcak.Bu log dosyalarının isimlerini benzersiz yapmamız gerekli ki,hangi hafta hangi loglama yapılmış kolayca ayırt edebilelim.Bunun için değişkenleri kullanacağız.

for /F “tokens=2,3,4 delims=/ ” %%i in (‘date /t’) do set datefile=%%i%%j%%k.log
Chkdsk > %datefile%

Buradaki komutla birlikte .log dosyasının ismini sistem tarihine göre ayarlamasını sağladık.Chkdsk komutuda log dosyasını bu değişkene göre oluşturacak

on error resume next

CONST QUOTA_EXEMPTION = 500000 “˜* > mDBOverHardQuotaLimit is exempted to use default quota
CONST EXEMPTED_WORD = “œexempted”

Const ADS_SCOPE_SUBTREE = 2
Const ADS_CHASE_REFERRALS_EXTERNAL = &h40
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
Const ADS_UF_PASSWD_CANT_CHANGE = &h00040
Const ADS_UF_PASSWORD_EXPIRED = &H80000
Const ADS_UF_LOCKOUT = &h00010

Set rootDSE = GetObject(“LDAP://RootDSE”)
sObjectDN = “œLDAP://” & rootDSE.Get(“defaultNamingContext”)
Set rootDSE = Nothing
Set oIADs = GetObject(sObjectDN)
set con=createobject(“ADODB.Connection”)
set com =createobject(“ADODB.Command”)
Set WshShell = Wscript.CreateObject(“Wscript.Shell”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)

con.Provider = “œADsDSOObject”
con.Open “œActive Directory Provider”

Set Com.ActiveConnection = con

sMsg = “œselect AdsPath,CN,Name,samAccountName from “˜” & oIADs.ADsPath
sMsg = sMsg & “œ”˜ where objectCategory=’user’ order by Name”

Com.CommandText = sMsg
Com.Properties(“searchscope”) = ADS_SCOPE_SUBTREE
Com.Properties(“Chase referrals”) = ADS_CHASE_REFERRALS_EXTERNAL
Com.Properties(“Cache Results”) = False

Set rs = Com.Execute
i = 0

While Not rs.EOF
“˜ wscript.echo rs.Fields(“fieldname”)
DoWorkOnUser rs.Fields(“AdsPath”)
i = i + 1
rs.MoveNext
Wend

rs.Close

Sub DoWorkOnUser(strUser)

Set objUser = GetObject(strUser)
Err.Clear

If len(objUser.DisplayName)=0 Then
wscript.echo objUser.Name & “ – No Access !!!!!!!!!!”
Else
if objUser.MDBUseDefaults = “œFalse” then
Wscript.echo “œ””-”
Wscript.echo “œDisplayName – “ & objUser.DisplayName
Wscript.echo “œmDBOverHardQuotaLimit – “ & objUser.mDBOverHardQuotaLimit
Wscript.echo “œmDBOverQuotaLimit – “ & objUser.mDBOverQuotaLimit
Wscript.echo “œmDBStorageQuota – “ & objUser.mDBStorageQuota
Wscript.echo “œmDBUseDefaults – “ & objUser.mDBUseDefaults
lsResult = objUser.mDBUseDefaults
If objUser.mDBOverHardQuotaLimit >= QUOTA_EXEMPTION Then
Wscript.echo “œEXEMPTED: “ & objUser.mDBOverHardQuotaLimit & “ is over default quota “ & QUOTA_EXEMPTION & “œ.”
lsResult = lsResult & EXEMPTED_WORD
End If
“˜SET THE QUOTAS TO DEFAULT!
SetMbxQuotas strUser
Wscript.echo “œ””-”
end if
End If
Set objUser = nothing
“˜ RetrieveUserSettings = lsResult

End sub

“˜* “”””””””””””””””””””””””””””””””””””
“˜* Function: Set User Settings
“˜* “”””””””””””””””””””””””””””””””””””
Sub SetMbxQuotas (strUser)

wscript.echo “œSetting mDBUseDefaults to True.”
Set SetUser = GetObject(strUser)
SetUser.Put “œmDBUseDefaults”, True
SetUser.Put “œmDBOverHardQuotaLimit”, 0
SetUser.Put “œmDBOverQuotaLimit”, 0
SetUser.Put “œmDBStorageQuota”, 0
SetUser.SetInfo
If err.number > 0 Then
wscript.echo “œError setting account attribute: “ & lsAttribute
err.Clear
on error goto 0
Else
wscript.echo “œSet to True successfully.”
End If
Set SetUser = nothing

End Sub

wscript.quit

Active Directory üzerindeki tüm kullanıcıları bir excel dosyasına export etmek için aşağıdaki scripti kullanabiliriz.
Eğer Office sürümü ingilizce ise script içindeki “sayfa1″ değerini “sheet1″ olarak değiştirmeliyiz.

http://anilerduran.com/ad-export.vbs

Networkümüzde bulunan istemci makinalara hangi tarihte kim saat kaçta oturum açmış yada kapamış gibi bilgilere erişmek için ufak bir script kullanabiliriz.

echo Oturum Açma %username% %computername% %date% %time% >> \\192.168.x.x\sysvol\OTURUM_ACMA_KAYITLARI\%username%.txt

Bu komut ile oturum açan kullanıcılar belirttiğimiz ip adresindeki OTURUM_ACMA_KAYITLARI klasörü altına kullanıcı isimleri kullanılarak loglanacaktır.

echo Oturum Kapama %username% %computername% %date% %time% >> \\192.168.x.x\sysvol\OTURUM_KAPAMA_KAYITLARI\%username%.txt

Burada ise aynı işlemi oturum kapama için kullanıyoruz.Sondaki .txt uzantısını .cvs yaparak excel ile daha ayrıntılı bir tablo elde edebiliriz.

Scriptleri hazırladıktan sonra yapmamız gerekn GPO ile logon ve logoff script olarak tüm organizasyona bunu atamak.Aşağıda anlatımı mevcut..

http://www.anilerduran.com/index.php/logon-scripts/

strComputer = “œ.”
intMailboxSize = 2048 ’size in KB, all recipient who exceeds this amount will be displayed

Set objWMIService = GetObject(“winmgmts:” & “œ{impersonationLevel=impersonate}!\\” & strComputer & _
“œ\ROOT\MicrosoftExchangeV2″³)

Set colItems = objWMIService.ExecQuery(“Select * from Exchange_Mailbox where size > “ & intMailboxSize)
if colItems.count = 0 then “˜no recipients were found
wscript.echo “œNo items were found”
wscript.quit
end if

mbs_len = len(“MAILBOX SIZE(KB)”)
mbdn_len = len(“MAILBOX DISPLAY NAME”)
wscript.echo “œMAILBOX DISPLAY NAME” & space(30 – mbdn_len) & “œMAILBOX SIZE(KB)”

For Each objItem in colItems
if len(objItem.MailboxDisplayName) > 30 then
padding = 0
Wscript.stdOut.write left(objItem.MailboxDisplayName,27) & “œ”¦” & space(padding)
else
padding = 30 – len(objItem.MailboxDisplayName)
Wscript.stdOut.write objItem.MailboxDisplayName & space(padding)
end if
Wscript.stdOut.write space(mbs_len – len(cstr(objItem.Size))) & objItem.Size
wscript.echo
next

Exchange 2003 bulunan serverımızı restart etmek istediğimizde bir müddet bizi bekleticektir çünkü exchange servislerinin durdurulması biraz sürer.
Bu sebeple yada başka bir sebeple exchange servislerini durdurmamız gerekirse aşağıdaki komutları batch file olarak kaydedip tek bir tıkla bunu halledebiliriz.

net stop “Microsoft Exchange Information Store” /y
net stop “Microsoft Exchange System Attendant” /y
net stop “Microsoft Exchange IMAP4″ /y
net stop “Microsoft Exchange Routing Engine” /y
net stop “Microsoft Exchange POP3″ /y
net stop “Microsoft Exchange Management” /y

“˜ On Error Resume Next
Dim cComputerName
Dim objWMIService
Dim oDisMbox
Dim mBox
Dim dmBoxes
Dim strAnswer
Const cWMINameSpace = “œroot/MicrosoftExchangeV2″³
Const cWMIInstance = “œExchange_Mailbox”
cComputerName = “œSRVEXC01″³

strWinMgmts = “œwinmgmts:{impersonationLevel=impersonate}!//”& _
cComputerName & “œ/” & cWMINameSpace
Set objWMIService = GetObject(strWinMgmts)
Set oDisMbox = objWMIService.ExecQuery(“Select * from Exchange_Mailbox WHERE DateDiscoveredAbsentInDS IS NOT Null”)
if oDisMbox.count > 0 then
Set objExplorer = WScript.CreateObject(“InternetExplorer.Application”)
objExplorer.Navigate “œabout:blank”
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=400
objExplorer.Height = 100
objExplorer.Left = 0
objExplorer.Top = 0

Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop

objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = “œMailboxen worden ingelezen, moment”¦.”

For each mBox in oDisMbox
dmBoxes = dmBoxes & mBox.MailboxDisplayName & “œ, “
Next

strAnswer = MsgBox(“Volgende disconnected Mailboxen gevonden: “ & vbCr & vbCr & dmBoxes & vbCr & vbCr & “ DOORGAAN ?” , 20, “œPurgen ?”)
If strAnswer = 6 Then
For each mBox in oDisMbox
objExplorer.Document.Body.InnerHTML = “œMailbox being purged: “ & mBox.MailboxDisplayName
mBox.Purge
Next
objExplorer.Document.Body.InnerHTML = “œVolgende disconnected mailboxen zijn purged :” & vbCr & vbCr & dmBoxes
Else
objExplorer.Quit
Msgbox “œNothing done”¦”
Wscript.quit
End If
else
Wscript.echo “œNo Disconnected Mailboxes found !”
End if
Wscript.Echo “œDone !”
Wscript.Sleep 3000
objExplorer.Quit

“˜Who Has Access – By Alan Mosley, ThatsIT Solutions Australia

“˜Writes report to text file, showing who has access to Exchange users mailboxes
“˜Must be run on email Server

Const DOMAIN = “œIT”
Const EMAIL_SERVER = “œHANK”
Const LDAP_DOMAIN = “œLDAP://dc=ThatsIT,dc=local”

Dim objUser
Dim oSecurityDescriptor
Dim dacl
Dim ace

Dim fso:Set fso = CreateObject(“Scripting.FileSystemObject”)
set tf = fso.CreateTextFile(“WhoHasAccess.txt”,true)
getUsers(DOMAIN)
tf.WriteLine “œWho Has Access – By Alan Mosley, ThatsIT Solutions Australia”
tf.close

Sub getUsers( strDomain )
Set objComputer = GetObject(“WinNT://” & strDomain )
objComputer.Filter = Array( “œUser” )
For Each objUser In objComputer
writeACEs objUser.Name
Next
End Sub

sub writeACEs(userName)
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 10
Set objConnection = CreateObject(“ADODB.Connection”)
Set objCommand = CreateObject(“ADODB.Command”)
objConnection.Provider = “œADsDSOObject”
objConnection.Open “œActive Directory Provider”
Set objCommand.ActiveConnection = objConnection
objCommand.Properties(“Page Size”) = 1000
objCommand.Properties(“Searchscope”) = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
“œSELECT distinguishedName FROM “˜”& LDAP_DOMAIN &””˜ WHERE objectCategory=’user’ “ & _
“œAND sAMAccountName=’”& userName &””˜”
Set objRecordSet = objCommand.Execute
dim ans
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
ans = objRecordSet.Fields(“distinguishedName”).Value
objRecordSet.MoveNext
Loop
set objUser = GetObject(“LDAP://”& EMAIL_SERVER &”/”& ans)
Dim fullName:fullName = Trim( objUser.FullName)
if objUser.HomeMDB <> “œ” then
Set oSecurityDescriptor = objUser.MailboxRights
Set dacl = oSecurityDescriptor.DiscretionaryAcl
tf.WriteLine objUser.FullName
tf.WriteLine spaceIt(“Trustee”,30) & spaceIt(“AccessMask”,11) & spaceIt(“ACEType”,11) & _
spaceIt(“ACEFlags”,11) & spaceIt(“Flags”,11)
For Each ace In dacl
tf.WriteLine spaceIt(ace.Trustee,30) & spaceIt(ace.AccessMask,11) & _
spaceIt(ace.AceType,11) & spaceIt(ace.AceFlags,11) & spaceIt(ace.Flags,11)
Next
tf.WriteLine
tf.WriteLine
end if
end sub

function spaceIt(val,spaceCount)
dim aLine , dLen
aLine = val
dLen = len(aLine)
dLen = spaceCount – dLen
for i = 1 to dLen
aLine = aLine & “ “
next
spaceIt = aLine
end function

Şu adresten indirebileceğimiz script sayesinde 90 gün içinde herhangi bir işlem yapmamış olan bilgisayar hesaplarını .html olarak rapor alabilir ve ardından silme işlemini gerçekleştirebiliriz.Komut satırına düştüğümüzde toplam 3 komuttan oluşuyor.
oldcmp.exe /report
oldcmp.exe /disable
oldcmp.exe /delete

Bir grup kullanıcı farklı makinalarda oturum açtığında belli başlı 3 yazıcının tanıtılması istenebilir.Bunun için her seferinde uğraşmamak için logon script olarak şunu kullanabiliriz.

—————————-
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.AddWindowsPrinterConnection “\\banko3\hpLaserJ”
—————————-

Networkümüzde gerekli haklarımız tanımlanmışsa uzak bir makineyi kapatabilir,restart yada logoff edebiliriz.Bruce Walton ‘ın hazırladığı script:

———————

RetVal = OS.Win32ShutDown(flag,0)
next
if RetVal = 0 then
wscript.echo “Shutdown ” & servers(x)
else
wscript.echo “Unable to shutdown ” & servers(x)
end if
next

Google gruplarında bir arkadaşın sorusu üzerine araştırıp bulduğum bir script gerçekten beni çok şaşırttı.
Şöyle bir senaryo düşünelim.3 Tane OU’muz var.

Muhasebe-Finans-Yönetim
Bir de computers container’ımız var built-in gelen.Şimdi Muhasebe grubuna bilgisayar üzerinden bir policy çakmak istiyoruz.Ama bilgisayar isimleri oldukça karmaşık ve hepsi default gelen computers grubunun altında.Bu durumda bir scriptle işimizi çok kolaylaştırabiliriz.

Bu scriptteki Domain ve Ou isimlerini kendimize göre düzenleyip .vbs uzantısıyla kaydederiz.Ardından Logon script olarak tüm muhasebe grubuna group policy uygularız.
Artık Muhasebe grubu bilgisayarları logon oldukları anda kendi bilgisayar isimlerini YeniOU altına otomatik kopyalayacaktır.

Herhangi bir user’ın hangi Domain Controller’dan logon olduğunu öğrenmek için komut isteminde şu komutu kullanırız.

“set logonserver”

echo %logonserver% komutunuda script olarak kullanabiliriz