Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Const ComputersList = "C:\sysadmin\CopyFilesPcList.txt" Const SourceFile = "C:\sysadmin\Isolations.url" Const TargetFolder = "C:sysadmin\" Const ReportFile = "C:\sysadmin\CopyFilesLog.txt" Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFile : Set objFile = objFSO.CreateTextFile (ReportFile) arrComputers = Split(objFSO.OpenTextFile(ComputersList).ReadAll, vbNewLine) For Each PC in arrComputers objFile.WriteLine "Attempting copy to " & PC On Error Resume Next objFSO.CopyFile SourceFile, "\\" & PC & "\" & Replace(TargetFolder, ":\","$\") If Err.Number <> 0 Then objFile.WriteLine vbTab & "Failed to copy to " & PC" Else objFile.WriteLine vbTab & "File successfully copied to " & PC End If On Error Goto 0 Next objFile.Close
|How can I change the contents on an Excel workbook based on a lookup list for about 350 plus worksheets with a macro or code?||27||110|
|Need to Modify a Script I found||5||98|
|Anti-virus for Linux Server||15||138|
|VB script to get count(number) of files present in the URL based on the Last modified date||11||52|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!