ADO- Multi Value Attributes

[Randhir Singh]

Hello,
I am using ADO to pull values from a multi valued attribute. The
attribute that i'm retrieving has over 1300 values, however none of
the values are retrieved. So… the work-around that I'm using is a
"range" feature in the LDAP search criteria. This allows me to pull
values from a multi valued attribute by placing range=a-b (a & b being
a numerical range) in front of the attribute being queried (i.e.
directreports;range=0-100). This works fine until i exceed the
upperbound of the range. Now, is it possible to know the upperbound
of a multi valued attribute? Secondly, is there any other work
arounds?
Thanks all.

Randhir

[Richard Mueller [MVP]]

Post by Randhir Singh
I am using ADO to pull values from a multi valued attribute. The
attribute that i'm retrieving has over 1300 values, however none of
the values are retrieved. So. the work-around that I'm using is a
"range" feature in the LDAP search criteria. This allows me to pull
values from a multi valued attribute by placing range=a-b (a & b being
a numerical range) in front of the attribute being queried (i.e.
directreports;range=0-100). This works fine until i exceed the
upperbound of the range. Now, is it possible to know the upperbound
of a multi valued attribute? Secondly, is there any other work
arounds?

Hi,

Using Range Limits to retrieve multi-valued attributes is described in the
"Windows 2000 Scripting Guide" at this link:

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_ads_gkcy.asp

Based on this info, and experimentation, I write the VBScript below to
enumerate the members of a group, even if the group has more than 1000
members. You should be able to adapt this code to handle your attribute. I
used a recursive subroutine to handle nested groups. You probably don't need
a subroutine, but you will need the variables blnLast, intRangeStep,
intLowRange, intHighRange, and intCount. I hope this helps:

' EnumGroup2.vbs
' Copyright (c) 2003 Richard L. Mueller
' Version 1.0 - March 28, 2003

Option Explicit

Dim strNTName, objRootDSE, strDNSDomain, objCommand
Dim objConnection, strBase, strAttributes

' Check for required argument.
If Wscript.Arguments.Count <> 1 Then
Wscript.Echo "Required argument <NT Name> missing. " _
& "For example:" & vbCrLf _
& "cscript //nologo EnumGroup.vbs ""GroupNTName"""
Wscript.Quit(0)
End If

strNTName = Wscript.Arguments(0)

' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")

' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open = "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False

strBase = "<LDAP://" & strDNSDomain & ">"
strAttributes = "member"

Call EnumMembers(strNTName, "")

Sub EnumMembers(strName, strOffset)
Dim strFilter, strQuery, objRecordSet, k, objMember
Dim strDN, intCount, blnLast, intLowRange
Dim intHighRange, intRangeStep, objField

strFilter = "(&(ObjectCategory=group)" _
& "(ObjectClass=group)" _
& "(sAMAccountName=" & strName & "))"

blnLast = False
intRangeStep = 999
intLowRange = 0
IntHighRange = intLowRange + intRangeStep

Do While True

If blnLast = True Then
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange _
& "-*;subtree"
Else
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange & "-" _
& intHighRange & ";subtree"
End If
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
intCount = 0

Do Until objRecordSet.EOF
For Each objField In objRecordSet.Fields
If VarType(objField) = (vbArray + vbVariant) _
Then
For Each strDN In objField.Value
Set objMember = GetObject("LDAP://" & strDN)
Wscript.Echo strOffset & "Member of " _
& strName & ": " & strDN
intCount = intCount + 1
If UCase(objMember.Class) = "GROUP" Then
Call _
EnumMembers(objMember.sAMAccountName, _
strOffset & "--")
End If
Next
End If
Next
objRecordSet.MoveNext
Loop

If blnLast = True Then
Exit Do
End If

If intCount = 0 Then
blnLast = True
Else
intLowRange = intHighRange + 1
intHighRange = intLowRange + intRangeStep
End If
Loop
End Sub

[Randhir Singh]

Thanks for your prompt response. I have written simlar code in
Jscript, but my question was regarding the upperbound of a
multi-valued attribute. Specifically, if I dont know the upperbound
of a multi-valued attribute how is it possible to pull all the values
without setting a PRECISE range (0-1000). I've noticed if you go
beyond the upperbound of a multi valued attribute, the query will fail
(i.e. directreports attribute holds 850 alues and I query with
directreports;range=0-1000). So, the question still remains, how is
it possible to programatically pull values from a multi valued
attribute without failing (when using range- fail if you exceed the
upperbound, without using range- fail if too many values)?

Post by Richard Mueller [MVP]

Post by Randhir Singh
I am using ADO to pull values from a multi valued attribute. The
attribute that i'm retrieving has over 1300 values, however none of
the values are retrieved. So. the work-around that I'm using is a
"range" feature in the LDAP search criteria. This allows me to pull
values from a multi valued attribute by placing range=a-b (a & b being
a numerical range) in front of the attribute being queried (i.e.
directreports;range=0-100). This works fine until i exceed the
upperbound of the range. Now, is it possible to know the upperbound
of a multi valued attribute? Secondly, is there any other work
arounds?

Hi,
Using Range Limits to retrieve multi-valued attributes is described in the
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_ads_gkcy.asp
Based on this info, and experimentation, I write the VBScript below to
enumerate the members of a group, even if the group has more than 1000
members. You should be able to adapt this code to handle your attribute. I
used a recursive subroutine to handle nested groups. You probably don't need
a subroutine, but you will need the variables blnLast, intRangeStep,
' EnumGroup2.vbs
' Copyright (c) 2003 Richard L. Mueller
' Version 1.0 - March 28, 2003
Option Explicit
Dim strNTName, objRootDSE, strDNSDomain, objCommand
Dim objConnection, strBase, strAttributes
' Check for required argument.
If Wscript.Arguments.Count <> 1 Then
Wscript.Echo "Required argument <NT Name> missing. " _
& "For example:" & vbCrLf _
& "cscript //nologo EnumGroup.vbs ""GroupNTName"""
Wscript.Quit(0)
End If
strNTName = Wscript.Arguments(0)
' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open = "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
strBase = "<LDAP://" & strDNSDomain & ">"
strAttributes = "member"
Call EnumMembers(strNTName, "")
Sub EnumMembers(strName, strOffset)
Dim strFilter, strQuery, objRecordSet, k, objMember
Dim strDN, intCount, blnLast, intLowRange
Dim intHighRange, intRangeStep, objField
strFilter = "(&(ObjectCategory=group)" _
& "(ObjectClass=group)" _
& "(sAMAccountName=" & strName & "))"
blnLast = False
intRangeStep = 999
intLowRange = 0
IntHighRange = intLowRange + intRangeStep
Do While True
If blnLast = True Then
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange _
& "-*;subtree"
Else
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange & "-" _
& intHighRange & ";subtree"
End If
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
intCount = 0
Do Until objRecordSet.EOF
For Each objField In objRecordSet.Fields
If VarType(objField) = (vbArray + vbVariant) _
Then
For Each strDN In objField.Value
Set objMember = GetObject("LDAP://" & strDN)
Wscript.Echo strOffset & "Member of " _
& strName & ": " & strDN
intCount = intCount + 1
If UCase(objMember.Class) = "GROUP" Then
Call _
EnumMembers(objMember.sAMAccountName, _
strOffset & "--")
End If
Next
End If
Next
objRecordSet.MoveNext
Loop
If blnLast = True Then
Exit Do
End If
If intCount = 0 Then
blnLast = True
Else
intLowRange = intHighRange + 1
intHighRange = intLowRange + intRangeStep
End If
Loop
End Sub

[Richard Mueller [MVP]]

Hi,

My experience (with VBScript) is that if you attempt to retrieve 1000 values
(the maximum), this will succeed if there are at least 1000 left. If there
are less than 1000 left, no values are retrieved (the recordset is empty)
and no error is raised. When I get no values, I know there are less than
1000 left. I then specify the range as follows:

"range=" & intLowRange & "-*"

The "*" wild card symbol must mean to return all the remaining values (up to
1000 max). For example, if the multivalued attribute has 2201 values, my
first query is with

"range=0-999"

I get 1000 values. My next query is with

"range=1000-1999"

I get another 1000 values. My next query is with

"range=2000-2999"

But now I get no values. I know there are less than 1000 left, so my last
query is with

"range=2000-*"

which returns all of the remaining values. The program I linked does this.
I'm not sure how I discovered how to do this. I don't know of any
documentation that explains it, so it might have been trial and error. The
reason it works is that no error is raised (and execution continues) even
though no values are returned when you request more values than are actually
left. I hope this makes sense, and you can translate it to JScript.
--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--

Post by Randhir Singh
Thanks for your prompt response. I have written simlar code in
Jscript, but my question was regarding the upperbound of a
multi-valued attribute. Specifically, if I dont know the upperbound
of a multi-valued attribute how is it possible to pull all the values
without setting a PRECISE range (0-1000). I've noticed if you go
beyond the upperbound of a multi valued attribute, the query will fail
(i.e. directreports attribute holds 850 alues and I query with
directreports;range=0-1000). So, the question still remains, how is
it possible to programatically pull values from a multi valued
attribute without failing (when using range- fail if you exceed the
upperbound, without using range- fail if too many values)?

Post by Richard Mueller [MVP]

Post by Randhir Singh
I am using ADO to pull values from a multi valued attribute. The
attribute that i'm retrieving has over 1300 values, however none of
the values are retrieved. So. the work-around that I'm using is a
"range" feature in the LDAP search criteria. This allows me to pull
values from a multi valued attribute by placing range=a-b (a & b being
a numerical range) in front of the attribute being queried (i.e.
directreports;range=0-100). This works fine until i exceed the
upperbound of the range. Now, is it possible to know the upperbound
of a multi valued attribute? Secondly, is there any other work
arounds?

Hi,
Using Range Limits to retrieve multi-valued attributes is described in the

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_ads_gkcy.asp

Post by Randhir Singh

Post by Richard Mueller [MVP]
Based on this info, and experimentation, I write the VBScript below to
enumerate the members of a group, even if the group has more than 1000
members. You should be able to adapt this code to handle your attribute. I
used a recursive subroutine to handle nested groups. You probably don't need
a subroutine, but you will need the variables blnLast, intRangeStep,
' EnumGroup2.vbs
' Copyright (c) 2003 Richard L. Mueller
' Version 1.0 - March 28, 2003
Option Explicit
Dim strNTName, objRootDSE, strDNSDomain, objCommand
Dim objConnection, strBase, strAttributes
' Check for required argument.
If Wscript.Arguments.Count <> 1 Then
Wscript.Echo "Required argument <NT Name> missing. " _
& "For example:" & vbCrLf _
& "cscript //nologo EnumGroup.vbs ""GroupNTName"""
Wscript.Quit(0)
End If
strNTName = Wscript.Arguments(0)
' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open = "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
strBase = "<LDAP://" & strDNSDomain & ">"
strAttributes = "member"
Call EnumMembers(strNTName, "")
Sub EnumMembers(strName, strOffset)
Dim strFilter, strQuery, objRecordSet, k, objMember
Dim strDN, intCount, blnLast, intLowRange
Dim intHighRange, intRangeStep, objField
strFilter = "(&(ObjectCategory=group)" _
& "(ObjectClass=group)" _
& "(sAMAccountName=" & strName & "))"
blnLast = False
intRangeStep = 999
intLowRange = 0
IntHighRange = intLowRange + intRangeStep
Do While True
If blnLast = True Then
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange _
& "-*;subtree"
Else
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange & "-" _
& intHighRange & ";subtree"
End If
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
intCount = 0
Do Until objRecordSet.EOF
For Each objField In objRecordSet.Fields
If VarType(objField) = (vbArray + vbVariant) _
Then
For Each strDN In objField.Value
Set objMember = GetObject("LDAP://" & strDN)
Wscript.Echo strOffset & "Member of " _
& strName & ": " & strDN
intCount = intCount + 1
If UCase(objMember.Class) = "GROUP" Then
Call _
EnumMembers(objMember.sAMAccountName, _
strOffset & "--")
End If
Next
End If
Next
objRecordSet.MoveNext
Loop
If blnLast = True Then
Exit Do
End If
If intCount = 0 Then
blnLast = True
Else
intLowRange = intHighRange + 1
intHighRange = intLowRange + intRangeStep
End If
Loop
End Sub

[Joe Richards [MVP]]

When I know I have a large attribute like that I have a special routine for handling it. I do this in c++ with ldap
queries but I would expect the logic should be the same in pseudo code it is


set intvar = 1000
while (queries returning values)
set range string = "Range=".intvar."-*"
do query
increment intvar by 1000
end while
--
Joe Richards
www.joeware.net

--

Post by Richard Mueller [MVP]
Hi,
My experience (with VBScript) is that if you attempt to retrieve 1000 values
(the maximum), this will succeed if there are at least 1000 left. If there
are less than 1000 left, no values are retrieved (the recordset is empty)
and no error is raised. When I get no values, I know there are less than
"range=" & intLowRange & "-*"
The "*" wild card symbol must mean to return all the remaining values (up to
1000 max). For example, if the multivalued attribute has 2201 values, my
first query is with
"range=0-999"
I get 1000 values. My next query is with
"range=1000-1999"
I get another 1000 values. My next query is with
"range=2000-2999"
But now I get no values. I know there are less than 1000 left, so my last
query is with
"range=2000-*"
which returns all of the remaining values. The program I linked does this.
I'm not sure how I discovered how to do this. I don't know of any
documentation that explains it, so it might have been trial and error. The
reason it works is that no error is raised (and execution continues) even
though no values are returned when you request more values than are actually
left. I hope this makes sense, and you can translate it to JScript.
--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--

Post by Randhir Singh
Thanks for your prompt response. I have written simlar code in
Jscript, but my question was regarding the upperbound of a
multi-valued attribute. Specifically, if I dont know the upperbound
of a multi-valued attribute how is it possible to pull all the values
without setting a PRECISE range (0-1000). I've noticed if you go
beyond the upperbound of a multi valued attribute, the query will fail
(i.e. directreports attribute holds 850 alues and I query with
directreports;range=0-1000). So, the question still remains, how is
it possible to programatically pull values from a multi valued
attribute without failing (when using range- fail if you exceed the
upperbound, without using range- fail if too many values)?

Post by Richard Mueller [MVP]

Post by Randhir Singh
I am using ADO to pull values from a multi valued attribute. The
attribute that i'm retrieving has over 1300 values, however none of
the values are retrieved. So. the work-around that I'm using is a
"range" feature in the LDAP search criteria. This allows me to pull
values from a multi valued attribute by placing range=a-b (a & b being
a numerical range) in front of the attribute being queried (i.e.
directreports;range=0-100). This works fine until i exceed the
upperbound of the range. Now, is it possible to know the upperbound
of a multi valued attribute? Secondly, is there any other work
arounds?

Hi,
Using Range Limits to retrieve multi-valued attributes is described in

the
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_ads_gkcy.asp

Post by Randhir Singh

Post by Richard Mueller [MVP]
Based on this info, and experimentation, I write the VBScript below to
enumerate the members of a group, even if the group has more than 1000
members. You should be able to adapt this code to handle your attribute.

I

Post by Randhir Singh

Post by Richard Mueller [MVP]
used a recursive subroutine to handle nested groups. You probably don't

need

Post by Randhir Singh

Post by Richard Mueller [MVP]
a subroutine, but you will need the variables blnLast, intRangeStep,
' EnumGroup2.vbs
' Copyright (c) 2003 Richard L. Mueller
' Version 1.0 - March 28, 2003
Option Explicit
Dim strNTName, objRootDSE, strDNSDomain, objCommand
Dim objConnection, strBase, strAttributes
' Check for required argument.
If Wscript.Arguments.Count <> 1 Then
Wscript.Echo "Required argument <NT Name> missing. " _
& "For example:" & vbCrLf _
& "cscript //nologo EnumGroup.vbs ""GroupNTName"""
Wscript.Quit(0)
End If
strNTName = Wscript.Arguments(0)
' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open = "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
strBase = "<LDAP://" & strDNSDomain & ">"
strAttributes = "member"
Call EnumMembers(strNTName, "")
Sub EnumMembers(strName, strOffset)
Dim strFilter, strQuery, objRecordSet, k, objMember
Dim strDN, intCount, blnLast, intLowRange
Dim intHighRange, intRangeStep, objField
strFilter = "(&(ObjectCategory=group)" _
& "(ObjectClass=group)" _
& "(sAMAccountName=" & strName & "))"
blnLast = False
intRangeStep = 999
intLowRange = 0
IntHighRange = intLowRange + intRangeStep
Do While True
If blnLast = True Then
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange _
& "-*;subtree"
Else
strQuery = strBase & ";" & strFilter & ";" _
& strAttributes & ";range=" & intLowRange & "-" _
& intHighRange & ";subtree"
End If
objCommand.CommandText = strQuery
Set objRecordSet = objCommand.Execute
intCount = 0
Do Until objRecordSet.EOF
For Each objField In objRecordSet.Fields
If VarType(objField) = (vbArray + vbVariant) _
Then
For Each strDN In objField.Value
Set objMember = GetObject("LDAP://" & strDN)
Wscript.Echo strOffset & "Member of " _
& strName & ": " & strDN
intCount = intCount + 1
If UCase(objMember.Class) = "GROUP" Then
Call _
EnumMembers(objMember.sAMAccountName, _
strOffset & "--")
End If
Next
End If
Next
objRecordSet.MoveNext
Loop
If blnLast = True Then
Exit Do
End If
If intCount = 0 Then
blnLast = True
Else
intLowRange = intHighRange + 1
intHighRange = intLowRange + intRangeStep
End If
Loop
End Sub

[m***@gmail.com]

ICQ # : 554143381===Selling 100% Fresh Cc Cards+pin,Fullz+dob,bank login Wu trf


My adress :


- ICQ: 554143381

- Gmail: ***@gmail.com

- Skype : 47f30ad6fcddc48f ( Maestro seller)

- Yahoo mail : ***@yahoo.com

- Google hangouts: ***@gmail.com

- Viber # : [phone]

- telegram : [phone]



Hello all clients !
- Im hacker, good seller, best tools, sell online 24h.
- I want introduce to you my services and sell fresh cC (visa/master,amex,dis,bin,dob,fullz..) all country, Dumps track 1&2, Account paypal,SMTP, RDP, VPS, Mailers, do WU transfer and Software Bug Transfer Western Union.
- I sell cc Fresh - Fast and Good price.
- And I need good buyer for business long-term.
sell cc good and fresh 100%, sell cc good fresh cheap, sell cc shop, sell cc all country
sell cc us, sell cc us bin, sell cc us fullz info, sell cc us vbv, sell cc good and fresh, sell cc live 100%, sell cc fresh, sell cc fullz pass, shop cc fresh, shop cc

**Sell Credit Card (Cc) Online good payment for Shopping online**
Format is:
|Card Number|Exp. Date|Cc/Cc|First Name|Last Name|Street|City|State|Zip Code|Country|Phone|Type Of Card|Bank Name|
sell cc uk fresh, sell cc uk high balance, cc uk pass vbv, sell cc uk fullz info, sell cc uk, cc for sale, sell cc good live, sell cc valid, store cc



+++++++++++++++++++++++++++++ MY CARDS PRICE LIST ++++++++++++++++++++++++++++++





**********clone card prices LIST************

$250-------$3000 ---balance
$350-------$4000
$450-------$5000
$600-------$7000
$700-------$8000
$800-------$10000
$900-------$12000
$1000------$15000


---- YESCARDS pour DAB et CARTE Cloné DIRECTEMENT UTILISABLE ------------



PRIX POUR LES YESCARDS

Platinium visa - 350 euro ---- plafond 10000 euros

Platinium Visa - 450 euros ----> plafond 20000 euros
Platinium Mastercard - 500 euros ----> plafond 22500 euros

Platinium Visa - 600 euros ----> 27000 euros
Platinium Mastercard - 650 euros ---> 29000 euros

Infinity Visa - 750 euros ----> plafond 35000 euros
Infinity Mastercard - 850 euros ----> plafond 45000 euros

Achat et Livraison Express
avec DHL ou UPS ou par la POSTE et meme FEDEX







===> List Price for fresh Credit Card (CC,CCV,Ccs)
- US (visa/master) = 15$ per 1
- US (Amex,Dis) = 45$ per 1
- US Bin = 15$, US Dob = 55$
- US fullz info = 65$ per 1
---------------------
- UK (visa/master) = 50$ per 1
- UK (Amex,Dis) = 60$ per 1
- UK Bin = 30$, UK Dob = 65$
- UK fullz info = 85$ per 1
---------------------
- CA (visa/master) = 50$ per 1
- CA (Amex,Dis) = 50$ per 1
- CA Bin = 25$, CA Dob = 55$
- CA fullz info = 65$ per 1
---------------------
- AU (visa/master) = 65$
- AU (Amex,Dis) = 65$ per 1
- AU Bin = 30$, AU Dob = 65$
- AU fullz info = 65$ per 1
---------------------
- EU (Visa,Master) = 65$ per 1
- EU (Amex,Dis) = 65$ per 1
- EU Bin = 35$, AU Dob = 65$
- EU fullz info = 60$ per 1






Others Country:
- Italy = 65$ per 1 (fullz info = 65$)
- Spain = 65$ per 1 (fullz info = 65$)
- Denmark = 65$ per 1 (fullz info = 65$)
- Sweden = 65$ per 1 (fullz info = 65$)
- France = 65$ per 1 (fullz info = 65$)
- Germany = 65$ per 1 (fullz info = 65$)
- Ireland = 65$ per 1 (fullz info = 65$)
- Mexico = 65$ per 1 (fullz info = 65$)
- Asia = 85$ per 1 (fullz info = 65$)
sell cc eu, sell cc eu cheap live, sell cc eu fullz info, sell cc eu with bin, sell cc with bin, sell cc pass vbv, sell cc non, sell cc good cheap, sell fresh cc






* SPECIAL CARD (With DOB + Bin, Full Info) good bin, high balance:
30 CC Dob + Bin US = 450$
30 CC Dob + Bin UK = 500$
20 CC Dob + Bin CA = 500$
20 CC Dob + Bin AU = 500$
20 CC Dob + Bin EU = 600$





* SSN / DOB:
150$ - 200$ = 400 info SSN DOB (Name + Adresss + City + State + Fone + SSN + DOB):
|178516|301-52-7518|08/29/1950|Edwin|R|White|B|M|5|11|170|BLK|RU186513|2000| OH|R|937-275-8536|2000 Benson Dr|Dayton|OH|45406|
sell cc au, sell cc au fresh good, sell cc au valid live, sell cc au best balance, sell cc au fullz info, sell cc shopping, cc shop, sell cc fullz





===> Price for track1&2:
** Usa :101
- Visa Classic, MasterCard Standart =45$
- Visa Gold|Platinum|Business, MasterCard Gold|Platinum = 50$
- American Express = $50 (Without SID)
- Discover = $50

** Canada: 101 201
- Visa Classic, MasterCard Standart = 45$
- Visa Gold|Platinum|Business, MasterCard Gold|Platinum = 50$

** EU, UK: 101 201
- Classic|Standart = 60$
- Gold|Platinum = 70$
- Business|Signature|Purchase|Corporate|World = 100$

** ASIA/AUSTRALIA/Exotic: 101 201 121
- MasterCard| Visa Classic = $50
- Visa Gold|Platinum|Corporate|Signature|Business = $70

** Other countries: 101 201
- MasterCard| Visa Classic = 50$
- Visa Gold|Platinum|Corporate|Signature|Business = 70$






===> Price for track and Track 1 & 2(With/without Pin):
sell tracks track 2, sell tracks+pins, atm track for sale, atm track shop, track shop online, shop cc track, sell fresh tracks

- Tracks 1&2 US = 100$/1, No Pin 50$
- Tracks 1&2 UK = 110$/1, No Pin 60$
- Tracks 1&2 EU = 120$/1, No Pin 80$
- Tracks 1&2 AU = 120$/1, No Pin 80$
- Tracks 1&2 CA = 120$/1, No Pin 80$




Demo:
Track 1: B4867967032437166^AVALLONE/SONJA^13011010000000472000000
Track 2: 4867967032437166=13011010000047200000|United States|JPMorgan Chase Bank N.A.|Visa|Platinum|101|Tr1+Tr2|
Pin code: 2269
sell track us, sell track us with pin, sell track track, sell track forum, sell track with pin, sell track track1 track2
sell track track 1/2 china, sell track china with pin, sell track dubai, track asian, sell track 101, sell track 201, track 101 pin






Contact Me Support:


- ICQ: 554143381

- Gmail: ***@gmail.com

- Skype : 47f30ad6fcddc48f ( Maestro seller)

- Yahoo mail : ***@yahoo.com

- Google hangouts: ***@gmail.com

- Viber # : [phone]

- telegram : [phone]


===> Western Union transfer (WU Transfer) ($/£/�)
(EU,UK,Asia,Canada,US,France,Germany,Italy,Nigeria ,.. African)
wu transfer hack, hack western union online, hacking into western union, hack western union money transfer online, how to hack western union mtcn

$300 for MTCN $3000 (get MTCN vs Sender's details)
$500 for MTCN $6000 (get MTCN vs Sender's details)
$700 for MTCN $9000 (get MTCN vs Sender's details)
$900 for MTCN $15000 (get MTCN vs Sender's details)

Give me your western union receive info and payment me fee. Then i will do transfer for you, After about 30 mins you'll have MTCN and sender's name.
sell wu transfer, sell western union mtcn, hacker wu transfer, hack money transfer western union, western union bug software



* Selling Email and pass - Email leads:
1000 Email and pass of (US,UK,CA,EU,AU,..) and many other countries = 50$
5000 (US,UK,AU), World(Mixed), Jobseeker, AOL email leads = 50$
hack western union mtcn number, track mtcn number western union, wu hacking, wu bug, western union money track hack, wu transfer forum



** BANK LOGIN & ACCOUNT PAYPAL GOOD AND SAFE **
(HSBC, Barclays, Welsfargo, BOA, Chase, Credit union, Halifax,.. and many Bank other)
Bank Login : Username + Password Number
Bank transfer: Holder Name Use Bank + Number Account Bank + Bank Name + Address Full.
Have all details for login and i can transfer balance to your account if you want.
sell bank login us, hack bank account money online, hack bank transfer money, hacking bank account transfer money software



- Account balance:
**US: (Bank of America,Chase,Wells Fargo...)
. Balance 3000$ = 300$
. Balance 6000$ = 500$
. Balance 8000$ = 600$
. Balance 12000$ = 800$
. Balance 15000$ = 1000$
. Balance 20000$ = 1200$

**UK: (LLOYDS TSB,BARCLAYS,Standard Chartered,HSBC...)
. Balance 3000 GBP = 400$
. Balance 6000 GBP = 600$
. Balance 10000 GBP = 800$
. Balance 12000 GBP = 900$
. Balance 16000 GBP = 1000$
. Balance 20000 GBP = 1500$
(Other fees transfer depend on amount you want)
sell bank login uk, online bank account hacking software, sell bank login, sell bank transfer, hacking bank account, hacking bank online, hacker bank transfer, hacker bank account


- PayPal:
+ Sell Visa Debit US : 120$
+ Paypal with pass email = 60$/paypal
+ Paypal don't have pass email = 50$/Paypal
+ Paypal Veritified with balance and price (Email address + password) full infomation:
100$ = 1 Account PP 2000$
200$ = 1 Account PP 4500$
300$ = 1 Account PP 8500$
500$ = 1 Account PP 13000$


===> Price of ATM Card ($/£/�):

ATM card 4000$ = 250$
ATM card 7000$ = 450$

ATM card 6000$ = 350$
ATM card 8000$ = 750$

ATM card 2000£ = 150$
ATM card 5000£ = 300$


sell cc fresh, cc good, paypal account, bank login, bank transfer,track 1/2 pin, bank transfer, wu transfer






Contact Me Support:


- ICQ: 554143381

- Gmail: ***@gmail.com

- Skype : 47f30ad6fcddc48f ( Maestro seller)

- Yahoo mail : ***@yahoo.com

- Google hangouts: ***@gmail.com

- Viber # : [phone]

- telegram : [phone]


=> MY RULES:
- Customer want test please buy for test and if the cc is good customer can buy more from me, pls dont ask free test and sample or screenshot with me.
- Customer buy over 15, I will discount for you.
- I have a replacement policy for bad cc. All my cc are inspected before sale.
- Cc will be sent to you after receiving payment. Orders will be sent via e-mail or where you want and warranty for you 24h after you buy.


- Payment methods ; Perfect money ( PM ), BTC(Bitcoin) , Bitcoin CASH ( BCH ), PAYPAL ( PP ), STELLAR and Ethereum (ETH)


VERIFIED SELLER BY ADMIN

(C) RESERVED 2019