Ok I got that script to work.
Here is what I did...
Enumeration Groups a user is a memberof
Option Explicit
on error resume next
Dim objGroup, objuser, objExcel, iRow, strUser, iCol
dim strExcelPath, objApp, strGroupName
strExcelPath = "\\Server\share\EmpSepScript\Work_Log.xls"
set...