Recently after installing FAX Server on our site, we are having some problem with opening received FAX file from user desktop. FAX files are .G3N/.G3F/.CTL of which .G3N and .G3F file can be opened in Windows Image Viewer and .CTL file can be opened in Notepad. But the problem is, users have to make it their own, or we have
Category: Scripts
Any type of scripting VBScript, JS, Python, Ansible, YML
Disable Print Screen Function Via VBS Script (By using GPO Startup/Shutdown Script)
Another requirement, now customer need to disable default windows Print Screen function on all of their user desktop, So, we started our searching again, and easily we able to find out how to disable print screen on windows by importing following registry.
|
1 2 3 |
[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboard Layout] "Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,37,e0,00,00,54,00, 00,00,00,00 |
So, again we start working to create a custom adm file. As because this is a HKLM
Custom Group Policy(GPO) for Changing Desktop Background Colour
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
OS Dependent Logoff/Logon Script run via GPO
Use following VBS script Startup or Shutdown script.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
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 Next |
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..