Const SQLServer = "MYSERVERNAME" 'edit this with the SQL server name
'connect to DB
Set oConn = CreateObject("ADODB.Connection")
	oConn.Open "Driver={SQL Server};" & _ 
	 		"Server=" & SQLServer & ";" & _
	 		"Database=Altiris_Incidents;" & _
	 		"Trusted_Connection=yes;"
'Clear all vip_flags
sSQL = "UPDATE contact SET vip_flag = '0'"
oConn.Execute(sSQL)
'Get group membership - user the DN to connect to the object
Set objGroup = GetObject _
	("LDAP://CN=Executives,OU=Users,DC=mydomain,DC=com") 'edit this with the DN of the group
'Loop through all group members
For Each Member In objGroup.getex("member")
	Set objUser=GetObject ("LDAP://" & Member)
		'altiris appends the domain in front of the nt user id - so we do the same here
		strUserid = "mydomain\" & objUser.get("samaccountname") 'edit mydomain with the domain name
		'set VIP flag in DB
		sSQL = "UPDATE contact SET vip_flag = '1' WHERE (nt_id='" & strUserid & "')"
		Err.Clear
		oConn.Execute(sSQL)
		Set objUserid = Nothing
next
Set ObjGroup = Nothing
oconn.Close
Set oconn = Nothing