Microsoft Windows’un ilk sürümü olan 1.0, MS DOS’un grafik arayüzüne sahip ve geliştirilmiş bir şekli olarak 1985 yılında piyasaya sürüldü. Kullanıcılar tarafından fazla benimsenmeyen bir Windows versiyonu olan 1.0 bekleyen ilgiyi görememişti. Bunun üzerine Microsoft, Windows 2.0′a Excel ve Word programlarını dahil ederek daha da gelişmiş bir Windows yarattı ve böylece ofis kullanıcılarının da ilgisini çekmeyi başardı.Uzun bir süre “Longhorn” kod ismiyle lanse edilen Windows’un son sürümünün, 2005 yılı ortalarında Windows Vista ismiyle çıkacağı duyuruldu. Geliştirme süreci yaklaşık olarak 1.5 yıl süren Vista, bir çok yeniliği beraberinde getirdi.

Yeni Windows Explorer, geliştirilmiş kullanıcı hesapları (Users Account Control), çok yönlü kenar çubukları (Gadgets), artırılmış güvenlik özellikleri ve daha sayamadığımız bir çok yeni özelliğiyle Windows Vista, bilgisayar kullanıcılarının beğenisine sunuldu. Windows Aero isimli arayüzle bambaşka bir görünüme sahip olan yeni nesil işletim sistemi, muhteşem bir tanıtımla Ocak 2007 tarihinde raflardaki yerini aldı.

Geçmişten bu güne Microsoft Windows versiyonları:

Windows 1.0 (Kasım 1985)
Windows 2.0 (Nisan 1987)
Windows 3.0 (Mayıs 1990)
Windows 3.1 (Nisan 1992)
Windows NT 3.1 (Ağustos 1993)
Windows 3.11 (Şubat 1994)
Windows NT 3.5 (Eylül 1994)
Windows 95 (Ağustos 1995)
Windows NT 3.51 (Haziran 1995)
Windows NT 4.0 (Ağustos 1996)
Windows 98 (Haziran 1998)
Windows 98 SE (Mayıs 1999)
Windows ME (Eylül 2000)
Windows 2000 (Şubat 2000)
Windows 2000 Datacenter (Ağustos 2000)
Windows XP (Ekim 2001)
Windows Server 2003 (Mart 2003)
Windows Vista (Haziran 2007)

PROBLEM:

Active Directory’de bilgisayar hesabı olan bir bilgisayarı Domain’e bağlamak istiyorsunuz.

ÇÖZÜM:

1-   Grafik Arabirim Kullanarak

-          Bilgisayarım simgesi üzerinde sağ tıklayın ve Özelliklere girin.

-          Computer Name Sekmesine gelin.

-          Change butonuna basın.

-          Member Of bölümü altında Domain seçeneğini işaretleyin.

-          Domain adını yazın ve onaylayın. Ardından Domain üzerinde yetkili bir kullanıcı hesabı ve parolası belirtin. Hoş geldiniz mesajından sonra bilgisayarı yeniden başlatın.

2-   Komut Satırı Kullanarak

netdom  join  <Bilgisayar Adı>  /Domain  <Domain Adı>  /UserD  <Domain Kullanıcı Adı>

/PasswordD  ***  /UserO  <Bilgisayar Admin Hesabı>  /PasswordO  ***  /Reboot

3-   VBScript Kullanarak

‘  This  code  joins  a  computer  to  a  domain.

‘  ——  SCRIPT  CONFIGURATION  ——

strDomainPasswd  =  “<DomainUserPasswd>”

strLocalUser       =  “<ComputerAdminUser>”  ‘  e.g.  administrator strLocalPasswd    =  “<ComputerUserPasswd>”

‘  ——  END  CONFIGURATION  ———

‘########################

‘  Constants

‘########################

Const  JOIN_DOMAIN                       =  1

Const  ACCT_CREATE                       =  2

Const  ACCT_DELETE                       =  4

Const  WIN9X_UPGRADE                    =  16

Const  DOMAIN_JOIN_IF_JOINED     =  32

Const  JOIN_UNSECURE                    =  64

Const  MACHINE_PASSWORD_PASSED  =  128

Const  DEFERRED_SPN_SET              =  256

Const  INSTALL_INVOCATION           =  262144

‘###########################

‘  Connect  to  Computer

‘###########################

set  objWMILocator  =  CreateObject(“WbemScripting.SWbemLocator”)

objWMILocator.Security_.AuthenticationLevel  =  6

set  objWMIComputer  =  objWMILocator.ConnectServer(strComputer,    _ “root\cimv2″,  _

strLocalUser,  _

strLocalPasswd)

set  objWMIComputerSystem  =  objWMIComputer.Get(  _ “Win32_ComputerSystem.Name=’”  &  _ strComputer  &  “‘”)

‘###########################

‘  Join  Computer

‘###########################

rc  =  objWMIComputerSystem.JoinDomainOrWorkGroup(strDomain,  _ strDomainPasswd,  _ strDomainUser,  _ vbNullString,  _ JOIN_DOMAIN)

if  rc  <>  0  then

WScript.Echo  “Join  failed  with  error:  ”  &  rc else

WScript.Echo  “Successfully  joined  ”  &  strComputer  &  ”  to  ”  &  strDomain end  if

On Error Resume Next

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:” _

    & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)

Set colItems = objWMIService.ExecQuery(“Select * from Win32_NTDomain”)

For Each objItem in colItems

    Wscript.Echo “Client Site Name: ” & objItem.ClientSiteName

    Wscript.Echo “DC Site Name: ” & objItem.DcSiteName

    Wscript.Echo “Description: ” & objItem.Description

    Wscript.Echo “DNS Forest Name: ” & objItem.DnsForestName

    Wscript.Echo “Domain Controller Address: ” & _

        objItem.DomainControllerAddress

    Wscript.Echo “Domain Controller Address Type: ” & _

        objItem.DomainControllerAddressType

    Wscript.Echo “Domain Controller Name: ” & objItem.DomainControllerName

    Wscript.Echo “Domain GUID: ” & objItem.DomainGuid

    Wscript.Echo “Domain Name: ” & objItem.DomainName

    Wscript.Echo “DS Directory Service Flag: ” & objItem.DSDirectoryServiceFlag

    Wscript.Echo “DS DNS Controller Flag: ” & objItem.DSDnsControllerFlag

    Wscript.Echo “DS DNS Domain Flag: ” & objItem.DSDnsDomainFlag

    Wscript.Echo “DS DNS Forest Flag: ” & objItem.DSDnsForestFlag

    Wscript.Echo “DS Global Catalog Flag: ” & objItem.DSGlobalCatalogFlag

    Wscript.Echo “DS Kerberos Distribution Center Flag: ” & _

        objItem.DSKerberosDistributionCenterFlag

    Wscript.Echo “DS Primary Domain Controller Flag: ” & _

        objItem.DSPrimaryDomainControllerFlag

    Wscript.Echo “DS Time Service Flag: ” & objItem.DSTimeServiceFlag

    Wscript.Echo “DS Writable Flag: ” & objItem.DSWritableFlag

    Wscript.Echo “Name: ” & objItem.Name

    Wscript.Echo “Primary Owner Contact: ” & objItem.PrimaryOwnerContact

    Wscript.Echo

Next

strComputer = “atl-pro-040″

set objComputer = GetObject(“LDAP://CN=” & strComputer & _

    “,CN=Computers,DC=fabrikam,DC=com”)

objComputer.DeleteObject (0)

strComputer = “ilkdc-dc01″

Const NTDSDSA_OPT_IS_GC = 1

 Set objRootDSE = GetObject(“LDAP://” & strComputer & “/rootDSE”)

strDsServiceDN = objRootDSE.Get(“dsServiceName”)

Set objDsRoot  = GetObject _

    (“LDAP://” & strComputer & “/” & strDsServiceDN)

intOptions = objDsRoot.Get(“options”)

If intOptions And NTDSDSA_OPT_IS_GC Then

    objDsRoot.Put “options”, intOptions Xor NTDSDSA_OPT_IS_GC

    objDsRoot.Setinfo

End I

Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject(“ADODB.Connection”)

objConnection.Open “Provider=ADsDSOObject;”

Set objCommand = CreateObject(“ADODB.Command”)

objCommand.ActiveConnection = objConnection

objCommand.CommandText = _

    “<GC://dc=gokhan,dc=com>;(objectCategory=User)” & _

        “;userAccountControl,distinguishedName;subtree” 

Set objRecordSet = objCommand.Execute

intCounter = 0

Do Until objRecordset.EOF

    intUAC=objRecordset.Fields(“userAccountControl”)

    If intUAC AND ADS_UF_ACCOUNTDISABLE Then

        WScript.echo objRecordset.Fields(“distinguishedName”) & ” is disabled”

        intCounter = intCounter + 1

    End If

    objRecordset.MoveNext

Loop

WScript.Echo VbCrLf & “A total of ” & intCounter & ” accounts are disabled.”

objConnection.Close