Comp 230 Week 5 Lab Vbscript Modular Lab Report.

Name
August 09, 2014
Professor
COMP-230-61430
COMP 230 WEEK 5 LAB VBSCRIPT MODULAR LAB
REPORT
VBScript Modular Lab Report
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.
' 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




COMP230_Wk5_Modular_Report.docx 1 Revision Date: 1213

, Name
August 09, 2014
Professor
COMP-230-61430
Continuation of the Mod1_PCTests.vbs program from NotePad++.
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

Sub Printers_Status
strComputer ="."
intPrinters = 1
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")
WScript.Sleep(1000)
For Each objItem In colItems
WScript.Echo _
"Printer: " & objItem.DeviceID & vbCrLf & _
"===============================================" & vbCrLf & _
"Driver Name ............. " & objItem.DriverName & vbCrLf & _
"Port Name ............... " & objItem.PortName & vbCrLf & _
"Printer State ........... " & objItem.PrinterState & vbCrLf & _
"Printer Status .......... " & objItem.PrinterStatus & vbCrLf & _
"Print Processor ......... " & objItem.PrintProcessor & vbCrLf & _
"Spool Enabled ........... " & objItem.SpoolEnabled & vbCrLf & _
"Shared .................. " & objItem.Shared & vbCrLf & _
"ShareName ............... " & objItem.ShareName & vbCrLf & _
"Horizontal Res .......... " & objItem.HorizontalResolution & vbCrLf & _
"Vertical Res ............ " & objItem.VerticalResolution & vbCrLf
intPrinters = intPrinters + 1
Next
End Sub

Sub Logical_HDD_Information
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where FreeSpace > 0")
For Each objItem in colItems
WScript.Echo vbCrLf & _
"========================================" & vbCrLf & _
"Drive Letter ......... " & objItem.Name & vbCrLf & _
"Description .......... " & objItem.Description & vbCrLf & _
"Volume Name .......... " & objItem.VolumeName & vbCrLf & _
"Drive Type ........... " & objItem.DriveType & vbCrLf & _
"Media Type ........... " & objItem.MediaType & vbCrLf & _
"VolumeSerialNumber ... " & objItem.VolumeSerialNumber & vbCrLf & _
"Size ................. " & Int(objItem.Size /1073741824) & " GB" & vbCrLf & _
"Free Space ........... " & Int(objItem.FreeSpace /1073741824) & " GB"
Next
End Sub




COMP230_Wk5_Modular_Report.docx 2 Revision Date: 1213