Mustafa KULLUKÇUOĞLU Kişisel Günlük

mysql servisini durdurduktan sonra görev yöneticisi üzerinde tüm mysqld hizmetlerinin durduğuna emin olduktan sonra,

mysql\bin klasörü altında
mysqld --skip-grant-tables
komutunu çalıştırıyoruz bu ekran açıkken yeni bir komut penceresi açıp;
mysqld

yazıp veritabanına bağlandıktan sonra aşağıdaki komutları çalıştırıp pencereyi kapatıyoruz

mysql> USE mysql
mysql> UPDATE user SET password=password("newpassword") WHERE user="root";
mysql> flush privileges;
mysql> exit;

ilk açtığımız pencereyi de kapattıktan sonra mysql servisimizi başlatıyoruz.

vb.net envanter programı için gerekli olabilecek bir parça.
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(GetXPKey(TextBox1.Text))
End Sub
Public Function GetXPKey(ByVal hostorip As String) As String
Dim MyReg As RegistryKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, hostorip)
Dim MyRegKey As RegistryKey
MyRegKey = MyReg.OpenSubKey("Software\Microsoft\Windows NT\currentVersion", True)
Dim bytDPID() As Byte = MyRegKey.GetValue("DigitalProductID")
MyRegKey.Close()
Dim bytKey(14) As Byte
Array.Copy(bytDPID, 52, bytKey, 0, 15)
Dim strChar As String = "BCDFGHJKMPQRTVWXY2346789"
Dim strKey As String = ""
For j As Integer = 0 To 24
Dim nCur As Short = 0
For i As Integer = 14 To 0 Step -1
nCur = CShort(nCur * 256 Xor bytKey(i))
bytKey(i) = CByte(Int(nCur / 24))
nCur = CShort(nCur Mod 24)
Next
strKey = strChar.Substring(nCur, 1) & strKey
Next
For i As Integer = 4 To 1 Step -1
strKey = strKey.Insert(i * 5, "-")
Next
Return strKey
End Function
End Class

Adres listenizde kayıtlı olmayan otomatik tamamlama ile bilgisayarınızda saklanan epostaları için

Tek birini silmek isterseniz; kürsor üzerinde iken delete tuşuna basarak otomatik tamamlama listenizden silebilirsiniz.

Eğer tamamını silmek isterseniz.
%AppData%\Microsoft\Outlook (default olarak C:\Documents and Settings\user\Application Data\Microsoft\Outlook)  dizinindeyer alan Outlook.NK2 isimli dosyayı silmeniz yeterli.

Otomatik tamamlama listenizde hızlı güncelleme yapmak,silmek, tüm listenizi kayıt etmek isterseniz NK2View yazılımını kullanabilirsiniz.

Yeni bilgisayarınızdaki outlook hesabınıza aktarmanız için ise Outlook.NK2 isimli dosyayı yeni bilgisayarnızdaki kopyalamak yeterlidir.

XP, Vista, Windows7 x64 üzerinde ODBC üzerinden veritabanı bağlantısı yaptıktan sonra

“ERROR [IM014] [Microsoft][ODBC Driver Manager] The specified DSN contains an architecture mismatch”

hatası almamız muhtemel. Sebebi yine ODBC sürücülerinin 32bit sürücü desteğine sahip olması. Her ne kadar ODBC test ettiğimizde başarılı bir şekilde bağlandım dese de vb.net üzerinden bağlantı açılırken yukarıdaki hata mesajını döndürmekte.

Hatayı geçmek için projemizi çalışacağı CPU yu x86 seçmelimiz gerekiyor.

VS2008 üzerinde x86 ayarlanması

Project menüsünden Projemizin özelliklerini açalım.

Compile bölümünü açalım

Advanced Compile Optionsa yarlarını açalım.

Target CPU seçeneğini x86 seçtiğimizde projemiz artık sadece 32bitlik uygulama gibi çalışacak. Yukarıdaki ODBC sorunu kalkacaktır

Kısıtlı kullanıcıların sabit bir dizinde bulunan uygulamayı tam yetkileri ile kullanabilmeleri için group policy ile script/batch file oluşturalım.
isterseniz Group Policy üzerinde Computer Configuration / Windows Settings / Security Settings /  File System altındanda düzenleyebilirsiniz. Anlatım script yönetmi üzerine.

Kullanacağımız komut cacls (vista ile daha gelişmiş icacls komutu mevcut ama bizim istemcilerimiz xp ve cacls komutunu vista üzerinde de kullanabiliriz)

Parametreler:
parametrelere cacls /? yazarak ulaşabilirsiniz.
/t ACL listemizin alt dizin/dosyalara da etki etmesini sağlar
/e değiştirme yapmamızı sağlar. (bunu kullanmazsak mevcut ACL bilgileri silinir yeni yetkiler aktarılır
/p mevcut olan yetkileri değiştirmek için
/r kullanıcıyı acl listesinden silmek için
/c hata oluşsa bile devam etmesi için
/d kullanıcı erişimini engellemek için
yetkiler:
R Oku
W Yaz
C Değiştir (yaz)
F Tam denetim

Örnekler
%COMSPEC% /c Echo E| komutunu başa yazarak bize onay sormasını engelliyoruz.(Ingilizce olan işletim sistemleri için E yerine Y koymamız gerekiyor. Bunları ayırt etmemize gerek yok hem E hemde Y olan satırları peş peşe çalıştırırsanız bir tanesi geçerli olacaktır.)

%COMSPEC% /c Echo E| cacls c:\test /t /c /g Administrators:F system:f users:r musti:f
Üstteki örnekte c:\test klasörü ve alt klasörlerindeki tüm yetkiler silinip administrators,system gruplarına tam yetki users grubuna ise okuma yetkisi veriyoruz.

%COMSPEC% /c Echo E| cacls c:\test /e /t /r users
Bu örnekte ise mevcut acl listemizden sadece users grubuna verdiğimiz yetkileri siliyoruz

%COMSPEC% /c Echo E| cacls c:\test /t /e /p users:r musti:f
mevcut acl üzerindeki yetkileri users grubuna sadece okuma musti kullanıcısına tam yetki verdik.

%COMSPEC% /c Echo E| cacls c:\test /e /d musti
musti isimli kullanıcının dizine erişimini engelliyoruz

Bu kodları bat dosyası içerisine yazabileceğimiz gibi vbs üzerine de ekleyebiliriz.
Örnek vbs dosyamız.

Option Explicit
Dim klasor
Dim intRunError, objShell, objFSO
klasor = "c:\test"
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(klasor) Then
intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " & klasor & " /t /c /g Administrators:F ", 2, True)
If intRunError <> 0 Then
Wscript.Echo klasor & " Klasörünün izinleri değiştirilirken hata ile karşılaşıldı."
End If
End If
WScript.Quit


Scriptimiz çalıştırıldığı bilgisayarın envanterini çıkartarak, paylaşıma koyduğumuz mdb dosyası üzerine kayıtı yazıyor. Veritabanına yazdıktan sonra C: dizini altına env.txt isimli dosya oluşturuyor. Aynı bilgisayarda tekrar çalışmaması için ise env.txt dosyasının varlığını kontrol ediyor dosya varsa eğer envanteri çıkartmadan çıkıyor.

Active Directory üzerinden logon script olarak uygulayıp envanter bilgisi toplayabiliriz.

Envanter içeriği,
Network kartları ve ip,dns,gateway,subnetleri.
cdrom, fiziksel disk sürücüler ve partition yapilari, bilgisayara takılı olan ramler vb

'==========================================================================
'
' notsayfam.com
'
'==========================================================================

Option Explicit
dim envanter

envanter = "c:\env.txt"
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

Dim iCursorType        ' The Cursor Type for the Recordset
Dim iLockType        ' The Lock Type for the Recordset

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' c:\env.txt dosyasi mevcut degilse envanter cikarilmasini sagliyoruz
if not fso.FileExists(envanter) then

Dim output
Dim wmiService
Dim bilgiler

Dim hostname
Dim islemci
Dim islemcifiziksel
Dim islemcicekirdek


Yazının tamamını okumak için tıklayın…»

Disklerinizdeki partition yanlışlıkla veya zararlı bir program nedeniyle silinmiş olabilir veya geçen gün benim yaptığım gibi ihtiyaç olmadığı halde dinamik diske dönüştürülmüş bir diski tekrar Temel dise dönüştürdüğümüzde ihtiyaç olabilir.

Partitionlarınızı geri getirmek için kimimiz partitionu tekrar oluşturup data recovery ile verileri geri getirmeye kimileri ise veriler tamamen gitmiştir diyerek dosyalarından vazgeçmekte.

Oysa Acronis Disk Director Suite yazılımı ile silinen/görünmeyen partition bilgilerimizi geriye getirebiliriz.Sadece 1 kaç dakika içerisinde. Disk boyutu önemli değil. 1Tb lık disk dahi 1 dakika sürüyor.

İşlemi çalışan bir windows üzerine yazılımı kurarak veya başka sabit diskimiz yok ise Acronis Ultimate Boot CD veya Directory Suite Boot cd ile bilisayarımızı başlatarak partitionumuzu geri getirebiliriz.

İster boot cd ile ister windows ortamından yapalım ekranlar aynı

Yapılacak işlemler. (ben boot cd ile gerçekleştirdim)

Acronis Disk Director Suite yi açalım. Açılışta karşımıza çıkan “Automatic Mode” “Manual Mode” seçeneklerinden “Manual Mode” yi seçelim.

Sonra Sol menü bardan veya üstteki menüler içerisinde Wizard altında bulunan “Recover Partitions” seçeneğini seçelim. 

  Yazının tamamını okumak için tıklayın…»

kullanılan toolun kötü bir özelliği var bağlanan makinenin local ip adresini gösteriyor. firmaya durumu ilettim ama değiştirirler mi bilemiyorum. Ama toolu kullanarak şöyle yapabilirsiniz örneğin sizin terminal sunucunuzun bulunduğu ip bloğu 10.0.5.xx gibi bir bloksa. 10.0.5 ile başlamıyorsa kullanıcıyı logoff edebilirsiniz. kullanıcının local ip adresi genelde 10.0.0.x / 192.168.1.x/192.168.2.x şeklinde (standart adsl modemlerin dağıtımı, en çok kullanılan bloklar bunlar.)

Toolu http://www.ctrl-alt-del.com.au/CAD_Utils.htm adresinden indirebilirsiniz. adı GETTSCIP

kontrol etmek istediğiniz kullanıcıların logon scriptine

Mantığı: Kullanıcının belgelerim klasörüne k.adı.txt isimli bi dosyaya GETTSCIP ile bağlanan kullanıcının ip adresini kayıt ettiriyoruz. Sonra programın verdiği çıktıdan (WTSClientAddress: 192.168.2.51) ip adresini ve adresin ilk 7 karakterini alıyoruz. Sonra bizim ip bloğumuz ile karşılaştırıyoruz tutmuyorsa kullanıcı logoff oluyor.

Set oShell = Wscript.CreateObject(“Wscript.Shell”)
kullanici = oShell.ExpandEnvironmentStrings(“%USERNAME%”)
masaustu = oShell.SpecialFolders(“MyDocuments”)
tamyol= “”"” &  masaustu & “\” & kullanici &  “.txt” & “”"”
komut = “cmd /K ipal.exe > ” & tamyol &  ” & exit”
oShell.run (komut)
tamyol2=masaustu & “\” & kullanici &  “.txt”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.OpenTextFile(tamyol2, ForReading)
Const ForReading = 1
ip=objFile.ReadLine
Dim arrFileLines()
objFile.Close
MyArray = Split(ip, “: “, -1, 1)
ip=MyArray(1)
ip=Mid(ip, 1, 7)
if ip = “10.0.5.” then
msgbox “Localden geliyor”
else
oShell.run (“logoff”)
end if

Donanım takip yazılımı yazarken aralarda kalmış olan bilgisayar donanımlarının alınması işlemini boş vaktimde tamamladım.

Domain üzerinde bağlantı bilgileri girilerek uzaktaki domain üyesinin envanteri alınabilir.

Programın yapabildikleri.

İşlemci , fiziksel işlemci , mantıksal işlemci adedi
en fazla ram desteği, anakartta kaç slot olduğu, hangi slotlarda hangi mhz ramlerin yer aldığı
Fiziksel diskler, partition yapıları, mantıksal diskler
Cd Sürücüler, tipleri
ekran kartları , ramleri
Yazıcılar, yazıcıların bağlı olduğu port,destekledikleri kağıt boyutları
Paylaşımlar, paylaşımların yolları, paylaşım çeşitleri
Ağ : DNS,IP,Gateway bilgileri
Seri, parallel port sayısı
Bilgisayarın üzerindeki slotlar ve tümleşik kartlar
 

Eğer uzaktaki bilgisayarın konfigürasyonunu alırken aşağıdaki hatayı alırsanız

The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)

Client üzerindeki firewall açık durumda olmasından kaynaklanıyor. Client üzerinde aşağıdaki komutları çalıştırarak başarılı bir şekilde konfigürasyonu alabiliriz.

netsh.exe firewall set service type=REMOTEADMIN mode=ENABLE scope=ALL
netsh firewall add portopening protocol=tcp port=135 name=DCOM_TCP135

program kodları yazının devamında

  Yazının tamamını okumak için tıklayın…»

Tüm bilgi işlemcilerin ihtiyacı olan sistemdeki virüsleri alternatif antivirüs ile taramak, virüsten dolayı açıldığında antivirüs kurulmasına müsaade etmeyen sistemlere antivirüs kurmak için genelde açılış cd leri kullanarak BartPE veya Linux tabanlı dağılımlardan(Hiren,Antivir Resque CD,Diğer Live Cdler) birini kullanırız.

En güncel açılış Cd sini bulmak bir hayli zor. Bulduklarınızın üzerinde genelde 3-4 ay öncesinin virüs veritabanı yüklü geliyor. Biz ise kendimiz indirdiğimiz kaspersky emergency programını güncelleyerek kendi boot cd mizi oluşturacağız.

İhtiyaçlar
1-KasperSky Emergency Cd 2009 http://dnl-eu10.kaspersky-labs.com/devbuilds/RescueDisk/ adresinden kav_rescue_2008.iso dosyasını indirelim.
2-Bir bilgisayar (Sanal fiziksel fark etmez)
3-Eğer fiziksel ise boş bir cd
4-İnternet bağlantısı ve dhcp sunucu
5-Iso editor (Magic ISO vb.)

Adresten iso dosyasını indirip sanal /fiziksel bilgisayarımıza takarak kasperskyı başlatalım. Açıldıktan sonra update sekmesine geçip kaspersky antivirüs 2009 u güncelleyelim.

Sonra File Editörü açalım

/var/kl/bases_rd klasörünü veya klasörü içinekileri kopyalayalım
 

Sonra /discs/C:/ içerisine yapıştıralım.( C yerine orada bulunan diğer sürücülerinize kopyalayabilirsiniz.)

Sonra Sanal/fiziksel bilgisayarımızı Kaspersky cd mizi çıkartarak yeniden başlatalım.

daha önce indirdiğimiz içerisinde güncel virüs veritabanı olmayan iso dosyamızı herhangi bir ISO editör programı ile açalım. Ben Magic ISO kullandım.

Iso dosyamızın içerisindeki bases klasörüne tıklayalım. Biraz önce kasperskyı başlatarak güncelleyip kopyaladığımız dosyaları bases klasörünün üzerine sürüklyerek bırakalım

dosyaların olduğuna dair uyarı gelecektir Yes to all diyerek hepsini yeni dosyalar ile değiştirelim.

Iso dosyamızı kayıt edelim. Artık kullanıma hazır.  Cd ye yazarak istediğimiz bilgisayar üzerinde güncel veritabanı ile tarama yapabiliriz.

Not: Tarama işlemi başlatırken varsayılan olarak kaspersky sıkıştırılmış dosyaların içerisini taramamakta. Eğer değiştirmek isterseniz
Settings bölümünden Scan seçeneğine tıklayalım sağ bölümdeki settings e tıklayalım. Scan all archives seçeneğini işaretleyerek taramayı başlatalım.