Son Haberler
Buradasınız: Anasayfa / Yazılım / Visual Basic Script Nedir? | Tuzla Bilgisayar

Visual Basic Script Nedir? | Tuzla Bilgisayar

 

Sistem yönetimi için tipik yönetim işlemlerini yapmak için yaratılan komut ya da komut dosyalarına script denir. Scriptler, Microsoft VBScript© dili kurallarına göre oluşturulur.

Scriptlerle yapılabilecek bazı işlemler:

·         Lokal bilgisayar üzerinde ve Active Directory üzerinde nesneler yaratmak için scriptler yazılabilir. Rutin işlemler bu şekilde toplu olarak yapılabilir.

·         Yazılan scriptler logon script olarak kullanılabilir.

·         Kullanıcı ile etkileşimli çalışmak için kullanılabilir. MsgBox, InputBox deyimleri gibi.

·         Sürülerin map edilmesinde kullanılır.

 

Scriptler, NotePad gibi basit bir metin editörü aracılığıyla yazılabilir. Onun dışında çok sayıda program içinde de script yazılabilir.

WSH (Windows Script Host)

Windows Script Host, scriptlerin çalışması için bir ortam yaratır. Diğer bir değişle değişik script dillerini destekleyen script enginidir. JScript ve VBScript’i destekler. WSH sayesinde yazılan script’ler Windows ortamında çift tıklanarak çalıştırılır.

Değişken Tanımlamak

Script içinde değerleri temsil etmek için değişkenler (variables) kullanılır. Değişkenler farklı türdeki bilgileri temsil etmek için tür tanımını da sahiptir.

Değişken tanımlama:

Dim değişkenadı

Örnek:

Dim ornek

ornek adlı bir değişken tanımlar.

Script örneklerinde genellikle daha standart olsun diye str ile başlayan değişken adı kullanılır:

strComputer

strDomain  

strdcbaglanti

Değişkenlerin dışında Const deyimiyle sabitler de tanımlanır:

Örnek:

Const JOIN_DOMAIN   = 1

JOIN_DOMAIN  değerine 1 verilir.

Const AD = “tuzlabilgisayar

AD değerine tuzlabilgisayar değeri  verilir.

Nesne Tanımlamaları

Değişkenlerle birlikte WSH’dan bilgi almak ve işlemleri yaptırmak için ilgili nesneleri tanımlanması ve ilgili değişkenlere atanması gerekir. Bu işlem için genellikle Set deyimi kullanılır.

Örneğin Active Directory’ye erişmek:

GetObject(“LDAP://OU=bilgiislem,dc=ceyhuncamli,dc=com“)

Lokal sisteme erişmek:

GetObject(“WinNT://” & strComputer & “/Administrators”)

Dosya sistemine erişmek:

CreateObject (“Scripting.FileSystemObject”)

Dosya işlemlerin örnek olarak, aşağıdaki script bir dosyayı siler.

Dim fso

Set fso = CreateObject (“Scripting.FileSystemObject”)

Fso.deletefile (“c:\data.xls”)

VBScript Veri Türleri

VBScript’in tek bir veri türü vardır. Bu da Variant’tır. Variant,  özel bir veri türüdür ve değişik türdeki verileri (sayı, karakter dizisi gibi) verileri içerir. Variant tek bir veri türü olduğu için bütün işlevler tarafından da döndürülen veri türüdür.

Variant bütün veri tiplerini içeren ve aynı zamanda uygun biçimde kullanılmalarını sağlayan bir veri türüdür. Aşağıdaki tabloda Variant veri türünün içerdiği alt veri türleri yer almaktadır:

Tablo: Variant veri türünün içerdiği alt veri türleri

Alt Türler            Anlamı                                                                                                                                             

Empty                  Değer atanmamış. Sayısal verileri için sıfır, karakter değerleri için ise sıfır                                         uzunluklu ” ” değerdir.

Null                       Boş veri.

Boolean              True ya da False içerir.

Byte                      0 ile 255 arasında değerler.

Integer -32,768 ile 32,767 arasında tamsayı değer.

Long                      -2,147,483,648 ile 2,147,483,647 arasında sayısal değer.

Double 1.79769313486232E308 ile -4.94065645841247E-324 arasında sayısal                                      (kayan noktalı) değer.

Date (Time)       January 1, 100 ile December 31, 9999 tarihleri arasında tarih değeri.

Object                  Bir nesne içerir.

Error                     Bir hata numarası içerir.

VBScript’de Operatörler

Operatörler (işleçler) hem karar vermede ilişkileri oluştururlar hem da aritmetik işlemlerde kullanılırlar. Birçok operatörün bir arada kullanılması durumunda işlem sırası operatörlerin öncelik sırasına göre düzenlenir. Ancak ifadelerde parantezlere yer vermek işlem sırasının programcı tarafından kontrol edilmesini sağlar.

Değerler ya da değişkenler arasında toplama, çıkarma gibi işlemlerin yapılmasını sağlarlar. İşleçler +, *, /, – gibi işaretlerle kullanılır.

Dim toplam

toplam = toplam + 1

toplam değişkenini bir artırır.

Tablo: işleçler ve öncelikleri

Aritmetik

Karşılaştırma

Mantıksal

Üs alma (^)

Eşitlik (=)

Not

Olumsuz (-)

Eşitsizlik (<>)

And

Çarpma ve bölme (* , /)

Küçüktür (<)

Or

Tamsayı bölme (\)

Büyüktür (>)

Xor

Modülo Aritmetik (Mod)

Küçük ya da eşittir (<=)

Eqv

Toplama ve çıkarma (+,-)

Büyük ya da eşittir (>=)

Imp

String birleştirme(&)

Like

Is

İfade içindeki operatörlerin eşit öncelikli olmaları durumunda; ifade soldan sağa doğru değerlendirilir.

Program Kontrolü

Kodun işletimi yazıldığı sırasıyla gerçekleştirilir. Ancak program kontrolü olarak adlandırılan deyimlerle bu işleyiş değiştirilebilir. Böylece program içinde belli kararlara göre yapılabilecek farklı işlemler ortaya çıkar.

If…Then…Else

If…Then…Else deyimi bir koşulun True (doğru) ya da False (yanlış) olmasını değerlendirmek için kullanılır. Buna bağlı olarak bir ya da daha fazla deyimin çalıştırılmasını sağlar. Genellikle koşul bir karşılaştırma ifadesiyle bir değeri ya da değişkeni diğerine göre karşılaştırır.

Koşul doğru olduğunda yalnızca bir deyimi çalıştırmak istiyorsanız, If…Then…Else deyiminin tek satırlık basit şeklini kullanırsınız: Aşağıdaki örnekte yalnızca IF ve Then kullanılmış, Else deyimi kullanılmamıştır. .

If sayac > 12 Then Msgbox “12 değerine ulaşıldı”

Döngüler

Döngüler bir grup deyimini bir çok kez çalıştırılmasını sağlar. Örneğin son kaydı buluncaya kadar dosyada veri okumak gibi. Bazı döngüler deyimleri belli bir koşul False oluncaya kadar yineler. Bazıları ise koşul doğru oluncaya kadar. Bunun dışında deyimleri belli bir kez yinelemek için de döngü kullanılır:

VBScript dilindeki döngü yapıları:

Do…Loop: Bir koşul True olduğu sürece ya True da oluncaya kadar yineleme. While…Wend: Koşul doğru olduğu sürece döngü yapmak. For…Next: Deyimleri belli bir sayıda yinelemek.

Do…Loop deyimlerini bir blok deyimini belli bir koşul olduğu ya da koşul sağlanıncaya kadar yineler. Ancak değişik şekillerde tasarlanabilir:

Bir koşul doğru olduğu sürece yinelemek:

Bir Do..Loop deyimindeki koşulu kontrol etmek için While anahtar sözcüğü kullanılır. Koşulu döngüye girmeden önce ya da döngü bir kez çalıştıktan sonra çıkışta kontrol edebilirsiniz.

Örnek:

 

Dim sayac

sayac = 1

      Do

           sayac = sayac + 1

     Loop Until sayac > 20

     Msgbox “döngü ” & sayac & ” kere döndü.”

Sayac değeri 10 oluncaya kadar mesaj vermek:

Dim Sayac

Sayac= 10

               Do

                 MsgBox “ceyhuncamli-Scripting

                 Sayac = Sayac + 1

               Loop Until Sayac = 10

Deyimleri bir koşul doğru oluncaya kadar yinelemek:

Bir Do..Loop döngüsü içinde Until sözcüğünü iki şekilde kullanarak bir koşulu test edebilirsiniz: Birincisi döngüye girmeden önce koşulun test edilmesi, ikinci ise döngüye girildikten sonra birinci işleyişin ardında koşulun test edilmesi gibi.

For…Next Kullanımı

For…Next deyimleri bir blok deyimin belli bir sayı kadar çalıştırılmasını sağlar. Örneğin 10 kere yapılacak işlemleri değer = 1’den başlayarak 10 kere yapmak gibi.

Örnek:

     Dim i, toplam

     For i = 1 To 10

         toplam= toplam + i

     Next

     MsgBox “Toplam = ” & toplam

Yukarıdaki örnekte i değişkeni döngü kontrol değişkeni olarak adlandırılır. Bu değişken (i) döngünün kaç kez döneceğini ve aynı zamanda kendi değerinin de bilgi olarak kullanılabilmesini sağlar.

VBScript Deyimleri

VBScript dilinde çok sayıda deyim vardır. Bunlar şu kategoriler içinde listeleyebiliriz:

 

Array (dizi) İşlemleri

·         Dim, Private, Public, ReDim

·         IsArray

·         Erase

·         LBound, UBound

Atamalar

·         Set

Sabitler

·         Nothing

·         Null

·         True, False

·         Empty

·         False

·         Nothing

·         Null

·         True 

Program Kontrolü

·         Do…Loop

·         For…Next

·         For Each…Next

·         If…Then…Else

·         Select Case

·         While…Wend

·         With 

Dönüşümler

·         Abs

·         Asc, AscB, AscW

·         Chr, ChrB, ChrW

·         CBool, CByte

·         CCur, CDate

·         CDbl, CInt

·         CLng, CSng, CStr

·         DateSerial, DateValue

·         Hex, Oct

·         Fix, Int

·         Sgn

·         TimeSerial, TimeValue

Tarih/Saat

·         Date, Time

·         DateAdd, DateDiff, DatePart

·         DateSerial, DateValue

·         Day, Month, MonthName

·         Weekday, WeekdayName, Year

·         Hour, Minute, Second

·         Now

·         TimeSerial, TimeValue

Tanımlamalar

·         Class

·         Const

·         Dim, Private, Public, ReDim

·         Function, Sub

·         Property Get, Property Let, Property Set

Hata İşleme

·         On Error

·         Err 

Formatlama

·         FormatCurrency

·         FormatDateTime

·         FormatNumber

·         FormatPercent 

Giriş/Çıkış

·         InputBox

·         LoadPicture

·         MsgBox 

Matematik

·         Atn, Cos, Sin, Tan

·         Exp, Log, Sqr

·         Randomize, Rnd

Nesneler (Object)

·         CreateObject

·         Err Object

·         GetObject

·         RegExp 

Operatörler

·         Addition (+), Subtraction (-)

·         Exponentiation (^)

·         Modulo aritmetik (Mod)

·         Multiplication (*), Division (/)

·         Integer Division (\)

·         Negation (-)

·         String concatenation (&)

·         Equality (=), Inequality (<>)

·         Less Than (<), Less Than or Equal To (<=)

·         Greater Than (>)

·         Greater Than or Equal To (>=)

·         Is

·         And, Or, Xor

·         Eqv, Imp

Prosedürler

·         Call

·         Function, Sub

·         Property Get, Property Let, Property Set

·         Rounding

Sözcük (Strings) İşlemleri

·         Asc, AscB, AscW

·         Chr, ChrB, ChrW

·         Filter, InStr, InStrB

·         InStrRev

·         Join

·         Len, LenB

·         LCase, UCase

·         Left, LeftB

·         Mid, MidB

·         Right, RightB

·         Replace

·         Space

·         Split

·         StrComp

·         String

·         StrReverse

·         LTrim, RTrim, Trim

Fonksiyonlar (Functions)

• CDate()            Bir değeri tarihe dönüştürür.

• CInt() Bir değeri tamsayıya dönüştürür.

• CStr() Bir değeri string’e dönüştürür.

• Date()               Sistemdeki tarih bilgisini verir.

• DateAdd()       Tarihe değer ekler ve çıkarır.

• DateDiff()       İki tarih arasındaki farkı bulur.

• DatePart()       Tarih bilgisinin kısımlarını (year, day, month, vb) verir.

• GetObject()    Bir nesneyi belirtir.

• InputBox()      Ekrandan bilgi almak için.

• InStr()               Bir string bilginin diğer bir string içinde aranmasını sağlar.

• LCase()             Bir string veriyi küçük harfe çevirir.

• Left()                 String bilgiler üzerinde, belirtilen sayı kadar soldan alır.

• Len()                 String bilginin uzunluğunu verir.

• MsgBox()         Ekran üzerinde mesaj verir.

• Now()               Sistem zamanını verir.

• Right()              String bilgiler üzerinde, belirtilen sayı kadar sağdan alır.

• UCase()            String bilgiyi büyük harfe çevirir.

Scriptleri Çalıştırmak

Script’ler Windows ortamında çalışırlar. Masaüstünde çift tıklanarak ya da Start/Run ortamında çalıştırılabilirler.

Script dosyalarının türleri:

Batch Files (.BAT)

Genelde bütün Windows versiyonları ve DOS ortamlarında çalışır. Logon Script dosyalar .BAT olarak hazırlanabilir.

Command Files (.CMD)

Windows NT ile gelmiştir. 32-Bit Command Processor ister. .BAT ile hemen hemen aynıdır.

Visual Basic Script (.VBS)

32-Bit Windows Command Processor ister. Windows ortamında çalışır.

JAVA Script (.JS)

Genellikle Internet ortamında kullanılır.

Scriptler komut satırından doğrudan ya da bir dosya olarak hazırlanıp çalıştırılabilir. Birkaç satırlık scriptler komut satırından doğrudan uygulanabilir. Uzun scriptler ise bir .VBS dosyası olarak oluşturulur.

Bat dosyası:

Logon sırasında çalışmak üzere bir logon Script dosyası yaratılmışsa bu dosya server üzerinde belli bir yere konur:

basla.bat

%systemroot%\SYSVOL\sysvol\domain_adı\scripts\ basla.bat

Bu dosyada; örneğin içinde bir paylaşıma map yaratmak olabilir.

NET USE Z: \\sunucu\paylasim

Script Dosyaları

Script dosyaları program parçaları aracılığıyla yönetim işlemlerine yardımcı olurlar. Biraz “programcılık bilmek gerekir” diyebiliriz, ancak önemli olan temel bileşenleri iyi bilmek ve script’i basit bir şekilde hazırlamaktır. Scriptler, NotePad gibi bir metin düzenleyici programla hazırlanabilir.

Active Directory domaini üzerinde bir kullanıcı yaratan scripti inceleyelim:

Dim adi

adi = inputbox(“Kullanıcı adı:”,”Kullanıcı”)

Set OU = GetObject(“LDAP://OU=izmir,dc=ceyhuncamli,dc=com“)

Set kullanici = OU.Create(“User”,”cn=” & adi)

kullanici.Put “sAMAccountName”, adi

kullanici.SetInfo

Satırları inceleyelim:

Dim adi

Adi adlı bir değişken tanımlanır. Türü belirtilmemiş, varsayım tür kabul edilmiştir.

adi = inputbox(“Kullanıcı adı:”,”Kullanıcı”)

InputBox fonksiyonu aracılığıyla ekranda bilgi istenir.

adi = inputbox(“Kullanıcı adını girin:”)

şeklinde de olabilir.

Set OU = GetObject(“LDAP://OU=bilgiislem,dc=ceyhuncamli,dc=com“)

Bu satır ise; LDAP tanımı yaparak bir OU ve domaini belirtmek. Burada LDAP, Active Directory nesnelerine erişim için kullanılan bir providerdir. Lokal bilgisayara erişmek için ise WinNT provider’ı kullanılır.

Set kullanici = OU.Create(“User”,”cn=” & adi)

OU üzerinde kullanıcıyı yaratmak. Burada hem Create deyimi, hem de yine nesnenin gösterimi için gerekli kurallara uyulur.

kullanici.Put “sAMAccountName”, adi

kullanici.SetInfo

PUT ve SETINFO deyimleriyle de kullanıcı adının Active Directory veritabanına eklenmesi sağlanır.

Lokal bilgisayar için script yazmak:

Lokal bilgisayar üzerindeki işlemler için ise kullanacağımız nesne LDAP değil WinNT’dir.

Lokal kullanıcı yaratmak için:

strComputer = “SERVER”

Set objGroup = GetObject(“WinNT://” & strComputer & “/Administrators”)

Set objUser = GetObject(“WinNT://” & strComputer & “/ceyhun.camli”)

objGroup.Add(objUser.ADsPath)

Active Directory Script’leri

Active Directory scriptlerinin amacı tipik yönetim işlemlerine yardımcı olmaktır. Belki daha kolay yapmaktır. Ancak yine de yönetime biraz programcı açısından bakmak gerekebilir. Örneğin kullanıcıları bir yerden transfer etmek ve yaratmak gibi.

Administrative Script’ler

Belli yönetim işlemleri (administrative tasks) scriptler aracılığıyla yapılır.

Örnek:

·         Kullanıcı, grup, OU ve diğer Active Directory bileşenlerini yaratmak, değiştirmek ve silmek.

·         Bilgisayarları yapılandırmak.

·         Dosyaları, klasörleri ve diskleri yönetmek.

Windows Server 2003 ailesinde iki script ortamı vardır:

·         Komut işleyici

·         Windows Script Host (WSH)

Komut işleyici (command processor) komutları içeren dosyaları çalıştırır. Batch dili olarak da adlandırılan bu yöntemde belli komutlar kullanıldığı için kısıtlıdır. Ancak eski işletim sistemleri tarafından da desteklenmektedir.

Windows Script Host, scriptlerin çalışması için bir ortam yaratır. Diğer bir değişle değişik script dillerini destekleyen script enginidir. JScript ve VBScript’i destekler.

Örneğin VBScript ya da Jscript komutları Active Directory Service Interfaces (ADSI) verilerine erişerek nesneleri yönetilmesini. Ayrıca Management Instrumentation (WMI) ile iletişim kurarak da sistem kaynaklarına erişmeyi sağlar.

İki script dilinin yanı sıra WSH iki programı da destekler: WScript.exe ve CScript.exe.

Active Directory’ye erişmek kullanılan yapı:

Set objOU = GetObject(“LDAP://OU=bilgiislem,dc=ceyhuncamli,dc=com“)

Bilgisayar kaydı eklemek:

dim computername

computername = inputbox(“bilgisayar adini girin“)

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

Set objContainer = GetObject(“LDAP://cn=Computers,” & _

    objRootDSE.Get(“defaultNamingContext”))

Set objComputer = objContainer.Create _

    (“Computer”, “cn=” & computername)

objComputer.Put “sAMAccountName”, computername & “$”

objComputer.SetInfo

Bilgisayar kaydı eklemek :

Dim computername

Dim ouadi

computername = inputbox(“bilgisayar adı“)

ouadi = inputbox(“OU adi”)

Set objou = GetObject(“LDAP://dc=ceyhuncamli,dc=com“)

Set objcomputer = objOU.Create(“computer”,”cn=” & computername,”cn=”, ouadi )

objComputer.Put “saMAccountName”, ” computername “

objComputer.SetInfo

Bilgisayar kaydını silmek:

strComputer = “comp1

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

    “,CN=Computers,DC=ceyhuncamli,DC=com“)

objComputer.DeleteObject (0)

Bilgisayarı diğer bir OU’ya taşımak:

Set objNewOU = GetObject(“LDAP://OU=muhasebe,DC=ceyhuncamli,DC=com“)

Set objMoveComputer = objNewOU.MoveHere _

    (“LDAP://CN=comp1,CN=Computers,DC=ceyhuncamli,DC=com“, “CN=comp1“)

Kullanıcı hesabı oluşturmak:

dim kullanici

kullanici = inputbox (“kullanıcı adı“)

Set objou = GetObject(“LDAP://OU=satis,DC=ceyhuncamli,DC=com“)

set objuser = objou.Create(“user”,”cn=” & kullanici)

objuser.put  “saMAccountName”, kullanici

objuser.setinfo

objuser.accountdisabled = false

objuser.setinfo

Kullanıcı hesabı yaratmak- Grup ve OU’ya Ekleme:

Set objDomain = GetObject(“LDAP://dc=ceyhuncamli,dc=com“)

Set objOU = objDomain.Create(“organizationalUnit”, “ou=Yonetim“)

objOU.SetInfo

Set objOU = GetObject(“LDAP://OU=Yonetim,dc=ceyhuncamli,dc=com“)

Set objUser = objOU.Create(“User”, “cn=Ceyhun.Camli“)

objUser.Put “sAMAccountName”, “Ceyhun.Camli

objUser.SetInfo

Set objOU = GetObject(“LDAP://OU=Yonetim,dc=ceyhuncamli,dc=com“)

Set objGroup = objOU.Create(“Group”, “cn=sistem“)

objGroup.Put “sAMAccountName”, “sistem

objGroup.SetInfo

objGroup.Add objUser.ADSPath

Kullanıcı password’ünü değiştirmek:

Set objUser = GetObject _

    (“LDAP://cn=user2,ou=muhasebe,dc=ceyhuncamli,dc=com”)

objUser.ChangePassword “Pa*ktrYH3″, “XY*12z@trK”

Kullanıcı hesabını Enable etmek:

Set objUser = GetObject (“LDAP://cn=user1,ou=satis,dc=ceyhuncamli,dc=com“)

objUser.AccountDisabled = FALSE

objUser.SetInfo

Kullanıcı hesabını Disable etmek:

Const ADS_UF_ACCOUNTDISABLE = 2

Set objUser = GetObject _

(“LDAP://cn=user1,ou=satis,dc=ceyhuncamli,dc=com“)

intUAC = objUser.Get(“userAccountControl”)

objUser.Put “userAccountControl”, intUAC OR ADS_UF_ACCOUNTDISABLE

objUser.SetInfo

Toplu kullanıcı kaydı oluşturmak:

Kullanici1’den başlamak üzere n tane Kullanici kaydı oluşturmak için:

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

Set objContainer = GetObject(“LDAP://cn=Users,” & _

    objRootDSE.Get(“defaultNamingContext”))

For i = 1 To 50

    Set objLeaf = objContainer.Create(“User”, “cn= Kullanici ”  &  i)

    objLeaf.Put “sAMAccountName”, “ Kullanici ” & i

    objLeaf.SetInfo

Next

WScript.Echo “50 kullanici kaydi yaratilmistir

Bir Global group yaratmak:

Set objOU = GetObject(“LDAP://OU=satıs,dc=ceyhuncamli,dc=com“)

Set objGroup = objOU.Create(“Group”, “cn=pazarlamacilar“)

objGroup.Put “sAMAccountName”, “ pazarlamacilar

objGroup.SetInfo

Grup hesabını silmek:

Set objOU = GetObject(“LDAP://ou=izmirOU,dc=ceyhuncamli,dc=com“)

objOU.Delete “group”, “pazarlamacilar

Bir OU yaratmak:

Set objDomain = GetObject(“LDAP://dc=ceyhuncamli,dc=com“)

Set objOU = objDomain.Create(“organizationalUnit”, “ou=Muhasebe“)

objOU.SetInfo

OU Silmek:

Set objDomain = GetObject(“LDAP://dc=ceyhuncamli,dc=com“)

objDomain.Delete “organizationalUnit”, “ou=Muhasebe

İnternet Explorer’da Sık Kullanılanlara Web Sitesi Eklemek

Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject(“Shell.Application”)

Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)

Set objFolderItem = objFolder.Self    

Set objShell = WScript.CreateObject(“WScript.Shell”)

strDesktopFld = objFolderItem.Path

Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & “\tuzlabilgisayar.url“)

objURLShortcut.TargetPath = “http://www.tuzlabilgisayar.com

objURLShortcut.Save

Excel üzerinde Active Directory nesnesi oluşturma:

Sub Dügme1_Tiklat()

Dim kullanici

For i = 1 To 7

kullanici = Sheets(“sayfa1”).Cells(i, 2).Value & Mid(Sheets(“sayfa1”).Cells(i, 1).Value, 1, 1)

‘ soyadi , arti adinin ilk karakteri

kullanici = Sheets(“sayfa1”).Cells(i, 1).Value

‘ adi

Set nesne1 = GetObject(“LDAP://ou=satis,dc=ceyhuncamli,dc=com“)

Set nesne2 = nesne1.create(“user”, “cn=” & kullanici)

nesne2.put “samaccountname”, kullanici

nesne2.SetInfo

Next

End Sub

 

Yukarıdaki kod içinde: 

Kullanılan deyim:

Sheets (sayfa).Cells (satir, sütun)

İkinci sütundan Soyadını almak için:

Sheets(“sayfa1”).Cells(i, 2).Value

Birinci sütundan adının ilk karakterini almak için:

Mid(Sheets(“sayfa1”).Cells(i, 1).Value, 1, 1)

Kodu düzenlemek için; Excel ortamında Forms (Formlar) araç çubuğu aracılığıyla bir düğme çalışma ortamına eklenir. Ardından Assign Macro (Makro Ata) iletişim kutusu aracılığıyla yeni (new) kod eklenir.

sizlere tuzlabilgisayarci.net farkıyla sunulmuştur. Tuzla BilgisayarGökyüzü Bilgisayar

Hakkında ates_kqual202

Cevapla

Scroll To Top