Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Why? - Invalid procedure call or argument: 'GetObject'

Status
Not open for further replies.

sw1llam3

IS-IT--Management
Aug 28, 2002
9
US
Hello,

I do not know VBscript really at all however trying to get some code working in order to allow my users to change passwords from a web page.

This is the error I am getting...

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'GetObject'

I think the runtime error code meanss access denied, but I am not sure.

But, I definitely don't know why a GetObject call would be conidered invalid.


Any help with this woould be greatly appreciated!
 
Hi there...
Can you post your code that generates this error ?
(runtime error dosn't mean access denied)

TNX.
E.T.
 
Hello and thank you for taking a look at this!
See I told you I didn't know much!
This is the code....




This is the first page that posts to the second page below...



<%@ Language=VBScript %>

<script runat=server language=javascript>
</script>

<HTML>
<HEAD>
<H1 align-center> Spiegel&nbsp;Group&nbsp;User&nbsp;Password&nbsp;Maintenance</H1>
</HEAD>
<Title>
Spiegel&nbsp;Group&nbsp;User&nbsp;Password&nbsp;Maintenance
</Title>
<BODY>

<P>&nbsp;</P>

<P>Please enter your Username, Password, and Domain below:</P>

<P>
<form action=&quot;ChangePassword1.asp&quot; method=post id=frmLogin name=frmLogin>
<Table border=0 cellpadding=1 cellspacing=1 width=&quot;75%&quot;>
<TR>
<TD>User Name</TD>
<TD>
<INPUT id=txtUserName name=txtUserName style=&quot;height: 25px; width: 365px&quot; size=&quot;20&quot;></TD>
</TR>
<TR>
<TD>Existing Password</TD>
<TD>
<INPUT id=txtPassword name=txtPassword type=password style=&quot;Left: 1px; TOP:3px&quot; size=&quot;20&quot;> </TD>
</TR>
<TR>
<TD>New Password</TD>
<TD>
<INPUT id=txtNewPassword name=txtNewPassword type=password size=&quot;20&quot;></TD>
</TR>
<TR>
<TD>Confirm New Password</TD>
<TD>
<INPUT id=txtConfPassword name=txtConfPassword type=password size=&quot;20&quot;></TD>
</TR>
<TR>
<TD>NT Domain</TD>
<TD><SELECT id=txtDomain name=txtDomain size=&quot;1&quot;>
<OPTION VALUE=&quot;spgrp&quot;>Spiegel Group RAS</OPTION>
</TD>
</TR>
</TABLE></P>
<p><input type=&quot;Submit&quot; value=&quot;Submit&quot; id=submit1 name=submit1> &nbsp; </p>
</FORM>
<P>&nbsp;</P>
</BODY>
</HTML>


The Code above posts to this code....



<%@ Language=VBScript %>
<%

'CALLOUT A
dim sUser, sPassword
dim oUser, sConnectString
'END CALLOUT A

'CALLOUT B
sUser = request(&quot;txtUserName&quot;)
sPassword = request(&quot;txtPassword&quot;)
sNewPassword = request(&quot;txtNewPassword&quot;)
if sUser = &quot;&quot; then Response.Redirect &quot;ChangePasswordEntry.asp&quot;
'END CALLOUT B

Response.Write &quot;User name is: &quot; & sUser & &quot; -- &quot; & sPassword & &quot;<br>&quot;

Response.Write &quot;New Password is: &quot; & sNewPassword & &quot;<br>&quot;

'CALLOUT]
sConnectString = &quot;LDAP://CN=&quot; & sUser & &quot;,ou=users,&quot; & &quot;dc=spgrp,dc=net&quot;

Response.Write &quot;ConnectString :&quot; & sConnectString &quot;<br>&quot;

Set oUser = GetObject(sConnectString)
'END CALLOUT C

Response.Write &quot;Logon user: &quot; & Request.ServerVariables(&quot;LOGON_USER&quot;) & &quot;<br>&quot;

Response.Write &quot;User Password: &quot; & Request.ServerVariables(&quot;AUTH_PASSWORD&quot;) & &quot;<br>&quot;

'CALLOUT D
oUser.ChangePassword sPassword, sNewPassword
'END CALLOUT D

set oUser = Nothing

%>



 
Hi there ...
sorry but because I've not used LDAP before, I can't do anything for you.

TNX.
E.T.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top