Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add intRow = 2 objExcel.Cells(1, 1).Value = "Machine Name" objExcel.Cells(1, 2).Value = "Admin Share Exists" Set Fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("MachineList.Txt") Do While Not (InputFile.atEndOfStream) strComputer = InputFile.ReadLine On Error Resume Next Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'ADMIN$'") objExcel.Cells(intRow, 1).Value = UCase(strComputer) If colShares.Count > 0 Then objExcel.Cells(intRow, 2).Value = "Yes" Else objExcel.Cells(intRow, 2).Value = "No" End If If Err.Number <> 0 Then objExcel.Cells(intRow, 2).Value = Err.Description Err.Clear End If intRow = intRow + 1 objExcel.Range("A1:B1").Select objExcel.Selection.Interior.ColorIndex = 19 objExcel.Selection.Font.ColorIndex = 11 objExcel.Selection.Font.Bold = True objExcel.Cells.EntireColumn.AutoFit loop Wscript.Echo "Done"
——————-
Thanks,
https://paddymaddy.blogspot.com/
