Hi, thanks for your reply. I modified the code as you suggested and corrected my spelling mistakes ^_^ it now looks like this
Option Explicit
Dim oFSO, oFile, arrServer, strServer, objWMIService, sCol
Const ForReading = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile =...