COMP 230 Week 5 iLab VBScript Modular Lab Report

Document Content and Description Below

Copy your Mod1_PCTests.vbs program from NotePad++ and paste it into the space provided below. Any portion of the script that will not fit should be continued in the textbox on the next page. COMP230... _Wk5_Modular_Report.docx Revision Date: 1213 ' VBScript: MOD1_PC_Tests.vbs ' Written By: ' Date: 08/09/2014 ' Class:Comp230 ' Professor: ' =================================== ' Menu Driven Computer / Network Tests ' This VBScript program is run using the MOD1_PC_Tests.cmd Batch Script Set args = WScript.Arguments WScript.Echo vbCrLf Select case args.Item(0) case "1" Call System_Information case "2" Call System_Memory_Size case "3" Call OS_Version case "4" Call Printers_Status case "5" Call Logical_HDD_Information case Else WScript.Echo chr(7) & chr(7) & "Error, Choices are 1..5 or x!!!" End Select Sub System_Information Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Echo "The computer name is ............ " & _ WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") WScript.Echo "The Num of CPUs is .............. " & _ WshShell.ExpandEnvironmentStrings("%NUMBER_OF_PROCESSORS%") WScript.Echo "The Processor Architecture is ... " & _ WshShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") End Sub Sub System_Memory_Size strComputer = "." Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\CIMV2") Set colComputer = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputer intRamMB = int((objComputer.TotalPhysicalMemory) /1048576)+1 Wscript.Echo "System Name ...... " & objComputer.Name _ & vbCrLf & "Total RAM ........ " & intRamMB & " MBytes." Next End Sub 1 [Show More]

Last updated: 1 year ago

Preview 1 out of 8 pages