enter code here `Get Some System Info `This script will output the current start up items, processes `and services to files in the log folder of the current repairs. On Error Resume Next Const adVarChar = 200 Const MaxCharacters = 255 Set objFSOStartupItems = CreateObject(Scripting.FileSystemObject) outFileStartupItems = %%%RepairLogFolder%%%_Info_Startup_Items.txt Set objFileStartupItems = objFSOStartupItems.CreateTextFile(outFileStartupItems,True) Set DataListStartupItems = CreateObject(ADOR.Recordset) DataListStartupItems.Fields.Append Name, adVarChar, MaxCharacters DataListStartupItems.Fields.Append Command, adVarChar, MaxCharacters DataListStartupItems.Fields.Append Location, adVarChar, MaxCharacters DataListStartupItems.Fields.Append SettingID, adVarChar, MaxCharacters DataListStartupItems.Fields.Append User, adVarChar, MaxCharacters DataListStartupItems.Fields.Append UserSID, adVarChar, MaxCharacters DataListStartupItems.Open Set objWMIService = GetObject(winmgmts:.rootCIMV2) Set colItems = objWMIService.ExecQuery(SELECT * FROM Win32_StartupCommand, , 48) For Each objItem In colItems DataListStartupItems.AddNew DataListStartupItems(Name) = objItem.Name DataListStartupItems(Command) = objItem.Command DataListStartupItems(Location) = objItem.Location DataListStartupItems(SettingID) = objItem.SettingID DataListStartupItems(User) = objItem.User DataListStartupItems(UserSID) = objItem.UserSID DataListStartupItems.Update Next DataListStartupItems.Sort = Name DataListStartupItems.MoveFirst i = 0 objFileStartupItems.Write Date: & Date & vbCrLf objFileStartupItems.Write Time: & Time & vbCrLf objFileStartupItems.Write Total: & DataListStartupItems.RecordCount & vbCrLf objFileStartupItems.Write -------------------------------------------------------------------------------------------------------------------------------- & vbCrLf
©