Comp 230 Wk 3

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

' VBScript: NetShareServer.vbs

' Written by: Jim

' Date: 06-04-2014

' Class: COMP230

' Professor:

' =======================================

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileServ = GetObject("WinNT://vlab-PC1/LanmanServer,FileService")

fso.CreateFolder("C:\Public")

fso.CopyFile "C:\Windows\Cursors\w*.*","C:\Public"

WScript.Echo vbCrLf & "End of Program"

' VBScript: NetShareServer.vbs

' Written by: Matt Reeves

' Date: 06-04-2014

' Class: COMP230

' Professor: Stanley Kuchel

' =======================================

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileServ = GetObject("WinNT://vlab-PC1/LanmanServer,FileService")

If fso.folderexists("C:\public") then

fso.deletefolder("C:\public")

Wscript.echo "Public folder deleted"

End if

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

WScript.Echo "New Network Shares"

For Each sh In fileServ

WScript.Echo sh.name

Next

WScript.Echo vbCrLf & "End of Program"

' VBScript: NetShareServer.vbs

' Written by: Matt Reeves

' Date: 06-04-2014

' Class: COMP230

' Professor: Stanley Kuchel

' =======================================

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileServ = GetObject("WinNT://vlab-PC1/LanmanServer,FileService")

If fso.folderexists("C:\public") then

fso.deletefolder("C:\public")

Wscript.echo "Public folder deleted"

End if

fso.CreateFolder("C:\Public")

fso.CopyFile...