Exam (elaborations)
COMP 230 Week 5 Lab: VBScript Modular Lab Report (SOLVED)
- Course
- Institution
COMP 230 Week 5 Lab: VBScript Modular Lab Report (SOLVED)
[Show more]
Seller
Follow
ProfGoodlucK
Reviews received
Content preview
Student NOEMI MATOS Class COMP230 Dat 01-JUN-Name e 16
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.
'Noemi Matos
'01-June-2016
'Week 5 iLab
'COMP230 - Prof. Sasha Perez
' 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
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
Sub OS_Version
strComputer = "."
COMP230_Wk5_Modular_Report.docx 1 Revision Date: 1213
, 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
The benefits of buying summaries with Stuvia:
Guaranteed quality through customer reviews
Stuvia customers have reviewed more than 700,000 summaries. This how you know that you are buying the best documents.
Quick and easy check-out
You can quickly pay through credit card or Stuvia-credit for the summaries. There is no membership needed.
Focus on what matters
Your fellow students write the study notes themselves, which is why the documents are always reliable and up-to-date. This ensures you quickly get to the core!
Frequently asked questions
What do I get when I buy this document?
You get a PDF, available immediately after your purchase. The purchased document is accessible anytime, anywhere and indefinitely through your profile.
Satisfaction guarantee: how does it work?
Our satisfaction guarantee ensures that you always find a study document that suits you well. You fill out a form, and our customer service team takes care of the rest.
Who am I buying these notes from?
Stuvia is a marketplace, so you are not buying this document from us, but from seller ProfGoodlucK. Stuvia facilitates payment to the seller.
Will I be stuck with a subscription?
No, you only buy these notes for $10.99. You're not tied to anything after your purchase.
Can Stuvia be trusted?
4.6 stars on Google & Trustpilot (+1000 reviews)
79373 documents were sold in the last 30 days
Founded in 2010, the go-to place to buy study notes for 14 years now