Public GroupList
Public UserName

Const DomainName="OS"

Sub InitProgram
  Dim oUser, oGroup
  UserName  = onetwork.UserName
  Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user")
  GroupList="|"
  	For Each oGroup In oUser.Groups
  	   GroupList = GroupList & lcase(oGroup.Name) & "|"
  	Next
  Set oUser = Nothing
End Sub

Function IsMember(GroupName)
  if instr(GroupList,lcase(GroupName))>0 then
    IsMember=true
  else
    IsMember=false
  End if
End Function


'***********************************************************************
' Main
'
set onetwork = wscript.createobject("wscript.network")
set oshell   = wscript.createobject("wscript.shell")

InitProgram


set onetwork = nothing
set oshell   = nothing