Saugata Datta – Page 14 – Techno Chat

Custom Group Policy(GPO) for Changing Desktop Background Colour

October 8, 2008 Saugata Datta Group Policy 8 comments

As per requirement, we need to change all client windows (XP, and 2003) desktop BG color, but it’s impossible to change BG colour manually over 1000 desktop. So, we have to do it with an automatic process. First we have to find out what happened on registry, while we changing Desktop BG color, and to do so, we need a

Continue

Tiny USB Pendrive/HDD Blocker UBlock v0.3

October 6, 2008 Saugata Datta Admin Tools One comment

Disable USB Pendrive/HDD in ur Computer for security, it’s more effective if you have cybercafe, u can easily able to block USB access, and prevent file copy, and protect your computer from virus. Actually one of my friend have a cybercafe, he request me to make something which can disable USB Pen drive access from all of his client PC,

Continue

OS Dependent Logoff/Logon Script run via GPO

October 6, 2008 Saugata Datta Scripts One comment

Use following VBS script Startup or Shutdown script.

Option Explicit
Dim objItem, colItems, objWMIService, strComputer, objShell
strComputer = "."
Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\" &amp; strComputer &amp; "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
                If InStr(objItem.Caption,"2000") Then
                                'Add your line here for 2000
                                objShell.Run "regedit", 1, True
                End If
    		If InStr(LCase(objItem.Caption),Lcase("XP")) Then
                                'Add your command line here for 2000
                                objShell.Run "calc", 1, True
                End If
		If InStr(LCase(objItem.Caption),Lcase("2003")) Then
                                'Add your command line here for 2000
                                objShell.Run "notepad", 1, True
                End If
Next

Option Explicit

Dim objItem, colItems, objWMIService, strComputer, objShell

strComputer = "."

Set objShell = CreateObject("WScript.Shell")

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)

For Each objItem in colItems

If InStr(objItem.Caption,"2000") Then

'Add your line here for 2000

objShell.Run "regedit", 1, True

End If

If InStr(LCase(objItem.Caption),Lcase("XP")) Then

'Add your command line here for 2000

objShell.Run "calc", 1, True

End If

If InStr(LCase(objItem.Caption),Lcase("2003")) Then

'Add your command line here for 2000

objShell.Run "notepad", 1, True

End If

with above script, on Windows 2000 it will execute regedit.exe, on Windows XP it will execute calc.exe, and on Windows 2003 it will execute notepad.exe. You can change the file as you wish..

Continue

Hello world!

October 4, 2008 Saugata Datta Off-Topic Leave a comment

Welcome to Technochat.in, a place for all of us… Have fun.. 🙂

Continue