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 / FileScripts005 < prev next >

Wrap

Extensible Markup Language | 2005-09-02 | 16.5 KB | 221 lines

■<?xml version="1.0" ?> <package> <comment> ' *** ' *** ------------------------------------------------------------------------------ ' *** Filename: AutoRunOnce.wsf ' *** ------------------------------------------------------------------------------ ' *** Description: Command line tool to cause a User Profile to Run a program ' *** once upon logon. ' *** ------------------------------------------------------------------------------ ' *** Version: 1.0 ' *** Notes: ' *** ------------------------------------------------------------------------------ ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved ' *** ------------------------------------------------------------------------------ ' *** </comment> <job> <runtime> <description>AutoRunOnce Script</description> <named name="user" required="false" helpstring="Name a user for the AutoRunOnce command" /> <named name="add" required="false" helpstring="Add a RunOnce command" /> <named name="args" required="false" helpstring="Arguments for a RunOnce command" /> <named name="remove" required="false" helpstring="Remove a RunOnce command" /> <named name="list" required="false" helpstring="List RunOnce commands" /> <example> Examples: AutoRunOnce.wsf /add:RunOnceKey /user:Public "C:\Program Files\Microsoft Shared Computer Toolkit\Scripts\AutoDemo" /args:"/Step2" AutoRunOnce.wsf /add:RunOnceKey "C:\Program Files\Microsoft Shared Computer Toolkit\Scripts\AutoDemo" /args:"/Step3 admin password" AutoRunOnce.wsf /remove:RunOnceKey /user:Public AutoRunOnce.wsf /remove:RunOnceKey AutoRunOnce.wsf /list /user:Public AutoRunOnce.wsf /list</example> </runtime> <resource id="IncorrectUsage">Incorrect Usage Detected</resource> <resource id="ScriptName">AutoRunOnce.wsf</resource> <resource id="AddSuccess">RunOnce command has been added.</resource> <resource id="AddFail">RunOnce command could not be added.</resource> <resource id="RemoveSuccess">RunOnce command has been removed.</resource> <resource id="RemoveFail">RunOnce command not removed; it did not exist.</resource> <resource id="ListTitle">RunOnce commands (key type value):</resource> <resource id="ListEmpty">No RunOnce commands found.</resource> <resource id="InvalidUser">Unable to open the registry for this user.</resource> <resource id="AdminErrorMsg">You have to be an administrator to use this script.</resource> <resource id="ErrorMessage">Could not modify the user registry successfully.</resource> <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/clsRestrictions.vbs"></script> <script language="VBScript"> <![CDATA[ ' ~~~ ' ~~~ Force variables to be declared ' ~~~ Option Explicit On Error Goto 0 ' ~~~ Call the Main Call Main("") ' ~~~ ' ~~~ Declare variables and constants ' ~~~ Const RUNKEY1 = "HKEY_USERS\SSW\Software\Microsoft\Windows\CurrentVersion\RunOnce" Const RUNKEY2 = "HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce" Dim oLog, bOK, args, bResult, oExec Dim strUser, strKey, strTemp ' ~~~ Call the forceScript function in libWSF.vbs to re-start the ' ~~~ script in command line Call ForceCScript ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Logging ' ~~~ ------------------------------------------------------------------------------ Set oLog = New Logging Call oLog.Open(GetRootFolder & "\log\AutoRunOnce.wsf.log") Call oLog.Write("AutoRunOnce.wsf : Started") ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Check Script Usage ' ~~~ ------------------------------------------------------------------------------ strKey = "" bOK = False Set args = WScript.Arguments If args.Named.Exists("add") and args.Named.Item("add") <> "" and (args.Unnamed.Count = 1 or args.Unnamed.Count = 2) Then bOK = True strKey = args.Named.Item("add") If args.Named.Exists("remove") or args.Named.Exists("list") Then bOK = False End If If args.Named.Exists("remove") and args.Named.Item("remove") <> "" and args.Unnamed.Count = 0 Then bOK = True strKey = args.Named.Item("remove") If args.Named.Exists("add") or args.Named.Exists("list") Then bOK = False End If If args.Named.Exists("list") and args.Named.Item("list") = "" and args.Unnamed.Count = 0 Then bOK = True If args.Named.Exists("add") Then bOK = False End If If Not(bOK) Then Call oLog.Write(getResource("ScriptName") & " : " & getResource("IncorrectUsage")) WScript.Arguments.Showusage QuitScript() End If strUser = "" strUser = args.Named.Item("user") If strUser <> "" Then ' ~~~ If a user has been identified, attempt to load their hive Dim oRestrict Set oRestrict = New Restriction ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Load the user's registry hive ' ~~~ ------------------------------------------------------------------------------ If NOT oRestrict.LoadUser(strUser) Then Call oLog.Write(getResource("ScriptName") & " : " & getResource("InvalidUser")) WScript.Echo getResource("InvalidUser") QuitScript() End If strKey = RUNKEY1 & "\" & strKey Else ' ~~~ If a user was not identified, use HKCU strKey = RUNKEY2 & "\" & strKey End If ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Now do add/remove/list ' ~~~ ------------------------------------------------------------------------------ ' ~~~ We need to catch error codes below On Error Resume Next ' ~~~ Add an AutoRunOnce on the account If args.Named.Exists("add") Then If args.Named.Exists("args") Then strTemp = Chr(34) & args.Unnamed.Item(0) & Chr(34) & " " & args.Named.Item("args") Else strTemp = Chr(34) & args.Unnamed.Item(0) & Chr(34) End If RegWrite strKey, strTemp, "REG_EXPAND_SZ" If err.number = 0 Then Call oLog.Write("add : " & getResource("AddSuccess")) WScript.Echo getResource("AddSuccess") Else Call oLog.Write("add : " & getResource("AddFail")) WScript.Echo getResource("AddFail") End If End If ' ~~~ Disable AutoRunOnce on the account If args.Named.Exists("remove") Then oShell.RegDelete strKey If err.number = 0 Then Call oLog.Write("remove : " & getResource("RemoveSuccess")) WScript.Echo getResource("RemoveSuccess") Else Call oLog.Write("remove : " & getResource("RemoveFail")) WScript.Echo getResource("RemoveFail") End If End If If Wscript.Arguments.Named.Exists("list") Then Call oLog.Write("list : " & getResource("ListTitle")) Wscript.Echo GetResource("ListTitle") Set oExec = oShell.Exec("REG QUERY " & Chr(34) & strKey & Chr(34) & " /s") bResult = 0 Do While oExec.Status = 0 strTemp = oExec.StdOut.Readline If strTemp <> "" and Left(strTemp,1) = " " Then WScript.Echo strTemp Call oLog.Write("list : " & strTemp) bResult = bResult + 1 End If Loop If bResult = 0 Then Call oLog.Write("list : " & getResource("ListEmpty")) WScript.Echo getResource("ListEmpty") End If End If ' ~~~ ------------------------------------------------------------------------------ ' ~~~ Unload the user's registry hive ' ~~~ ------------------------------------------------------------------------------ If strUser <> "" Then oRestrict.UnLoadUser ' ~~~ Destroy objects Call oLog.Close Set oLog = Nothing UnLoadObjects() ]]> </script> </job> </package>