Comp230

Student Name| | Class| | Date| |
VBScript Modular testing ground Report

VBScript: PC_Test.vbs
Written by:
Date: 03/27/2012
Class: COMP230
professor: Professor
  ===================================
Menu driven Computer / Network Tests
This VBScript program is dispose using the Mod1_PCTests.cmd portion Script
get along args = WScript.Arguments
WScript.Echo vbCrLf

 Select casing args.Item(0)
Case 1
even out WshShell = WScript.CreateObject(WScript.Shell)
WScript.Echo The computer name is ............ & axerophthol; _WshShell.ExpandEnvironmentStrings(%COMPUTERNAME%)
WScript.Echo The Num of CPUs is .............. & international antiophthalmic factorere; _WshShell.ExpandEnvironmentStrings(%NUMBER_OF_PROCESSORS%)
WScript.Echo The Processor Architecture is ... & ampere; _WshShell.ExpandEnvironmentStrings(%PROCESSOR_ARCHITECTURE%)
Case 2
strComputer = .
laid objWMIService = GetObject(winmgmts: _
& {impersonationLevel=impersonate}!\ _
& strComputer & rootcimv2)
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
Case 3
strComputer = .




Set objWMIService = GetObject(winmgmts: _
& {impersonationLevel=impersonate}!\ & strComputer & rootcimv2)
Set colOperatingSystems = objWMIService.ExecQuery _
(Select * from Win32_OperatingSystem)

VBScript: PC_Test.vbs
Written by:
Date: 03/27/2012
Class: COMP230
Professor: Professor
  ===================================
Menu Driven Computer / Network Tests
This VBScript program is run using the Mod1_PCTests.cmd Batch Script
Set args = WScript.Arguments
WScript.Echo vbCrLf

 Select Case args.Item(0)
Case 1
Set WshShell = WScript.CreateObject(WScript.Shell)
WScript.Echo The computer name...If you want to get a full essay, bless it on our website: Ordercustompaper.com



If you want to get a full essay, wisit our page: write my paper