Teknolojikadam Blogs | Microsoft Server, Exchange, Forefront ve Client Ürünleri İçin Kaynak Site - Makaleler, Videolar ve Haberler » Script

Client pclerin saatlerinin senkronize edilmesi

Özgür Özocak — Sun, 31 Jan 2010 13:19:24 +0000

Aşağıdaki script sisteminizdeki client bilgisayarların,domain controller ile aynı saat ayarlarını almasını sağlar.Uzantısını vbs olarak kaydedin ve gpo ile domain ortamınıza uygulayın

servername yazan yere kendi dc sunucu isminizi yazmayı unutmayınız.

Kod şöyle;

Dim wshell
Set wshell = CreateObject(”WScript.Shell”)
wshell.Run “%COMSPEC% /c net time \\servername /set /y”,0,TRUE
set wshell = Nothing

Sistem adminleri için kod arşivi

Özgür Özocak — Fri, 29 Jan 2010 13:03:06 +0000

Her sistemcinin arşivinde bulunması gereken kod arşivini aşağıdaki linkten indirebilirsiniz.

kodlar.rar

Script ile local user açmak ve gruba eklemek

Özgür Özocak — Sun, 13 Dec 2009 21:34:48 +0000

Bu script sayesinde bilgisayar üzerinde yeni bir local user account yaratılmış, bu local user account’a bir password atanmış ve account ilgili gruba member edilmiş olur. Bununla birlikte account için “password never expires” ayarıda enable olur yani password süresiz olarak geçerlidir.

Script içerisinde strAccount, strPswd ve son bölümdeki Set objGroup satırında grup bilgisini düzenlemeyi unutmayın.

' specify account to create
strAccount = "Ozgur"
strPswd = "123456"

' get local computer name
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

' check if local account already exists
intExists = 0
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
    If objUser.Name = strAccount Then
     intExists = 1
  End If
Next

If intExists = 0 Then
   ' create local user
   Set colAccounts = GetObject("WinNT://" & strComputer & "")
   Set objUser = colAccounts.Create("user", strAccount)

   ' set pswd
   objUser.SetPassword strPswd
   objUser.SetInfo

   ' set pswd never expires
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
   objUserFlags = objUser.Get("UserFlags")
   objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
   objUser.Put "userFlags", objPasswordExpirationFlag
   objUser.SetInfo

   ' add to local admins group
   Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
   Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",user")
   objGroup.Add(objUser.ADsPath)
End If

Windows firewall’u group policy ile kapatın

Özgür Özocak — Sun, 13 Dec 2009 21:02:18 +0000

Uzantısını vbs yapıp group policy ile istediğiniz bilgisayarlara logon script olarak uygulayabilirsiniz yada direk çalıştırın.

Set objFirewall = CreateObject(”HNetCfg.FwMgr”)Set objPolicy =
objFirewall.LocalPolicy.CurrentProfileobjPolicy.FirewallEnabled = FALSE

Group policy’i açın ve logon script olarak ekleyin.

Vb script ile otomatik alt+tab

Özgür Özocak — Thu, 26 Nov 2009 10:11:14 +0000

Vb scriptlerin nimetlerinden faydalanmaya devam ediyoruz. Bu seferki scriptimiz belirlediğiniz süre içerisinde otomatik alt+tab tuş kombinasyonu yapıyor.Ne işimize yarayacak diyebilirsiniz.Hemen kısa bir örnek vereyim; alt+tab tuş kombinasyonunu kısayol olarak kullanan bir program kullandığınızı ve bu programın her 5 dakikada bir refresh edilmesi gerektiğini varsayalım.İşte böyle bir durumda bu script çok işinize yarayabilir.

Option Explicit
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Do
objShell.SendKeys "%+{TAB}"
Wscript.Sleep 180000
Loop

Dikkat : 180000 = 3 dk