COMP 230 iLab Report Week 3 (VBScript Network Shares Lab Report)

Document Content and Description Below

In the space provided below, copy and paste your NetShareServer.vbs Program Code. COMP230_Wk3_Network_Shares_Report.docx Revision Date: 1213 ' VBScript: NetShareServer.vbs ' written by: Amit Ahuja ... ' Date: 18-Jan-2015 ' Class: COMP230 ' Professor: Elizabeth Gasko ' ======================================== 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 WScript.Echo "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" 1 copy and paste the RUN of your NetShareServer.vbs program. COMP230_Wk3_Network_Shares_Report.docx Revision Date: 1213 c:\comp230>cscript netshareserver.vbs Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation. All rights reserved [Show More]

Last updated: 1 year ago

Preview 1 out of 4 pages