Part $1-$ Creating a Perl Script to Access the Win$32$ API

This program will pull system data from the Windows OS using Win$32$ API functions.

Start Notepad$++$ and create a new file called Win$32.$pl and save it to a memorable location such as C:$\backslash$Strawberry$\backslash$Scripts$.$

In the new Notepad$++$ file, type # Win$32.$pl on the first line and press ENTER.

Write comments for documenting the program. Be sure to enter your name, course number, date, and a brief description of what the program does.

After your lines of documentation, press ENTER two times to create a blank line for separating your comments from the script code.

Type use win$32$; and press ENTER $$ this imports the $$win$32$ module

Type $login $=$ Win$32$::LoginName$()$; and press ENTER $-$ this populates the $login variable with the data gathered from LoginName$().$

Type $NetBIOS $=$ Win$32$::NodeName$()$; and press ENTER $$ this populates the $NetBIOS variable with the data gathered from NodeName$()$

Type $Filesystem $=$ Win$32$::FsType$()$; and press ENTER $$ this populates the $Filesystem variable with the data gathered from FsType$()$

Type $Directory $=$ Win$32$::GetCwd$()$; and press ENTER $$ this populates the $Directory variable with the data gathered from GetCwd$()$

Type $os$\_$name $=$ Win$32$::GetOSName$()$; and press ENTER $$ this populates the $os$\_$name variable with the data gathered from GetOSName$()$

Type print $"$$login

$"$; and press ENTER $$ this prints the data in the variable

Type print $"$$NetBIOS

$"$; and press ENTER $$ this prints the data in the variable

Type print $"$$Filesystem

$"$; and press ENTER $$ this prints the data in the variable

Type print $"$$Directory

$"$; and press ENTER $$ this prints the data in the variable

Type print $"$$os$\_$name

$"$; and press ENTER $$ this prints the data in the variable

Your code should now look similar to the screenshot below.

Select two more Win$32$ API Functions from the $$Win$32\_$API$\_$Functions.pdf$$ document $[2]$ in the Lab Resources section or another source and add them to the code.

Add comments to the code to make it more readable and understandable

Add labels to print statements and$/$or create new print statements to make the output more understandable

Save the script file, open a command prompt $($cmd$),$ navigate to the folder containing your Win$32.$pl file, and run the script by typing perl Win$32.$pl and pressing ENTER.

Take a screenshot of the script code and paste it in your Lab Report with captions or titles.

Take a screenshot of the script output and paste it in your Lab Report with captions or titles.

Analyze and research results and scripts for a consolidated write$-$up to include in Analysis section of your Lab Report