Free Essay

Comp 230 Week 5

In:

Submitted By rlit
Words 2479
Pages 10
Student Name | | Class | | Date | | VBScript Modular Lab Report

:Run PC_Tests.vbs echo off
:start
cls echo Computer System Analysis echo. & echo. echo [1] Check System Information echo [2] Check System Memory echo [3] Check Operating System Version echo [4] Check Printers Status echo [5] Check Logical Drive Information echo [x] Exit Program" echo. set /p choice="Enter the Number of your Choice .... " if %choice% equ x exit if %choice% equ X exit cscript //nologo Mod1_PCTests.vbs %choice% echo. pause goto start
'=========================================
' 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 from Mod1_PCTests.cmd and call subs.
Select Case args.Item(0)
Case "1"
Call System_Information
Case "2"
Call System_Memeory_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,2,3,4,5 or x!!"
' Error check.
End Select
' System Information subroutine.
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
' Memory size subroutine.
Sub System_Memeory_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
' Operating system version subroutine.
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
' Printer information subroutine.
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
' Harddrive information subroutine.
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 & _"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
"========================================" &
'Ronald Litland
'Comp 230
'Week 5 lab

:Run PC_Tests.vbs echo off
:start
cls echo Computer System Analysis echo. & echo. echo [1] Check System Information echo [2] Check System Memory echo [3] Check Operating System Version echo [4] Check Printers Status echo [5] Check Logical Drive Information echo [x] Exit Program" echo. set /p choice="Enter the Number of your Choice .... " if %choice% equ x exit if %choice% equ X exit cscript //nologo Mod1_PCTests.vbs %choice% echo. pause goto start
'=========================================
' 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 from Mod1_PCTests.cmd and call subs.
Select Case args.Item(0)
Case "1"
Call System_Information
Case "2"
Call System_Memeory_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,2,3,4,5 or x!!"
' Error check.
End Select
' System Information subroutine.
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
' Memory size subroutine.
Sub System_Memeory_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
' Operating system version subroutine.
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
' Printer information subroutine.
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
' Harddrive information subroutine.
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 & _"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
"========================================" &
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.

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
' Harddrive information subroutine.
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 & _"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
"========================================" & 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
' Harddrive information subroutine.
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 & _"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
"========================================" &
Continuation of the Mod1_PCTests.vbs program from NotePad++.

Capture the Mod1_PCTests.vbs Run from the console window and copy it into the space provided below. Display the menu only once with an error-handling message. If it will not fit, use the next page for the rest of your Run. As noted in the lab assignment, display only the first Printer and the first Hard drive to save space.

Capture the continuation of the Mod1_PCTests.vbs Run from the console window and copy it into the space provided below:

' VBScript: Mod2_PCTests.vbs
' Ron litland
'comp 230

'===========================
'
Set args = WScript.Arguments
WScript.Echo vbCrLf
Set fso = CreateObject("Scripting.FileSystemObject")
Set libfile = fso.OpenTextFile("C:\Scripts\PCT_Library.vbs",1,False) libSubs = libfile.ReadAll libfile.close 'Set libfile = Nothing
'Set fso = Nothing
ExecuteGlobal libSubs
'
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
'
Case Else WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, Correct Values are 1..5 or X!!")
End Select
' VBScript: Mod2_PCTests.vbs
' Ron litland
'comp 230

'===========================
'
Set args = WScript.Arguments
WScript.Echo vbCrLf
Set fso = CreateObject("Scripting.FileSystemObject")
Set libfile = fso.OpenTextFile("C:\Scripts\PCT_Library.vbs",1,False) libSubs = libfile.ReadAll libfile.close 'Set libfile = Nothing
'Set fso = Nothing
ExecuteGlobal libSubs
'
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
'
Case Else WScript.StdOut.WriteLine(chr(7) & chr(7) & "Error, Correct Values are 1..5 or X!!")
End Select
Copy your Mod2_PCTests.vbs program from NotePad++ and paste it into the space provided below.

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
' Harddrive information subroutine.
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 & _"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
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
' Harddrive information subroutine.
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 & _"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
Copy your PCT_Library.vbs script from NotePad++ and paste it into the space provided below. Reduce the font size if required to make the script code fit in the textbox.

Capture the Mod2_PCTests.vbs Run from the console window and copy it into the space provided below. Display the menu only once with an error-handling message. If it will not fit, use the next page for the rest of your Run. As noted in the lab assignment, display only the first Printer and the first Hard drive to save space.

Capture the continuation of the Mod2_PCTests.vbs Run from the console window and copy it into the space provided below:

Similar Documents

Free Essay

Comp 230(Introduction to Scripting and Database) Week 1 - 7 Quizzes Devry

...COMP 230(Introduction to Scripting and Database) Week 1 - 7 Quizzes DeVry IF You Want To Purchase A+ Work Then Click The Link Below , Instant Download http://www.acehomework.com/COMP-230-Introduction-to-Scripting-and-Database-Week-1-7-Quiz-578758444.htm?categoryId=-1 If You Face Any Problem E- Mail Us At JohnMate1122@gmail.com COMP 230 Week 1 Quiz 1. Question: (TCO 1) Which one of the following Windows net commands are NOT used to control services with the net ServiceName? 2. Question: (TCO 1) Which of the following Windows commands will shutdown and restart your computer in 2 minutes? 3. Question: (TCO 1) Which of the following Windows commands will shutdown and restart the computerFileServer in 2 minutes? 4. Question: (TCO 1) Which Windows shutdown-command switch is used to shutdown and turn off a local or remote computer? 5. Question: (TCO 1) From the Start/Run dialog, the command used to open the 32-bit Windows command prompt is _____. 6. Question: (TCO 1) The Windows CLI shell command used to display all of the environmental variables and their values is _____. COMP 230 Week 2 Quiz 1. Question: (TCO 2) ____ data items may involve displaying numbers or text to the screen. 2. Question: (TCO 2) The process of walking through a program's logic on paper before actually writing the program is called ____. 3. Question: (TCO 2) What is the problem with the following statement? 60 + 5 = grade 4. Question: (TCO 2) What is the problem with the...

Words: 998 - Pages: 4

Free Essay

Administrator

...many different system administration tasks. Your manager has asked you to research a system administration task and implement it using VBScript. In addition, your manager would like to see both a proposal that describes the system administration task and a complete VBScript solution with sample output runs. During the first 6 weeks of this course, you will be introduced to a variety of topics in VBScript. These topics include the following. VBScript Introduction: Variables, Constants, and Data Types VBScript Output Methods, VBScript Input Methods VBScript Decision-Making Statements VBScript Loop Structures and Arrays VBScript Procedures and Functions VBScript File Input/Output Methods The Course Project is worth 170 points and is comprised of the following deliverables. Week 3: Outline (30 points) Week 6: Complete proposal (140 points) The following is a list of guidelines for your Course Project, due in Week 6. The complete proposal should include the following. Introduction Description of program (script) Source Code with detailed comments Source Code should contain a minimum 5 out of 6 topics learned during this session. Explain the output along with screenshots of the output Conclusion All DeVry University policies are in effect, including the plagiarism policy. Use each week’s lecture, reading assignments, labs, and discussions as guidance and supporting information for your...

Words: 262 - Pages: 2

Premium Essay

Comp 230

...many different system administration tasks. Your manager has asked you to research a system administration task and implement it using VBScript. In addition, your manager would like to see both a proposal that describes the system administration task and a complete VBScript solution with sample output runs. During the first 6 weeks of this course, you will be introduced to a variety of topics in VBScript. These topics include the following. VBScript Introduction: Variables, Constants, and Data Types VBScript Output Methods, VBScript Input Methods VBScript Decision-Making Statements VBScript Loop Structures and Arrays VBScript Procedures and Functions VBScript File Input/Output Methods The Course Project is worth 170 points and is comprised of the following deliverables. Week 3: Outline (30 points) Week 6: Complete proposal (140 points) The following is a list of guidelines for your Course Project, due in Week 6. The complete proposal should include the following. Introduction Description of program (script) Source Code with detailed comments Source Code should contain a minimum 5 out of 6 topics learned during this session. Explain the output along with screenshots of the...

Words: 343 - Pages: 2

Free Essay

Vnu Catalog

...VINCENNES UNIVERSITY CATALOG Vol. LXIX August, 2010 No. 61 A COMPREHENSIVE TWO-YEAR COLLEGE OFFERING ASSOCIATE DEGREES IN THE LIBERAL ARTS, SCIENCES, EDUCATION, ENGINEERING, AND TECHNOLOGY AND OFFERING BACCALAUREATE DEGREES IN SPECIALIZED AREAS Accreditation The North Central Association of Colleges and Schools 30 North LaSalle Street, Suite 2400, Chicago, IL 60602 (312) 263-0456 www.ncacihe.org FAX 312-263-7462 Accreditation Review Council on Education in Surgical Technology and Surgical Assisting American Bar Association American Board of Funeral Service Education American Health Information Management Association Association of Collegiate Business Schools and Programs Commission on Accreditation of Allied Health Educational Programs Commission on Accreditation in Physical Therapy Education Federal Aviation Administration Higher Education Coordinating Board of the State of Washington Indiana State Board of Nursing Joint Review Committee on Education In Radiologic Technology National Alliance of Concurrent Enrollment Partnerships National Association of Schools of Art and Design National Association of Schools of Theatre National League for Nursing Accrediting Commission Printing Industries of America, Inc. Approved for Veterans Membership The American Association of Community Colleges Aviation Technician Education Council The Council of North Central Two Year Colleges The Higher Education Transfer Alliance The National Academic Advising Association The North Central Association...

Words: 107322 - Pages: 430

Free Essay

Research Paper

...information regarding critical weedcrop competition period is lacking. We investigated the critical weed-crop competition period in sesame at the Agronomic Research Area, University of Agriculture, Faisalabad Pakistan during summer season (July-November) 2005. Treatments were weed-crop competition periods (WCCP) of 3, 4, 5, 6 and 7 weeks after emergence in addition to full season competition and full season weedy check as negative and positive controls, respectively. A gradual decrease from 6.88 to 12.40 % in seed yield was recorded with 6 weeks to full season weed-crop competition. Non significant reduction in seed yield was observed up to 5 weeks WCCP. Weed crop competition for a period of 3 weeks did not show significant decrease in straw yield, number of capsules plant-1, number of seeds capsule-1 and 1000 seed weight, whereas a significant decline in all these parameters was noted as WCCP exceeded 3 weeks. Weed density and dry weight did not increase significantly until WCCP was prolonged up to 3 and 4 weeks, respectively. This study led to conclude that although growth decline was started after 3rd week, however significant yield decline was noticed from 6th week after crop emergence. Key Words: Yield, weeds, competition period, Sesamum indicum L. INTRODUCTION Pakistan is annually spending Rs.77.78 billion on the import of edible oil, as only 24 % of total edible oil requirements are fulfilled through local production (GOP, 2010). According...

Words: 4288 - Pages: 18

Premium Essay

Royal Suites

...Executive Summary Royale Suites, an all suite hotel, is ready to expand its business into the downtown Inner Harbor Baltimore district. History tells us that the Royale Suites has been in business since early 1980 accommodating business professionals and families desiring larger and more private hotel rooms. The 267 room hotel offers 2 room suites, where small business meetings can be held or families can feel the comforts of home. The standard suite room contains a bed, television, table, chair, couch/love seat, computer accessibility, and variety of daily newspaper. The suites do not offer a kitchen facility. The hotel offers two large meeting rooms are available seating 60 each or combined to seat 100 and serve meals as well as a restaurant facility. After meeting with the executive committee members, marketing, advertising, rooms, food & beverage, and accounting, we determined that many concerns need to be addressed before the grand opening of Royale Suites Baltimore. Our target market includes the business professional and families with emphasis on business professionals. Based on statistics from our customer surveys we need to improve guest satisfaction in the following areas: comfortable beds, sought after amenities, efficient check-ins, and reasonable phone charges. We are tasked with developing a marketing mix which includes determining a competitive room rate for the downtown Baltimore district as well as promoting our product as a superior option in the...

Words: 3819 - Pages: 16

Premium Essay

Marketing Final

...** ASSESSMENT EXAM QUESTIONS – THESE ITEMS WILL DEFINITELY APPEAR ON THE FINAL EXAM ** CHAPTER 1 |1-113. |Marketing will not happen unless: | |A) |e-commerce is flourishing. | |B) |facilitators are present to simplify exchange. | |C) |middlemen are present to facilitate exchange. | |D) |two or more parties each have something they want to exchange for something else. | |E) |an economy is market-directed rather than planned. | |1-120. |MACRO-marketing: | |A) |is a social process. | |B) |tries to overcome "discrepancies of quantity" and "discrepancies of assortment." | |C) |tries to effectively match supply and demand. | |D) |tries to overcome the many separations...

Words: 82287 - Pages: 330

Premium Essay

Gmat Syllabus

...Syllabus Manhattan GMAT Complete Course Contents Do a page a week → Page(s) Bird's Eye View......................................................................... 2 Do This Homework..................................................... 3 - 11 Try Easier Quant............................................ 12 - 20 Only do as needed or → wanted (and if you have time) Try Easier Verbal............................................ 21 - 29 Try Harder Quant............................................. 30 - 36 Try Harder Verbal............................................ 37 - 42 Try More IR.................................................... 43 Try More Essay............................................. 44 Page 1 of 44 Bird's Eye View of Class Attended In Class Quant Verbal Topics & Methods Sentence Correction Critical Reasoning Reading Comprehension Other IR / Essay Preparing for the GMAT Session 1 □ DS Methods & Computation Methods 2 □ FDPs 3 □ Algebra 1 4 □ Algebra 2 5 □ Word Probs 1 6 □ Word Probs 2 7 □ Geometry 8 □ Num Props 1 9 □ Num Props 2 Subj-Verb Parallelism Pronouns Arg. Structure Assumption Modifiers Verbs Evaluate Comparisons Str/Weaken Idioms etc. Evidence Short Long IR Basics Essay Review Assess Gameplan Build "Do This" Checklist At Home Quant FoM Odds After Session 1 2 3 4 5 6 x 7 x 8 x 9 x x x □ □ □ □ □ □ □ x x x x □ □ □ □ □ □ □ □ □ x x □ □ □ □ □ □ □ □ □ x x □ □...

Words: 10013 - Pages: 41

Free Essay

Hate Speach

...THE LIABILITY OF INTERNET SERVICE PROVIDERS FOR UNLAWFUL CONTENT POSTED BY THIRD PARTIES N.D. O’BRIEN 2010 THE LIABILITY OF INTERNET SERVICE PROVIDERS FOR UNLAWFUL CONTENT POSTED BY THIRD PARTIES By N.D. O’BRIEN Submitted in fulfilment of the requirements for the degree of MAGISTER LEGUM in the Faculty of Law at the Nelson Mandela Metropolitan University January 2010 Supervisor: Prof F. Marx PREFACE I would like to extend my thanks to the following people:      To my parents and Emma Taggart for their help, encouragement, sacrifice and support; To my supervisor, Prof Marx, for his assistance and guidance; To Dawn Prinsloo, at the NMMU Library, for providing me with her time and guidance; To Ms. Fourie, the Law Faculty Officer, for her always prompt and friendly assistance; To Mr. Ant Brooks and the Internet Service Provider Association, for providing me with a variety of interesting information and insights. Without their invaluable assistance I would not have been able to have completed this work. i SUMMARY Internet Service Providers (ISP’s) are crucial to the operation and development of the Internet. However, through the performance of their basic functions, they faced the great risk of civil and criminal liability for unlawful content posted by third parties. As this risk threatened the potential of the Internet, various jurisdictions opted to promulgate legislation that granted ISP’s safe harbours from liability. The South African (RSA)...

Words: 77880 - Pages: 312

Premium Essay

On Her Knees

...FEES AND CHARGES FOR 2011 Web Page www.ru.ac.za/fees (1) GENERAL INFORMATION Liability for fees Liability for all fees begins as soon as completed application forms are submitted to the University and the student is accepted. The signing of the application form establishes the legal liability of the student and his/her other funder for the payment of all fees as determined by the Council. This can vary according to the student's circumstances. These fees are published in the annual Rhodes University Calendar, and are available on the WEB. In any discussions or negotiations about fees, it will be assumed that a student and his/her other funder have made themselves aware of the provisions of this section and of the equivalent fees schedule. While the University attempts to keep fees as low as possible, student fees usually increase annually by approximately 10% per annum. Ignorance of the fees payable does not provide grounds for avoiding liability for any fees due and payable. Alteration of fees The University Council reserves the right to alter all fees payable to the University, or to impose a fees surcharge if circumstances require it. In the case of an alteration of fees...

Words: 7332 - Pages: 30

Free Essay

Madagascar: Rainforest

...destruction of the environment. This is especially true when it comes to the issue of deforestation. In Madagascar, (Economic Geography, 1993) people have been cutting down the forests for decades. Throughout the past century, much of the rainforests of Madagascar have disappeared. People have begun moving out of the cities, industries have started to expand, and the use of land for farming (particularly coffee) has dramatically increased. All of these phenomenons have led to the destruction of the forest of Madagascar. Many plants and animal species have been severely endangered due to the deforestation (New Scientist 1990). With a current population near 14 million and growing at roughly 3% yearly combined with a per capita income of $230 per year, the major threats to the remaining forest are driven by subsistence needs and cutting for fuel. This has become a major issue, not only because of the value that the forest has on the living environment on earth, but also because of Madagascar's unusual and rare species. Biologically, Madagascar is one of the richest areas on earth. Approximately five percent of the world's species reside in Madagascar, and the island has 8,000 endemic species of flowering plants alone. The tropical rain forest of Madagascar before human colonization was...

Words: 3085 - Pages: 13

Premium Essay

Investment Banking

...Investment Banking Valuation, Leveraged Buyouts, and Mergers & Acquisitions JOSHUA ROSENBAUM JOSHUA PEARL FOREWORD BY JOSEPH R. PERELLA Investment Banking Founded in 1807, John Wiley & Sons is the oldest independent publishing company in the United States. With offices in North America, Europe, Australia, and Asia, Wiley is globally committed to developing and marketing print and electronic products and services for our customers’ professional and personal knowledge and understanding. The Wiley Finance series contains books written specifically for finance and investment professionals as well as sophisticated individual investors and their financial advisors. Book topics range from portfolio management to e-commerce, risk management, financial engineering, valuation, and financial instrument analysis, as well as much more. For a list of available titles, please visit our Web site at www.WileyFinance.com. Investment Banking Valuation, Leveraged Buyouts, and Mergers & Acquisitions JOSHUA ROSENBAUM JOSHUA PEARL John Wiley & Sons, Inc. Copyright C 2009 by Joshua Rosenbaum and Joshua Pearl. All rights reserved. Published by John Wiley & Sons, Inc., Hoboken, New Jersey. Published simultaneously in Canada. No part of this publication may be reproduced, stored in a retrieval system, or transmitted in any form or by any means, electronic, mechanical, photocopying, recording, scanning, or otherwise, except as permitted under Section 107 or 108 of the 1976...

Words: 138300 - Pages: 554

Premium Essay

Tesla

...Equity Research Industrials | U.S. Autos & Auto Parts 12 February 2015 Tesla Motors Inc. Another reminder of challenges ahead EQUAL WEIGHT Stock Rating Unchanged NEUTRAL Industry View 4Q print validated concern that crossing the chasm is tougher than it looks: Last week we caught the ire of Tesla bulls by lowering our estimates based on concerns about production delays and rising opex and capex (see “Crossing the chasm is tougher than it looks”). The 4Q print validated many of those concerns. Behind an EPS loss of 13c vs. consensus +30c were several soft spots – Tesla missed 4Q deliveries and guided softly for 1Q’15, ZEV credits artificially boosted results, opex grew faster than expected, and capex was guided well ahead of our conservative model. The result reinforces that Tesla’s push to become a mass market OEM is much harder than it looks. We reiterate our EW rating and remain cautious on the stock near-term. Unchanged USD 190.00 Price Target lowered -5% from USD 200.00 Price (11-Feb-2015) USD 212.80 Potential Upside/Downside -11% Tickers TSLA 26681 Shares Outstanding (mn) Don’t get caught up with ambitious mid/long-term targets…: Despite the weak quarter, there was enough to keep the die-hard bulls interested. Our take - don’t get caught up in it. On the demand side, Musk noted Tesla could reach its ‘15 S/X delivery guide of 55k even ex. China, and has a “secret weapon” which could be deployed later ...

Words: 12089 - Pages: 49

Free Essay

Mimi

...ETHICS IN ACCOUNTING: THE WORLDCOM INC. SCANDAL Conf.univ.dr. Lucian Cernuşca “Aurel Vlaicu” University, Arad, str. Piaţa Sporturilor, nr. 10, bl. 25, apt. 7, 310167 Arad, Phone: 0730468534, luciancernusca@gmail.com What is ethics? What does ethics have to do with accounting? How does a scandal affect the business environment and the society? This article will explain just those questions by analyzing a “famous” fraud scandal: WorldCom Inc. The article discusses the chronology of events that lead to the WorldCom Inc. collapse and explains how the figures were manipulated for the owners’ interest and what the accounting scam was. The article ends with the consequences of the scandal and what the effects were on the society and business environment in general. JEL Classification: M4 Accounting and Auditing Key words: ethics, accounting, bankruptcy, WorldCom Inc., expenses. What is ethics? Why ethics in accounting? Ethical values are the foundations on which a civilized society is based on. Without them, the civilization collapses. In business, the purpose of ethics is to direct business men and women to abide by a code of conduct that facilitates public confidence in their product and services. In the accounting field, professional accounting organizations recognize the accounting profession’s responsibility to provide ethical guidelines to its members. Ethics must and should be taught. People are not born with the desire to be ethical or be concerned with...

Words: 3896 - Pages: 16

Premium Essay

Virginia Pollard

...Name removed. GM 520- Week 2 Assignment Assignment: Pick an administrative agency of either the Federal or a State government. Find where the current and proposed regulation changes for that agency are located on the internet. (i.e. the Federal Register or the State Administrative Agency website.) Regulations.gov is a good place to begin your research. Pick one proposed regulation change currently under consideration (if you find one which has already closed out, but interests you, you can use that, instead) and write the following regarding it: 1. State the administrative agency which controls the regulation. Explain why this agency and your proposed regulation interests you (briefly). Will this proposed regulation affect you or the business in which you are working? If so, how? Submit a copy of the proposed regulation along with your responses to these five questions. The proposed regulation can be submitted as either a separate Word document (.doc) or Adobe file (.pdf). This means you will submit two attachments to the Week 2 Dropbox: (1) a Word doc with the questions and your answers and (2) a copy of the proposed regulation you used for this assignment. (10 points) 2. Describe the proposal/change. (10 points) 3. Write the public comment which you would submit to this proposal. If the proposed regulation deadline has already passed, write the comment you would have submitted. Explain briefly what you wish to accomplish with your comment. (10 points) 4. Provide the "deadline"...

Words: 21997 - Pages: 88