İlk kodumuz local pc üzerinde işlem yaparken kullanılabilir. Kodumuz şöyle;

 
 
İkinci kodumuz ise domain ortamında uygulanabilir. O’da şöyle;

 
 
Kodları kendi ortamınıza göre düzenleyip not defterine kaydedin ve uzantısını .bat olarak değiştirin.

servername yazan yere kendi dc sunucu isminizi yazmayı unutmayınız.

Kod şöyle;

Dim wshell
Set wshell = CreateObject(”WScript.Shell”)
wshell.Run “%COMSPEC% /c net time \\servername /set /y”,0,TRUE
set wshell = Nothing

Resim-1

Sol taraftan yeni modüle açın.

Resim-2

VB Script kodunu yapıştırın ve sol üstten kaydedin.

Resim3

Outlook’ta Araçlar -> Kurallar ve Uyarılar menüsünü açın.

Resim-4

Yeni kural oluşturun , Boş bir kuraldan başla ve Ulaştığında iletileri denetle sekmelerini seçin.

Resim-5

Bir sonraki pencerede yanlızca bana gönderilen sekmesini işaretleyin ve ileriyi tıklayın.

Resim-6

Komut dosyası öğesini çalıştır sekmesini işaretleyin ve kaydettiğiniz  komut dosyasını seçin.

Resim-7

Son diyerek kuralı bitiriyoruz.

Resim-8

Son olarak oluşturduğumuz bu kuralı çalıştırıyoruz.

Hepsi bitti , şimdi adres defterinizi kontrol edin.Bütün mail adreslerinin kaydedilmiş olduğunu göreceksiniz. VB Script kodumuz şu şekildedir;

Sub AutoAddContact(Item As MailItem)
    Dim olkContacts As MAPIFolder, _
        olkContact As ContactItem, _
        olkReply As MailItem, _
        olkRecip As Recipient, _
        strAddress As String
    Set olkContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set olkContact = olkContacts.Items.Find("[FullName] = '" & Item.SenderName & "'")
    If TypeName(olkContact) = "Nothing" Then
        Set olkContact = Outlook.Application.CreateItem(olContactItem)
        Set olkReply = Item.Reply
        Set olkRecip = olkReply.Recipients.Item(1)
        If Err = 0 Then
            strAddress = olkRecip.Address
            If strAddress = "" Then
                strAddress = olkRecip.Name
            End If
        End If
        With olkContact
            .Email1Address = strAddress
            .FullName = Item.SenderName
            'Feel free to remove the next line'
            .Body = "Record created automatically on " & Date & " at " & Time & " by BlueDevilFan's script."
            .Save
        End With
    End If
    Set olkContact = Nothing
    Set olkContacts = Nothing
    Set olkReply = Nothing
    Set olkRecip = Nothing

 End Sub

Hazırlayan : Özgür Özocak

Script içerisinde strAccount, strPswd ve son bölümdeki Set objGroup satırında grup bilgisini düzenlemeyi unutmayın.

' specify account to create
strAccount = "Ozgur"
strPswd = "123456"

' get local computer name
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

' check if local account already exists
intExists = 0
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
    If objUser.Name = strAccount Then
     intExists = 1
  End If
Next

If intExists = 0 Then
   ' create local user
   Set colAccounts = GetObject("WinNT://" & strComputer & "")
   Set objUser = colAccounts.Create("user", strAccount)

   ' set pswd
   objUser.SetPassword strPswd
   objUser.SetInfo

   ' set pswd never expires
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
   objUserFlags = objUser.Get("UserFlags")
   objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
   objUser.Put "userFlags", objPasswordExpirationFlag
   objUser.SetInfo

   ' add to local admins group
   Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",user")
   objGroup.Add(objUser.ADsPath)
End If

Set objFirewall = CreateObject(”HNetCfg.FwMgr”)Set objPolicy =
objFirewall.LocalPolicy.CurrentProfileobjPolicy.FirewallEnabled = FALSE

Group policy’i açın ve logon script olarak ekleyin.

Bu senaryo da 2 önemli nokta var. Uzun süredir kullanımda olan bir bilgisayarla, yeni kurulmuş ve üzerinde  hiçbir usb bellek çalıştırılmamış bir bilgisayardaki izlenmesi gereken yol birbirinden farklıdır.Şimdi açıklayalım;

1. yöntemimiz de yeni kurulan bir windows işletim sistemi var.

  Öncelikle Windows Gezgini’nin adres satırına %Systemroot% adresini girdikten sonra [Enter]‘a basın. Inf alt klasörüne geçin ve burada Usbstor.pnf dosyasını bulun. Daha sonra farenin sağ tuşuyla dosyaya tıklayın ve açılan bağlam menüsünden Özellikler’e tıklayın. Güvenlik sekmesine geçin, Grup ya da kullanıcı adları alanından Kullanıcılar grubunu işaretleyin. Tam Denetim satırından İzin verme’yi etkinleştirin. Uygula’ya tıklayın ve güvenlik bildirimini Evet’e tıklayarak geçin. Bu işlemi SYSTEM grubu için de tekrarlayın. Tamam’a tıklayarak iletişim penceresini kapatın. Artık kullanıcılar bu bilgisayarda yeni bir USB cihazı kuramayacak.

2. yöntemimiz de çalışan bir windows işletim sistemi var : 

Başlat/Çalıştır menüsünden “regedit” komutuyla Kayıt Defteri Düzenleyicisi’ni başlatın ve HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR anahtarına geçin. Pencerenin sağından Start DWORD değerine çift tıklayın ve değerini 4 olarak değiştirdikten sonra Tamam diyerek iletişim penceresini kapatın. Sonrasında Kayıt Defteri Düzenleyicisi’nden çıkın. Bu değişiklik bağlanan USB depolama birimlerinin çalışmasını engelleyecek. Bu cihazlara yeniden ihtiyaç duyduğunuzda Start için yeniden standart değer olan 3′ü seçin.

Hemen regedite giriyoruz ve kurcalamaya başlıyoruz.

HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/policies/system
Value Name: DontDisplayLastUserName
Data Type: DWORD
Value Data: Value Data: 0 = Disabled, 1 = Enabled

Örnek .reg dosyası

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/policies/system]
“DontDisplayLastUserName”=dword:0000001

Şu ayrıntıyı da söylemek istiyorum ; startup olarak oluşturduğunuz group policy’ler sistem yetkilerini kullanır, logon bölümünden oluşturduğunuz policyler ise user yetkilerini kullanırlar. Herhangi bir msi paketini logon script bölümünden dağıtmak isterseniz eğer,oturum açan kullanıcı program kurma yetkisine sahip değilse msi kurulumu başarısız olur.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = objComputer.Rename("YeniBilgisayarİsmi")
Next