have a search on the forum for GetObject("WinNT:
you are looking for something like
Set objAdmin = GetObject("WinNT://" & strComputerName & "/Administrators,group")
For Each aMember In objAdmin.Members
Wscript.Echo aMember.Name
Next
you will need to sort out strComputerName, from something like WshShell.ExpandEnvironmentStrings("%computername%")
then you will need to sort some logging out
Set tsLog = FSO.OpenTextFile("\\serverA\audit$\admins\" & strComputerName & ".log", 8, True)
tsLog.WriteLine..... aMember.Name etc
anyway, i think this should get you started.
try and write something and see how you get on, post back if you have probs or want someone to give you some pointers on style