VBS/ASP Question

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VBS/ASP Question

Logged in as: Guest

arrSession:exec spGetSession 2,3,1308

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> VBS/ASP Question
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VBS/ASP Question - 8/30/2004 8:31:25 AM

Jcosby

Posts: 1
Score: 0
Joined: 8/30/2004
From:
Status: offline

I have a VBS script that makes a query to my local Active Directory for some simple user information.

'COMMON VARIABLES FOR ADSI

Dim userContext, groupContext, groupStringPattern, contextPrefix, tempGroupContext, membership
Dim account, accountpass, siteStringPattern, strNamingContext, oRootDSE, site

userContext=",OU=End Users,OU=IDS,OU=El Segundo,OU=Accounts,DC=sw,DC=nos,DC=boeing,DC=com"
groupContext="OU=Permission,OU=Groups,OU=BSS,OU=BSSCO,DC=sw,DC=nos,DC=boeing,DC=com"
tempGroupContext=",OU=Groups,OU=Dev,OU=BSS,OU=BSSCO,DC=sw,DC=nos,DC=boeing,DC=com"
contextPrefix="CN="
userContextDelimiter="\, "
userContextInitalSeparator=" "
account="cn=svcbssoarsgroup,ou=Service Accounts,OU=IDS,OU=El Segundo,OU=Accounts,dc=sw,dc=nos,dc=boeing,dc=com"
accountpass="oarspass"
groupStringPattern="Permission"
siteStringPattern = "El Segundo"
site="BSS"
strNamingContext = "ADC-SW-27"

Dim adName, adNames, adInitialFirst, adLast, adFirst, adMiddle, adDisName
count=0
stdID="fz633a"
stdID=LCase(stdID)
adStrAttributes = "distinguishedName"
adStrFilter = "samaccountname=" & stdID
Set adConnection = CreateObject ("ADODB.Connection")
Set adCmd = CreateObject ("ADODB.Command")
adConnection.Provider = "ADsDSOObject"
adConnection.Open "ADs Provider"
Set adCmd.ActiveConnection = adConnection
adStrADOQuery = "<GC://" & strNamingContext & ">;(&(objectClass=user)(" + adStrFilter + "));" + adStrAttributes + ";subtree"
adCmd.CommandText = adStrADOQuery
WScript.Echo strNamingContext & adStrADOQuery
Set adRecordSet = adCmd.Execute

'RESULT SET WITH THE VARIABLE TYPE OF EACH, THE SIZE THE OF THE ARRAY AND ELEMENTS IF ANY
While Not adRecordSet.EOF
For Each adField In adRecordSet.Fields
WScript.Echo adField
count=count+1
Next
adRecordSet.MoveNext
Wend
WScript.Echo "Count:" & count

When I run this from the DOS command line it works fine, all the time. However when I try and run it through a IIS Web server using this ASP

<%@ Language=VBScript %>
<html>
<head>
<title>OARS Test Scripts</title>
</head>
<body>
<%
'COMMON VARIABLES FOR ADSI

Dim userContext, groupContext, groupStringPattern, contextPrefix, tempGroupContext, membership
Dim account, accountpass, siteStringPattern, strNamingContext, oRootDSE, site

userContext=",OU=End Users,OU=IDS,OU=El Segundo,OU=Accounts,DC=sw,DC=nos,DC=boeing,DC=com"
groupContext="OU=Permission,OU=Groups,OU=BSS,OU=BSSCO,DC=sw,DC=nos,DC=boeing,DC=com"
tempGroupContext=",OU=Groups,OU=Dev,OU=BSS,OU=BSSCO,DC=sw,DC=nos,DC=boeing,DC=com"
contextPrefix="CN="
userContextDelimiter="\, "
userContextInitalSeparator=" "
account="cn=svcbssoarsgroup,ou=Service Accounts,OU=IDS,OU=El Segundo,OU=Accounts,dc=sw,dc=nos,dc=boeing,dc=com"
accountpass="oarspass"
groupStringPattern="Permission"
siteStringPattern = "El Segundo"
site="BSS"
strNamingContext = "ADC-SW-27"

Dim adName, adNames, adInitialFirst, adLast, adFirst, adMiddle, adDisName
count=0
stdID="fz633a"
stdID=LCase(stdID)
adStrAttributes = "distinguishedName"
adStrFilter = "samaccountname=" & stdID
Set adConnection = CreateObject ("ADODB.Connection")
Set adCmd = CreateObject ("ADODB.Command")
adConnection.Provider = "ADsDSOObject"
adConnection.Open "ADs Provider"
Set adCmd.ActiveConnection = adConnection
adStrADOQuery = "<GC://" & strNamingContext & ">;(&(objectClass=user)(" + adStrFilter + "));" + adStrAttributes + ";subtree"
adCmd.CommandText = adStrADOQuery
Response.Write strNamingContext & adStrADOQuery
Set adRecordSet = adCmd.Execute

'RESULT SET WITH THE VARIABLE TYPE OF EACH, THE SIZE THE OF THE ARRAY AND ELEMENTS IF ANY
While Not adRecordSet.EOF
For Each adField In adRecordSet.Fields
Response.write adField & "<br>"
count=count+1
Next
adRecordSet.MoveNext
Wend
Response.Write "<br>Count:" & count

%>

All I get is the format and 0 count with an empty query. If anyone has an idea on this I would appreciate any help you could give.

Frustrated Scripter