Comp230 Week 5

Student Name | Class | COMP230 | Date | | VBScript Modular Lab Report ' Menu Driven Computer / Network Tests
' This VBScript program is run using the 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 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 Sub OS_Version strComputer = "." Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\CIMV2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") WScript.Echo "The Operating System Detected is Shown Below:" & vbCrLf For Each objOperatingSystem in colOperatingSystems WScript.Echo objOperatingSystem.Caption & "Version: " & _ objOperatingSystem.Version Next End Sub ' Menu Driven Computer / Network Tests
' This