PC Professionell 2006 May

home *** CD-ROM | disk | FTP | other *** search

/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileScripts001 < prev next >

Wrap

Extensible Markup Language | 2005-09-02 | 16.0 KB | 215 lines

■<?xml version="1.0" ?> <package> <comment> ' *** ' *** ------------------------------------------------------------------------------ ' *** Filename: Accessibility.wsf ' *** ------------------------------------------------------------------------------ ' *** Description: Command-line interface to the Accessibility tool ' *** This file parses command line parameters and calls functions ' *** that are defined in clsUserAccess.vbs ' *** ------------------------------------------------------------------------------ ' *** Version: 1.0 ' *** Notes: ' *** ------------------------------------------------------------------------------ ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved ' *** ------------------------------------------------------------------------------ ' *** </comment> <job> <runtime> <description>Accessibility Tool</description> <named name="LargePointer" required="false" many="false" helpstring="Extra Large Pointer" /> <named name="Magnifier" required="false" many="false" helpstring="Magnify" /> <named name="StickyKeys" required="false" many="false" helpstring="StickyKeys" /> <named name="FilterKeys" required="false" many="false" helpstring="Filter Keys" /> <named name="MouseKeys" required="false" many="false" helpstring="Mouse Keys" /> <named name="OSK" required="false" many="false" helpstring="On Screen Keyboard" /> <named name="Narrator" required="false" many="false" helpstring="Narrator" /> <named name="SoundSentry" required="false" many="false" helpstring="Sound Sentry" /> <named name="ShowSound" required="false" many="false" helpstring="Show Sound" /> <named name="HighContrast" required="false" many="false" helpstring="/HighContrast:theme turns on High Contrast | /HighContrast: turn off High Contrast" />  <example>Example: Accessibility.wsf /HighContrast:"theme" /LargePointer /Narrator /StickyKeys</example> </runtime> <resource id="CScriptMessage">Restarting script in command-line mode. Run CmdOn.BAT to set command-line mode as the default mode.</resource> <resource id="CScriptTitle">Shared Computer Toolkit: Windows Script Mode Detected</resource> <?job error="True" debug="False" ?> <script language="VBScript" src="../include/Common.vbs"></script> <script language="VBScript" src="../include/libWSF.vbs"></script> <script language="VBScript" src="../include/clsLogging.vbs"></script> <script language="VBScript" src="../include/clsAccessibility.vbs"></script> <script language="VBScript"> <![CDATA[ ' ~~~ ' ~~~ Force variables to be declared ' ~~~ Option Explicit ' ~~~ ' ~~~ Declare variables and constants ' ~~~ Dim oLog, args, oAccessibility, bOk, sCurrentContrast, sNewContrast ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Logging ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Create logging object ' Set oLog = New Logging ' ~~~ Initiate logging ' Call oLog.Open(GetRootFolder & "\log\Accessibility.wsf.log") ' Call oLog.Write("Accessibility.wsf : Started") Call Main("Accessibility.hta") Set oAccessibility = New accessibility bOk = False sCurrentContrast = "" ' ~~~ Stores the currently existing contrast value sNewContrast = "" ' ~~~ Stores the new contrast to be applied Set args = Wscript.Arguments ' ~~~ Set High Contrast If Wscript.Arguments.Named.Exists("HighContrast") Then bOk = True If Wscript.Arguments.Named("HighContrast") <> "" Then ' ~~~ Get the current set high contrast theme from registry sCurrentContrast = RegRead( "HKEY_CURRENT_USER\Control Panel\Accessibility\HighContrast\High Contrast Scheme") ' ~~~ Store the new high contrast theme to be applied sNewContrast = Wscript.Arguments.Named("HighContrast") ' ~~~ Check if the high contrast theme entered in command line exists ' ~~~ in the system If oAccessibility.GetContrastThemes("WSF",sNewContrast) = "" Then WScript.Echo "The high contrast theme entered is not valid" QuitScript() Else ' ~~~ Get the actual theme name from the system sNewContrast = oAccessibility.GetContrastThemes("WSF",sNewContrast) End If ' ~~~ If the current and new high contrast themes are different and high contrast is on or ' ~~~ If both themes are same and high contrast is off then apply high contrast If ( UCase(sCurrentContrast) <> UCase(sNewContrast)) OR ( UCase(sCurrentContrast) = UCase(sNewContrast) AND oAccessibility.GetOption ("contrast") = 0 ) Then sCurrentContrast = sNewContrast RegWrite "HKEY_CURRENT_USER\Control Panel\Accessibility\HighContrast\High Contrast Scheme" , sNewContrast , "REG_SZ" ' ~~~ SetContrast function oAccessibility.SetOption "contrast", 1 End If Else sCurrentContrast = "" If oAccessibility.GetOption ("contrast") <> 0 Then oAccessibility.SetOption "contrast", 0 End If End If End If ' ~~~ Toggle Extra Large Pointer If Wscript.Arguments.Named.Exists("LargePointer") Then bOk = True If oAccessibility.GetOption ("largepointer") Then oAccessibility.SetOption "largepointer", 0 Else oAccessibility.SetOption "largepointer" , 1 End If End If ' ~~~ Toggle Magnifier If Wscript.Arguments.Named.Exists("Magnifier") Then bOk = True If oAccessibility.Get_ProcessStatus("magnifier") Then oAccessibility.CloseApplication() Else oAccessibility.Start_Process("magnifier") End If End If ' ~~~ Toggle Sticky Keys If Wscript.Arguments.Named.Exists("StickyKeys") Then bOk = True If oAccessibility.GetOption ("stickykeys") Then oAccessibility.SetOption "stickykeys" , 0 Else oAccessibility.SetOption "stickykeys" , 1 End If End If ' ~~~ Toggle Filter Keys If Wscript.Arguments.Named.Exists("FilterKeys") Then bOk = True If oAccessibility.GetOption ("filterkeys") Then oAccessibility.SetOption "filterkeys", 0 Else oAccessibility.SetOption "filterkeys" , 1 End If End If ' ~~~ Toggle Mouse Keys If Wscript.Arguments.Named.Exists("MouseKeys") Then bOk = True If oAccessibility.GetOption ("mousekeys") Then oAccessibility.SetOption "mousekeys" , 0 Else oAccessibility.SetOption "mousekeys" , 1 End If End If ' ~~~ Toggle On Screen Keyboard If Wscript.Arguments.Named.Exists("OSK") Then bOk = True If oAccessibility.Get_ProcessStatus("oskeyboard") Then oAccessibility.End_Process("osk.exe") Else oAccessibility.Start_Process("oskeyboard") End If End If ' ~~~ Toggle Narrator If Wscript.Arguments.Named.Exists("Narrator") Then bOk = True If oAccessibility.Get_ProcessStatus("narrator") Then oAccessibility.End_Process("narrator.exe") Else oAccessibility.Start_Process("narrator") End If End If ' ~~~ Toggle Sound Sentry If Wscript.Arguments.Named.Exists("SoundSentry") Then bOk = True If oAccessibility.GetOption ("soundsentry") Then oAccessibility.SetOption "soundsentry", 0 Else oAccessibility.SetOption "soundsentry" , 1 End If End If ' ~~~ Toggle Show sound If Wscript.Arguments.Named.Exists("ShowSound") Then bOk = True If oAccessibility.GetOption ("showsound") Then oAccessibility.SetOption "showsound" , 0 Else oAccessibility.SetOption "showsound", 1 End If End If If Not(bOK) Then ' ~~~ Call oLog.Write("Accessibility.wsf : Incorrect Usage") Wscript.Arguments.ShowUsage QuitScript() End If ' ~~~ Destroy objects Set oAccessibility = nothing UnLoadObjects() ]]> </script> </job> </package>