David Peel You make this statement heshe can use passthrough authentication if passwords match Which to be true requires the user name and the.Jacky Chua Jacky Chua has more than 17 years of IT industry experience.He specializes in SCCM,MDT, Windows Intune and others System Center products.Please. Hi all, We came across an interesting issue today after installing the August 2017 Windows updates on the servers in our test environment.After patching and.Donald Hester October 14, 2010 For audio call Toll Free 18888863951 and use PINcode 874614 The Enterprise Learning Framework ELF is a tool that helps.N9sNdJo/0.jpg' alt='Mdt 2010 Uninstall Registry Key Name' title='Mdt 2010 Uninstall Registry Key Name' />SOLVED How to Pin to Start MenuTask Bar for Default User.Also, heres an optimized version of your script code is a little bit tidier and functions have been optimized to avoid calling the same function too many times.Last thing, I noticed that just removing the.I think that the items with the.Windows knows how many times a certain application was used so that it can be pushed updown.Because of that, I am not touching the.CONSTS Const HKEYCLASSESROOT H8.Const HKEYCURRENTUSER H8.Const HKEYLOCALMACHINE H8.Const HKEYUSERS H8.Const HKEYCURRENTCONFIG H8.Const CSIDLCOMMONPROGRAMS H1.Const CSIDLPROGRAMS H2 OBJECTS Set obj.Registry Get.Objectwinmgmts. rootdefault Std.Reg. ProvSet obj.FSO Create.ObjectScripting. File.System. ObjectSet obj.Application Create.ObjectShell. Application.Set obj. All. Users.Programs obj. Application.Name. SpaceCSIDLCOMMONPROGRAMSSet obj.User. Programs obj.Application. Name.SpaceCSIDLPROGRAMS VARIABLES Dim arr.Sub. Values, arr.Delete. Apps, arr.Pin. Apps, str. All.Users. Programs. Pathstr.All. Users. Programs.Path obj. All.Users. Programs. Self.Path str. User. Programs.Path obj. User.Programs. Self. Path arr.Delete. Apps Arraydisplayswitch.Call Main. Sub MainDelete.Start. Menu. Apps HKEYCURRENTUSER, arr.Delete. Apps Do.Verb Pin to Start Menu, str.User. Programs. Path Internet Explorer.Get the version of Office installed, so that we can pin it to the start menu.If Is. Program. Installedobj.Registry, Microsoft Office Enterprise 2.TRUE Then. Do. Verb Pin to Start Menu, str.All. Users. Programs.Path Microsoft OfficeMicrosoft Office Word 2.Do. Verb Pin to Start Menu, str.All. Users. Programs.Path Microsoft OfficeMicrosoft Office Excel 2.Else Do. Verb Pin to Start Menu, str.All. Users. Programs.Path Microsoft OfficeMicrosoft Word 2.Do. Verb Pin to Start Menu, str.All. Users. Programs.Path Microsoft OfficeMicrosoft Excel 2.End If. End Sub FUNCTIONS AND SUBS Function Do.Verbstr. Verb, str.PathOn Error Resume Nextstr.Folder obj. FSO.Get. Parent. Folder.Namestr. Pathstr.File obj. FSO.Get. File. Namestr.PathSet obj. Folder obj.Application. Name.Spacestr. FolderSet obj.Folder. Item obj.Folder. Parse. Namestr.FileFor Each Item.Verb In obj. Folder.Item. Verbs. If Str.CompReplaceItem. Verb.Name, str. Verb, vb.Text. Compare 0 Then.Item. Verb. Do. It.Exit Function. End If.Next. On Error Goto 0.End Function. Sub Delete.Start. Menu. Appsh.Def. Key, s. Sub.Key. User, arr. Delete.AppsIf Lens. Sub.Key. User 0 Thens.Sub. Key. Name s.Sub. Key. User SoftwareMicrosoftWindowsCurrent.VersionExplorerUser.AssistElses. Sub.Key. Name SoftwareMicrosoftWindowsCurrent.VersionExplorerUser.AssistEnd If obj.Registry. Enum. Key h.Def. Key, s. Sub.Key. Name, arr. Sub.Keys. If Is. Arrayarr.Sub. Keys Then. For i 0 to UBoundarr.Sub. Keyss. Temp.Sub. Key. Name s.Sub. Key. Name arr.Sub. Keysi Countobj.Registry. Enum. Values h.Def. Key, s. Temp.Sub. Key. Name, arr.Sub. Values. If Is.Arrayarr. Sub. Values Then.For m 0 to UBoundarr.Sub. ValuesFor n 0 to UBoundarr.Delete. AppsIf In.StrUCaseRun. ROT1.Sub. Valuesm, UCasearr.Delete. Appsn 0 Thenobj.Registry. Delete.Value h. Def. Key, s.Temp. Sub. Key. Name, arr.Sub. ValuesmEnd If.Next. Next. End If.Next. End If. End Sub.Function Run. ROT1.InputFor i 1 to Lenstr.Inputi. Chr AscMidstr.Input, i, 1If i. Chr 6.Chr lt 7. 7 Or i.Chr 9. 7 and i. Chr lt 1.Then. Output str.Output Chri. Chr 1.Else. If i. Chr 7.Chr lt 9. 0 Or i.Chr 1. 10 and i. Chr lt 1.Then. Output str.Output Chri. Chr 1.Elsestr. Output str.Output Chri. ChrEnd If.Next Run. ROT1.Output. End Function.Function Is. Program.Installedobj. Registry, str.Program. Display.Nameint. Registry.Hive HKEYLOCALMACHINEstr.Registry. Key SOFTWAREMicrosoftWindowsCurrent.VersionUninstallobj.Registry. Enum. Key int.Registry. Hive, str.Registry. Key, arr.Subkeys. Is. Program.Installed FALSEFor Each str.Subkey In arr. Subkeysstr.Display. Name Read.Registry. Valueobj.Registry, STRING, int.Registry. Hive, str.Registry. Key str.Subkey, Display. NameIf UCasestr.Display. Name UCasestr.Program. Display.Name Then. Is. Program.Installed TRUEExit For.End If. Next. End Function.Function Read. Registry.Valueobj. Registry, str.Type, int. Registry.Hive, str. Sub. Key.Name, s. Value. NameSelect Case UCasestr.TypeCase DWORDobj.Registry. Get. DWORDValue int.Registry. Hive, str.Sub. Key. Name, s.Value. Name, str.Value. Case EXPANDEDSTRINGobj.Registry. Get. Expanded.String. Value int.Registry. Hive, str.Sub. Key. Name, s.Value. Name, str.Value. Case MULTISTRINGobj.Registry. Get. Multi.String. Value int.Registry. Hive, str.Sub. Key. Name, s.Value. Name, str.Value. Case STRINGobj.Registry. Get. String. Miss Spider S Sunny Patch Friends The Big Green Bug On Tomato . Value int. Registry.Hive, str. Sub. Key.Name, s. Value. Name, str.Value. End Select.Read. Registry. Value str.Value. End Function.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
November 2017
Categories |