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
Please Sign In to contact this author.
QMI1500 Assignment 02 2021 AS PER UPDATED TUTORIAL LETTER...
0
0