<div>
Not sure exactly what you are looking for? &nbsp;Are you just looking for info on how to email from a VBS script? &nbsp;Or something more than that, looking for logic to compare the lists or identify certain populations, etc? 
 
~bp
</div>

<div>
The script already sends and email with the user in it for any differences compared from the group to the sharepoint site. &nbsp;However, it doesn't list specifically which group the user is in, in the email it generates, only the user. &nbsp;The user info is gathered into a collection among 3 groups. &nbsp;I wanted to break it down by specifying which user in which group is not in sharepoint, etc., 
 

<pre><code class="code-100 nolinks" id="code-20-41762700-1">Const ForReading = 1, ForWriting = 2
emailfrom = &quot;group@comcast.net&quot;
emailto = &quot;moderator@comcast.net&quot;

Set WshShell = CreateObject(&quot;WScript.Shell&quot;)
Set groupb = CreateObject(&quot;Scripting.Dictionary&quot;)
Set groupa = CreateObject(&quot;Scripting.Dictionary&quot;)
Set inanotb = CreateObject(&quot;Scripting.Dictionary&quot;)
Set inbnota = CreateObject(&quot;Scripting.Dictionary&quot;)
Set objfso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
tempfile = Replace(WScript.ScriptFullName, WScript.ScriptName, &quot;&quot;) &amp;&quot;Tickets.txt&quot;
Set objfile = objfso.OpenTextFile(tempfile, ForWriting, True)
sp=&quot;http://sharepointsite/AllItems.aspx&quot;
Set spsite = WScript.GetObject(sp) 

While spsite.readystate &lt;&gt; &quot;complete&quot; 
 WScript.Sleep 200
Wend 
strtofind1=&quot; target=_self&gt;&quot; 
strtofind2=&quot;&lt;/A&gt;&lt;/DIV&gt;&quot;
strtofind2=&quot;&lt;/A&gt;&lt;&quot;
groupnameB=&quot;A_Group1&quot;
groupnameC=&quot;A_Group2&quot;
groupnameD=&quot;A_Group3&quot;
objfile.writeline spsite.documentElement.outerHTML
objFile.Close

Set objFile = objFSO.OpenTextFile(tempfile, ForReading)
Do Until objFile.AtEndOfStream
	strline = objFile.ReadLine
	pos=instr(strline,strtofind1)
	if pos &gt; 0 Then
		tmp=split(strline,strtofind1)
		dnsname = trim(tmp(1))
		tmp=split(dnsname,strtofind2)
		username=ucase(tmp(0))
		if left(username,2) = &quot;70&quot; or left(username,2) = &quot;71&quot; or left(username,2) = &quot;72&quot; or left(username,2) = &quot;73&quot; or left(username,2) = &quot;74&quot; or left(username,1) = &quot;75&quot; or left(username,2) = &quot;76&quot; Then 
			If Not groupa.Exists(username) Then
				groupa.add username , 0
			End If
		end if
	end if
loop
objFile.Close

	getuser groupb,groupnameB,tempfile	
	getuser groupb,groupnameC,tempfile
	getuser groupb,groupnameD,tempfile

	For Each element In groupa
		if not groupb.exists(element) then
			inanotb.Add element , 0
		end if
	Next

	For Each element In groupb
		if not groupa.exists(element) then
			inbnota.Add element , 0
		end if
	Next

	emailbody=&quot;&quot;
	for each member in inanotb
		emailbody=emailbody &amp; vbCrLf &amp; member
	next
	if emailbody &lt;&gt; &quot;&quot; then
		emailbody = sp &amp; vbCrLf &amp; emailbody
		sendemail &quot;Users in sharepoint site but not A_xxx groups&quot; ,emailfrom,emailto,emailbody,emailattachment
	end if

	emailbody=&quot;&quot;
	for each member in inbnota
		emailbody=emailbody &amp; vbCrLf &amp; member
	next
	if emailbody &lt;&gt; &quot;&quot; then
		emailbody = sp &amp; vbCrLf &amp; emailbody
		sendemail &quot;Users in A_xxx groups but not sharepoint site&quot;,emailfrom,emailto,emailbody,emailattachment
	end if

wscript.quit

sub SendEmail(emailSubject,emailfrom,emailto,emailbody,emailattachment)

	Dim objMessage
	Set objMessage = CreateObject(&quot;CDO.Message&quot;)
	objMessage.Subject = emailsubject
	objMessage.From = emailfrom
	objMessage.To = emailto
	objMessage.TextBody = emailbody
	if emailattachment &lt;&gt; &quot;&quot; then
		objMessage.AddAttachment emailattachment
	End if

	objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2
	objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;mail.comcast.net&quot;
	objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
	objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout&quot;) = 60
	objMessage.Configuration.Fields.Update
	objMessage.Send
	emailsubject = &quot;&quot;
	emailbody = &quot;&quot;
End sub 

Sub getuser(ADUsers,groupname,strpath)
 runline = &quot;cmd.exe /c dsquery group dc=comcast,dc=net -name &quot;&amp;groupname&amp;&quot; | dsget group -members &gt; &quot; &amp; Chr(34) &amp; strpath &amp; Chr(34)
 WShshell.Run runline,0,TRUE
 set ofile=objfso.opentextfile(strpath,1)
 count=0
 Do While Not oFile.AtEndOfStream
 Fline = oFile.Readline
 if mid(fline,2,3)=&quot;CN=&quot; then
 endofline=instr(fline,&quot;,&quot;)-1
 fline=Left(fline,endofline)
 fline=UCase(mid(fline,5,len(fline)))
 If Not ADUsers.Exists(Fline) Then
 ADUsers.add Fline , 0
 End If
 count=count+1
 END if
 loop
 ofile.close
end Sub
</code></pre>
</div>

<div>
Okay, I think I am understanding. &nbsp;Just to be sure, this change would only affect the second email sent, &quot;Users in A_xxx groups but not SharePoint site&quot; right? &nbsp;Since the first email contains accounts that were not in any of the three groups? 
 
~bp
</div>

<div>
That's correct, thank you Bill!
</div>

<div>
It's returning the members in the group, but the group is reading 0 
 
User: 702555 Group: 0 
User: 712555 Group: 0 
User: 722555 Group: 0
</div>

<div>
Okay, let's try adding these debug display statements to the console and see if we can get a clue... 
 

<pre><code class="code-100 nolinks" id="code-20-41762956-1">Const ForReading = 1, ForWriting = 2
emailfrom = &quot;group@comcast.net&quot;
emailto = &quot;moderator@comcast.net&quot;

Set WshShell = CreateObject(&quot;WScript.Shell&quot;)
Set groupb = CreateObject(&quot;Scripting.Dictionary&quot;)
Set groupa = CreateObject(&quot;Scripting.Dictionary&quot;)
Set inanotb = CreateObject(&quot;Scripting.Dictionary&quot;)
Set inbnota = CreateObject(&quot;Scripting.Dictionary&quot;)
Set objfso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
tempfile = Replace(WScript.ScriptFullName, WScript.ScriptName, &quot;&quot;) &amp; &quot;Tickets.txt&quot;
Set objfile = objfso.OpenTextFile(tempfile, ForWriting, True)
sp = &quot;http://sharepointsite/AllItems.aspx&quot;
Set spsite = WScript.GetObject(sp)

While spsite.readystate &lt;&gt; &quot;complete&quot;
 WScript.Sleep 200
WEnd
strtofind1 = &quot; target=_self&gt;&quot;
strtofind2 = &quot;&lt;/A&gt;&lt;/DIV&gt;&quot;
strtofind2 = &quot;&lt;/A&gt;&lt;&quot;
groupnameB = &quot;A_Group1&quot;
groupnameC = &quot;A_Group2&quot;
groupnameD = &quot;A_Group3&quot;
objfile.writeline spsite.documentElement.outerHTML
objFile.Close

Set objFile = objFSO.OpenTextFile(tempfile, ForReading)
Do Until objFile.AtEndOfStream
 strline = objFile.ReadLine
 pos = instr(strline, strtofind1)
 If pos &gt; 0 Then
 tmp = split(strline, strtofind1)
 dnsname = trim(tmp(1))
 tmp = split(dnsname, strtofind2)
 username = ucase(tmp(0))
 If left(username, 2) = &quot;70&quot; Or left(username, 2) = &quot;71&quot; Or left(username, 2) = &quot;72&quot; Or left(username, 2) = &quot;73&quot; Or left(username, 2) = &quot;74&quot; Or left(username, 1) = &quot;75&quot; Or left(username, 2) = &quot;76&quot; Then
 If Not groupa.Exists(username) Then
 groupa.add username, 0
 End If
 end If
 end If
Loop
objFile.Close

getuser groupb, groupnameB, tempfile
getuser groupb, groupnameC, tempfile
getuser groupb, groupnameD, tempfile

For Each element In groupa
 If Not groupb.exists(element) Then
 inanotb.Add element, 0
 end If
Next

For Each element In groupb
 If Not groupa.exists(element) Then
Wscript.Echo &quot;Main(groupb) - Key:&quot; &amp; element &amp; &quot;, Data:&quot; &amp; groupb.Item(element)
 inbnota.Add element, groupb.Item(element)
Wscript.Echo &quot;Main(inbnota) - Key:&quot; &amp; element &amp; &quot;, Data:&quot; &amp; inbnota.Item(element)
 end If
Next

emailbody = &quot;&quot;
For Each member In inanotb
 emailbody = emailbody &amp; vbCrLf &amp; member
Next
If emailbody &lt;&gt; &quot;&quot; Then
 emailbody = sp &amp; vbCrLf &amp; emailbody
 sendemail &quot;Users in sharepoint site but not A_xxx groups&quot;, emailfrom, emailto, emailbody, emailattachment
end If

emailbody = &quot;&quot;
For Each member In inbnota
 For Each group In Split(inbnota.Item(member), &quot;,&quot;)
Wscript.Echo &quot;EMail(inbnota) - Key:&quot; &amp; element &amp; &quot;, Data:&quot; &amp; inbnota.Item(element) &amp; &quot;, Group:&quot; &amp; group
 emailbody = emailbody &amp; vbCrLf &amp; &quot;User: &quot; &amp; member &amp; &quot; Group: &quot; &amp; group
 Next
Next
If emailbody &lt;&gt; &quot;&quot; Then
 emailbody = sp &amp; vbCrLf &amp; emailbody
 sendemail &quot;Users in A_xxx groups but not sharepoint site&quot;, emailfrom, emailto, emailbody, emailattachment
end If

wscript.quit

Sub SendEmail(emailSubject, emailfrom, emailto, emailbody, emailattachment)

 Dim objMessage
 Set objMessage = CreateObject(&quot;CDO.Message&quot;)
 objMessage.Subject = emailsubject
 objMessage.From = emailfrom
 objMessage.To = emailto
 objMessage.TextBody = emailbody
 If emailattachment &lt;&gt; &quot;&quot; Then
 objMessage.AddAttachment emailattachment
 End If

 objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2
 objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;mail.comcast.net&quot;
 objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
 objMessage.Configuration.Fields.Item (&quot;http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout&quot;) = 60
 objMessage.Configuration.Fields.Update
 objMessage.Send
 emailsubject = &quot;&quot;
 emailbody = &quot;&quot;
End Sub

Sub getuser(ADUsers, groupname, strpath)
 runline = &quot;cmd.exe /c dsquery group dc=comcast,dc=net -name &quot; &amp; groupname &amp; &quot; | dsget group -members &gt; &quot; &amp; Chr(34) &amp; strpath &amp; Chr(34)
 WShshell.Run runline, 0, True
 Set ofile = objfso.opentextfile(strpath, 1)
 count = 0
 Do While Not oFile.AtEndOfStream
 Fline = oFile.Readline
 If mid(fline, 2, 3) = &quot;CN=&quot; Then
 endofline = instr(fline, &quot;,&quot;) - 1
 fline = Left(fline, endofline)
 fline = UCase(mid(fline, 5, len(fline)))
 If ADUsers.Exists(Fline) Then
 ADUsers.Item(FLine) = ADUsers.Item(FLine) &amp; &quot;,&quot; &amp; groupname
Wscript.Echo &quot;GetUser(upd) - Key:&quot; &amp; Fline &amp; &quot;, Data:&quot; &amp; ADUsers.Item(FLine)
 Else
 ADUsers.Add Fline, groupname
Wscript.Echo &quot;GetUser(add) - Key:&quot; &amp; Fline &amp; &quot;, Data:&quot; &amp; ADUsers.Item(FLine)
 End If
 count = count + 1
 END If
 Loop
 ofile.close
end Sub
</code></pre>
~bp
</div>

<div>
I think I had something remarked out the first time, your initial response did exactly what I wanted. &nbsp;Thank you so much for your help, you are a genius with scripting!
</div>

<div>
Great, glad that was helpful, and thanks for the feedback! 
 
~bp
</div>

<div>
Could not offer a higher score, Bill Prew is a genius with scripting.
</div>

<div>
<div class="content wysiwyg-content">
I have a script, that compares users in 3 groups against a list in a sharepoint site. &nbsp; 
Then I have it emailing all members not listed in the groups vs. members in the sharepoint site and vice versa to sync up. 
What I'm trying to do is have each user that is listed in the groups emailed along with what group they are in. &nbsp; 
So the email would read something like for example: 
User: 700155 &nbsp;Group: &nbsp;A_Group1 
User: 714455 &nbsp;Group: &nbsp;A_Group2 
User: 724221 &nbsp;Group: &nbsp;A_Group3 
 
Any expert advice is appreciated!
</div>
</div>

I have a script, that compares users in 3 groups against a list in a sharepoint site.  
Then I have it emailing all members not listed in the groups vs. members in the sharepoint site and vice versa to sync up.
What I'm trying to do is have each user that is listed in the groups emailed along with what group they are in.  
So the email would read something like for example:
User: 700155  Group:  A_Group1
User: 714455  Group:  A_Group2
User: 724221  Group:  A_Group3

Any expert advice is appreciated!

Vbscript  output help

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.