Comp230 Week 5 Lab

Student Name | | Class | | 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 Printer_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%")

Next

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."

End Sub

Sub OS_Version

Set wshShell = Wscript.CreateObject("WScript.Shell")

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

End Sub...