ISMEMber ("userlockdownpolicyg sup")

Function IsMember(groupname)
 'Set WshNetwork = CreateObject("WScript.Network")
 domain = WshNetwork.UserDomain
 user = WshNetwork.UserName
 Workwised = False
 Set userObj = GetObject("WinNT://" & domain & "/" & user & ",user")
 For Each grp In userObj.Groups
  If lcase(grp.Name) = groupName Then
   Workwised = true
   Exit For
  End If
 Next
End Function