Detay için tıklayın

Sysocmgr.exe programı command prompt dediğimiz siyah komut ekranından bilgi girişi yaparak windows componentlerini ekleyip kaldırmamızı sağlar. Sysocmgr.exe Longhorn ve Vista öncesi sürümlerde desteklenmektedir.

sysocmgr /i:%windir%\inf\sysoc.inf /u:c:\ocm.txt

komutu girilerek gerekli kurulumların yapılması sağlanır. yukarıdaki komutu incelersek ocm.txt dosyasının cevap dosyası olduğunu yani hangi programların kaldırılıp hangilerinin ekleneceğini gösterdiğini görebiliriz. Örnek ocm.txt dosyası şu şekilde olmalıdır:

[Components]
Netoc = on
Reminst = on
Paint = off
pinball = off
Solitaire = off

[NetOptionalComponents]
lpdsvc = 1
SimpTcp = 1
wins = 1

Sysocmgr.exe Microsoft Fax Service, Windows Media Player, COM+, ve Distributed Transaction Coordinator eklenmesi veya kaldırılması ile işlem yapamaz. Bunlar opsiyonel bileşen olmayıp ana bileşendir.

Merhaba,

Hangi kullanıcının hangi makinaya logon olduğu her zaman akla gelen bir sorudur. Buna en mantıklı çözüm kullanıcı ve computer description bölümlerini değiştirmek olabilir. Kısaca Logon olan kullanıcının bilgileri aşağıdaki şekilde düzenlenebilir.

Set objSysInfo = CreateObject("ADSystemInfo")

Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)

strMessage = objUser.CN & " kullanıcısı " & objComputer.CN & " makinasına " & Now & "saatinde logon oldu."

objUser.Description = strMessage
objUser.SetInfo

objComputer.Description = strMessage
objComputer.SetInfo

Temel problemlerden bir tanesi kullanıcının ne kadar süre idle dediğimiz hareketsiz durumda kaldığını tespit edebilmenin güçlüğü. Bu yüzden belli bir süre sonra screen saver devreye girdiğini varsayarak kullanıcıyı (logout) sistemden dışarı atıyoruz. Burada akla screen saver devreye girme süresi ile ilgili script soru işareti olabilir. hemen alttaki script bu işi yapıyor. Strvalue değerine tanımlanan 600 saniye cinsindendir. Bunu istediğiniz kadar uzatıp kısaltmak elinizde

HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Control Panel\Desktop"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
ValueName = "ScreenSaveTimeout"
strValue = "600"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue



Aşağıdaki script sisteminizde ekran koruyucunun devreye girip girmediğini kontrol ediyor. Eğer ekran koruyucunuz devreye girdiyse kullanıcıyı sistemden dışarı atıyor.


strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set objEventSource = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN 10 WHERE TargetInstance ISA 'Win32_Process'")

Do While True
Set objEventObject = objEventSource.NextEvent()
If Right(objEventObject.TargetInstance.Name, 4) = ".scr" Then
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
objItem.Win32Shutdown(4)
Next
End If
Loop

Merhaba,

Aşağıdaki script ile excel'de otomatik kaydetme ve kaydetme aralıklarını tanımlayabilirsiniz.

Set objExcel = CreateObject("Excel.Application")

objExcel.AutoRecover.Enabled = True
objExcel.AutoRecover.Time = 5

objExcel.Quit

Aşağıdaki script ile ekrana excel'inizin otomatik kaydetme opsiyonlarını sergileyebilirsiniz.

Set objExcel = CreateObject("Excel.Application")

Wscript.Echo "AutoRecover enabled: " & objExcel.AutoRecover.Enabled
Wscript.Echo "AutoRecover interval: " & objExcel.AutoRecover.Time
Wscript.Echo "AutoRecover path: " & objExcel.AutoRecover.Path

Merhaba,

Aşağıdaki script bir logon script. Temel olarak yaptığı işlem, domain'e logon olan kişinin kullanıcı adını alıp word'de kullanıcı bilgisini değiştirmek.

Kolay gelsin...

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.givenName & " " & objUser.SN
objWord.UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1)
objWord.Quit

strGroup="NewGroupName"
Set oDomain = GetObject("WinNT://YourDomain")
Set oGroup = oDomain.Create ("group", strGroup)
oGroup.SetInfo

strUser="UserID"
strGroup="GroupName"
Set oDomain = GetObject("WinNT://YourDomain")
Set oGroup = oDomain.GetObject("Group", strGroup)
oGroup.Add ("WinNT://YourDomain/" & strUser)

Herhangi bir tarihe bir ay eklemek veya çıkarmak oldukça kolay.

1. Örnek günün tarihine 1 ay eklemek üstüne
WScript.Echo date
wscript.echo(DateAdd("m",1, date))

2. Örnek günün tarihine 1 ay çıkarmak üstüne
WScript.Echo date
wscript.echo(DateAdd("m",-1, date))

Merhaba,

Günlük olarak sistem loglarınızın yedeklenmesini istemez miydiniz? Aşağıdaki script bu işi yapıyor. Temelde windows üstünde 3 tip log dosyası var; System, Security ve Application. Aşağıdaki örnekte Application log yedeği alma örneğini görüyorsunuz.

set LogFileSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup)}").ExecQuery ("select * from Win32_NTEventLogFile where LogfileName='Application'")

For each Logfile in LogFileSet
RetVal = LogFile.BackupEventlog("c:\" & date & "app.LOG")
if RetVal = 0 then WScript.Echo "Aplikasyon Logu Alındı..."
Next

%HOMEDRIVE%
Kullanıcının lokal makinasında verilmiş olan home directory'sine bağlanmayı sağlayan harf

%HOMEPATH%
Home Directory'sine ait path

%HOMESHARE%
Home Directory share name

%OS%
Operating System

%PROCESSOR_ARCHITECTURE%
İşelmci tipi (80386 gibi)

%PROCESSOR_LEVEL%
İşlemci seviyesi

%USERDOMAIN%
Kullanıcının bağlı olduğu domain

%USERNAME%
Kullanıcı adı

%USERPROFILE%
Kullanıcı Profilinin durduğu path

Dim oContainer
Set oContainer=GetObject("LDAP://OU=Ouname,DC=Domain,DC=com")

ModifyUsers oContainer

'cleanup
Set oContainer = Nothing

WScript.Echo "Finished"

Sub ModifyUsers(oObject)
Dim oUser
oObject.Filter = Array("user")
For Each oUser in oObject
oUser.SetPassword "12345678"
oUser.SetInfo
Next
End Sub