Bilgisayar Hesabı Yaratmak
Ocak 3, 2008 at 7:59 pm | In Windows Server 2000/2003 | Leave a CommentTags: active directory, domain, etki alanı, gökhan şenyüz, komut satırı, script, user account, vbscript, windows server 2003
|
PROBLEM: Bir bilgisayar hesabı yaratmak istiyorsunuz.
ÇÖZÜM: 1- Grafik Arabirim kullanarak - Active Directory Users and Computer konsolunu açın. - Computer klasörüne sap tıklayın New—Computer komutunu verin. - Bilgisayar adını girin ve OK butonuna basın. 2- Komut Satırı kullanarak Dsadd computer “” –desc “” 3- VBScript kullanarak ‘ This code creates a computer object. ‘ —— SCRIPT CONFIGURATION —— strBase = ” ” ‘ e.g. cn=Computers,dc=rallencorp,dc=com strComp = “” ‘ e.g. joe-xp strDescr = “” ‘ e.g. Joe’s Windows XP workstation ‘ —— END CONFIGURATION ——— ‘ ADS_USER_FLAG_ENUM Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000 set objCont = GetObject(“LDAP://” & strBase) set objComp = objCont.Create(“computer”, “cn=” & strComp) objComp.Put “sAMAccountName”, strComp & “$” objComp.Put “description”, strDesc objComp.Put “userAccountControl”, ADS_UF_WORKSTATION_TRUST_ACCOUNT objComp.SetInfo Wscript.Echo “Computer account for ” & strComp & ” created” |
Bir Bilgisayarı Domain Ortamına Eklemek
Ocak 3, 2008 at 7:58 pm | In Windows Server 2000/2003 | Leave a CommentTags: active directory, domain, etki alanı, gökhan şenyüz, komut satırı, script, user account, vbscript, windows server 2003
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 ——
|
strComputer |
= “<ComputerName>” |
‘ e.g. joe-xp |
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
WMI Kullanarak Domain Bilgisini Listeleyin
Ocak 3, 2008 at 7:58 pm | In Windows Server 2000/2003 | Leave a CommentTags: active directory, domain, etki alanı, gökhan şenyüz, komut satırı, script, user account, vbscript, windows server 2003
Aşağıdaki script’i kullanarak ağda tespit edilen domain’ler hakkında bilgi toplayabilirsiniz.
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
Bilgisayar Hesabı Silmek
Ocak 3, 2008 at 7:56 pm | In Windows Server 2000/2003 | Leave a CommentTags: active directory, domain, etki alanı, gökhan şenyüz, komut satırı, script, user account, vbscript, windows server 2003
Active Directory üzerinde bilgisayar hesabı silmek için aşağıdaki script’i kullanabilirsiniz.
strComputer = “atl-pro-040″
set objComputer = GetObject(“LDAP://CN=” & strComputer & _
“,CN=Computers,DC=fabrikam,DC=com”)
objComputer.DeleteObject (0)
Global Catalog Server’ı Devre Dışı Bırakın
Ocak 3, 2008 at 7:55 pm | In Windows Server 2000/2003 | Leave a CommentTags: active directory, domain, etki alanı, gökhan şenyüz, komut satırı, script, user account, vbscript, windows server 2003
ilkdc-dc01 örnek isimli DC üzerinde Global Catalog hizmetini devre dışı bırakır.
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
WordPress.com'dan blog alın. | Theme: Pool by Borja Fernandez.
Entries and comments feeds.
