Week 3 Ilab

Student Name | | Class | | Date | | VBScript Network Shares Lab Key

' VBScript: NetShareServer.vbs
' Written by: Student Name
' Date: Today's Date
' Class: COMP230
' Professor: Professor Name
' ==============================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileServ = GetObject("WinNT://vlab-PC1/LanmanServer,FileService")

'On Error Resume Next fso.CreateFolder("C:\Public") fso.CopyFile "C:\Windows\Cursors\w*.*","C:\Public"

WScript.Echo vbCrLf & "Current Network Shares"
For Each sh In fileServ WScript.Echo sh.name
Next

Set share = fileServ.Create("FileShare", "PublicData") share.Path = "C:\Public" share.MaxUserCount = 10 share.SetInfo WScript.Echo vbCrLf & "New Network Shares"
For Each sh In fileServ WScript.Echo sh.name
Next

WScript.Echo vbCrLf & "\\vlab-PC1\PublicData Share will be Available for 60 Seconds!!"
WScript.Sleep(60000)

fileServ.Delete "FileShare","PublicData" fso.DeleteFolder "C:\Public",True

WScript.Echo vbCrLf & "End of Program"
In the space provided below, copy and paste your NetShareServer.vbs Program Code:

cscript NetShareServer.vbs
Process started >>>
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

Current Network Shares
Users

New Network Shares
PublicData
Users

\\vlab-PC1\PublicData Share will be Available for 60 Seconds!!

End of Program
<<< Process finished.
In the space provided below, copy and paste the RUN of your NetShareServer.vbs program:

' VBScript: NetShareClient.vbs
' Written by: Student Name
' Date: Today's Date
' Class: COMP230
' Professor: Professor Name
' ==============================================
Set fso = CreateObject("Scripting.FileSystemObject")
Set networkObj = WScript.CreateObject("WScript.Network")

networkObj.MapNetworkDrive "X:","\\vlab-PC1\PublicData"
Set folder = fso.GetFolder("X:\")
Set files = folder.Files
WScript.Echo vbCrLf
WScript.Echo "Contents of Mapped