ASKER
ASKER
ASKER
ASKER
dim strComputer
' Read computer name from argument supplied - if no argument, assume local machine
if WScript.Arguments.Count<1 then
strComputer="."
else
strComputer=WScript.Arguments(0)
end if
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
dim oReg: Set oReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
oReg.SetStringValue HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Run","ctfmon.exe","ctfmon.exe"
oReg.SetDWORDValue HKEY_CURRENT_USER,"Software\Microsoft\CTF","Disable Thread Input Manager",1
oReg.SetDWORDValue HKEY_CURRENT_USER,"Software\Microsoft\CTF\MSUTB","ShowDeskBand",0
This topic area includes legacy versions of Windows prior to Windows 2000: Windows 3/3.1, Windows 95 and Windows 98, plus any other Windows-related versions including Windows Mobile.
TRUSTED BY
Add them both to yoru domains sysvol folder, to propergate them throughout the domain.
use group policy to run them once on login.