COMP-230 Week 6 Course Project: Automating Administrative Tasks [RATED A]

System Administrative Task DeVry University COMP-230 With the completion of our research of using scripting to automating some of our administrative task our results show. That this i s a very feasible project for us going forward with this we have also written a sample script to show the functionality of this process. This project will save us manpower, time and money that can be relocated to other future projects throughout the company. This is also a big opportunity for us to have detailed records of our software licenses installed on our corporate machines within our environment as well as our field user’s machines. This will give us the resource necessary for quick efficient self auditing within our environment as well as any outside auditing we might face in the future. With that let’s get into the details of the program we will be implementing. The script we have will run on our remote and in house machines to collect the info of all installed programs. After collection of the information of the programs and licenses the script will then take this and import the correct information to the desired location in a master excel spreadsheet. Upon the completion of these task we can then search in the excel spreadsheet for the desired information we are looking for. Thus saving time and resources needed to normally achieve this task. Now we will be able to search our database of machines to determine what machines have all required software for the user to function in their job role. Also with this script we should be able to modify it so that we can push out updates to authorized programs and software. As well as if the user has software that has been loaded without I.T. approval we can now easily and remotely removed this software. With a column in excel that shows us the current state of the software’s license we will be able to more easily monitor and prevent illegally obtained software for our machines. Periodic self auditing is an important factor to us staying compliant with all local and federal laws that govern us as an industry. This program will now give us the resources needed to make this argues administrative task much more convenient to our staff. Another positive to this is now that we have are implementing this policy and tool to our inventory end users will be less likely to install non authorized programs on corporate machines knowing that we will be monitoring the programs on our machines instead of the user just deleting software before they come to I.T. for help with their issued machine. Thus cutting down on other problems and expenses from user’s downloading harmful software. This is the script we will be implementing as our basic script we can change items and add to the script as needed to help complete the task’s we have decided to implement. 'Pop-up box to inform you that the script is running WScript.Echo "The Script has started" ' Declare Variables Dim dTtle dTtle = "Enumerate Software" Dim dHost 'Provide prompt to specify audit system dHost = InputBox("Enter the I.P. or the computer " & _ "you would like to check the installed software " & _ "on." & vbcrlf & vbcrlf & "Remote enumeration " & _ "will be performed in the context of the current " & _ "logged on user", dTtle) If IsEmpty(dHost) Then WScript.Quit dHost = Trim(dHost) If dHost = "" Then dHost = "." 'Provide prompt to specify save location & further declaration Dim dFdl dFdl = InputBox("Enter the pathname to output the details of this audit " , dT tle) Dim dFle dFle = dFdl & dHost & ".xls" If IsEmpty(dFdl) Then WScript.Quit 'Create & launch Excel workbook Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) x = 2 objExcel.Cells(1, 1).Value = "Name" objExcel.Cells(1, 2).Value = "Vendor" objExcel.Cells(1, 3).Value = "Version" objExcel.Cells(1, 4).Value = "InstallLocation" objExcel.Cells(1, 5).Value = "Description" 'Access the required WMI namespace to perform query Set objWMIService = _ GetObject("winmgmts:" & dHost & "rootcimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_Product") 'Perform FOR EACH loop and update newly created spreadsheet For Each objItem in colItems objWorksheet.Cells(x, 1) = objItem.Name objWorksheet.Cells(x, 2) = objItem.Vendor objWorksheet.Cells(x, 3) = objItem.Version objWorksheet.Cells(x, 4) = objItem.InstallLocation objWorksheet.Cells(x, 5) = objItem.Description x = x + 1 Next Set objRange = objWorksheet.UsedRange objRange.EntireColumn.Autofit() 'Save & close updated spreadsheet. objExcel.ActiveWorkbook.SaveAs dFle objExcel.ActiveWorkbook.Close objExcel.Application.Quit WScript.Echo "Software Enumeration Complete." WScript.Quit In conclusion this automation is the first step we are taking within our organization toward a vast new world of opportunity. Streamlining the way we conduct our administrative task in our company environment with scripts will untimely free up time and resources to be focused on other projects that need our attention. With this script and more like it we will raise the productivity of the infrastructure teams allowing us to run on less staff that way we can send them out for more training and certifications. Resulting in a more robust and trained department for our company as well as this script keeping us in compliance with regulations and saving money on any fines and punishments we may have incurred previously without its utilization. As well as saving on our hardware budget since we will now be less likely to have to install and replace damaged equipment. Resulting from unauthorized software being installed on our machines and seeping into our network environment. References Microsoft (2016). Powershell, VB script, SQL and JavaScript - TechNet IT pro’s and Scripting guys. . Retrieved from