"Script" etiketi için bulunan tüm sonuçlar:

Paylaşımdan Yazıcı Ekliyoruz – Script

01.11.2007 | 19:13 Çözümler , Windows 1 Yorum


strComputer = "127.0.0.1"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Local = TRUE")
If colPrinters.Count = 0 Then
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\PrintServer1\Xerox300"
objNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"
End If

\\PrintServer1\Xerox300” bölümlerini sistemimize göre düzenleyerek domain ortamına uygulayabilirsiniz.

Kullanıcıyı Gruba Ekleme – Script

28.10.2007 | 23:27 Çözümler , Windows 1 Yorum

strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users")
Set objUser = GetObject("WinNT://" & strComputer & "/Deneme")
objGroup.Add(objUser.ADsPath)

Yukarıdaki VB Scrip çalıştığı bilgisayar üzerinde Deneme kullanıcısını Power Users gurubuna dahil eder. Gerekli şekilde düzenleyip kullanabilirsiniz.

Terminalleri Domaine Alma – Script

28.10.2007 | 23:24 Çözümler , Windows 7 Yorum


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

strDomain = “DomainName”
strPassword = “123456”
strUser = “administrator”

Set objNetwork = CreateObject(“WScript.Network”)
strComputer = objNetwork.ComputerName

Set objComputer = GetObject(“winmgmts:{impersonationLevel=Impersonate}!\\” & _
strComputer & “\root\cimv2:Win32_ComputerSystem.Name=’” & _
strComputer & “‘”)

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & “\” & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
ADsPath)

Script içindeki domain name, 123456 ve administrator alanlarını kendi sistemimize göre düzenledikten sora terminaller üzerinde çalıştırıyoruz.

Bilgisayar İsmini Değiştirelim – Script

27.10.2007 | 09:52 Çözümler , Windows 0 Yorum

Bazı durumlarda bilgisayar ismini bir VB Script yardımıyla değiştirmek isteyebilirsiniz.

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("Terminal48")
Next

Gerekli düzenlemeyi yaptıktan sonra uzantısını VBS yapıp kaydediyoruz. Yukarıdaki örnekte, scriptin çalıştığı bilgisayarın ismi Terminal48 olarak değişir.

Grup Üyeliğinden Çıkartmak – Script

27.10.2007 | 09:52 Çözümler , Windows , Windows Server 0 Yorum

Bazı durumlarda bir kullanıcı hesabını VB Script yardımıyla bir grup üyeliğinden çıkartmanız gerekebilir.

strComputer = “.”

Set objAdmins = GetObject(“WinNT://” & strComputer & “/Administrators”)
Set objGroup = GetObject(“WinNT://sistem/user17”)
objAdmins.Remove(objGroup.ADsPath)

Yukarıdaki satırlar üzerinde gerekli düzenlemeyi yaptıktan sonra uzantısını VBS yapıp kaydediyoruz. Scriptin çalıştığı bilgisayarda, sistem domainindeki user17 kullanıcısı, yerel administrators gurubundan silinir.

GPO ile domain’e uygulayabiliyoruz.

Ağ Bağlantısı İsmini Değiştirmek – Script

27.10.2007 | 09:51 Çözümler , Windows 0 Yorum

Bazı durumlarda ağ bağlantısı ismini bir VB Script yardımıyla değiştirmek isteyebilirsiniz.

Aşağıdaki kod üzerinde gerekli düzenlemeleri yaptıktan sonra uzantısını VBS yapıp kaydederek kullanabilirsiniz.

Const NETWORK_CONNECTIONS = &H31&

Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)

Set colItems = objFolder.Items
For Each objItem in colItems
If objItem.Name = “Local Area Connection” Then
objItem.Name = “Local”
End If
Next

“Local Area Connection” yazan değer değişecek ağ bağlantısı ismini temsil ediyor. “Local” yazan ise yeni atanacak ağ bağlantısı ismi.

Script’i GPO ile domain’e uygulayabilirsiniz.

Windows Güenlik Duvarı Aç/Kapat – Script

27.10.2007 | 09:49 Çözümler , Windows , Windows Server 7 Yorum

Bazı durumlarda Windows Güvenlik Duvarı özelliğini açmak veya kapatmak için bir VB Script ‘e ihtiyaç duyabilirsiniz. Aşağıdaki komut satırları tam olarak bu işi yapıyor.

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE

FALSE değeri, güvenlik duvarının kapalı olacağını gösterir. Bu değeri TRUE yaparsanız güvenlik duvarı açık olur.

Aynı işi Netsh komutuyla da yapabilirsiniz.

netsh firewall>set opmode enable     güvenlik duvarını açar.

netsh firewall>set opmode disable     güvenlik duvarını kapatır.

Local Admin Parolasını Değiştirmek – Script

26.10.2007 | 12:45 Çözümler , Windows , Windows Server 32 Yorum

Bazen ortamınızdaki local administrator (yerel yönetici) hesaplarının parolalarını değiştirmeniz gerekebilir. Aşağıdaki VBS komut satırlarını kullanarak local administrator parola değiştirme işlemini topluca ve kolay bir şekilde uygulayabilirsiniz.

strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "NewPassword"
objUser.SetInfo

NewPassword yazan yere yeni şifreyi yazıyoruz. Dosya uzantısını VBS yapıp çalıştırıyoruz.

Birden fazla bilgisayarda bu işlemi yapmak için GPO ile domain ortamına uygulayabilirsiniz.

– Güncelleme (25.3.2015) –

Eğer ortamınızdaki DC’ler Windows Server 2008 veya sonraki sürümlerle çalışıyor ise, Local Users and Groups policy ayarını kullanarak administrator veya diğer yerel hesapların parolalarının değiştirilmesi, gruplara üye yapılması, grup üyeliklerinden çıkartılması, hesap isimlerinin değiştirilmesi gibi işlemleri çok daha kolay bir şekilde gerçekleştirebilirsiniz.

1
2