Hi Edwin,
I am sorry I have two threads running this topic. When my first post was
not accepted by the mailing list, I added a second entry and i started
getting responses on both threads.
I replied to Phil's response in the other thread. To answer your question,
yes I removed the Wscript in my script and tried a simple statement to
getobject() and that fails too with return code 3.
If you dont mind, I will delete this thread in some time just so there is
one thread on this topic. Sorry for the confusion.
thanks,
sangeeta
On Thu, Dec 16, 2010 at 3:32 PM, Edwin G. Castro [via Windows Installer XML
(WiX) toolset]
<ml-node+5843340-1139410072-306...@n2.nabble.com<ml-node%2b5843340-1139410072-306...@n2.nabble.com>
> wrote:
> Have you tried removing your usage of WScript in your vbscript code as Phil
> suggested? I'm no vbscript wizard so I don't know if the syntax below is
> good.
>
> Function CheckUserExists
> strUserName = Session.Property("IAMUSERNAME")
> dtStart = TimeValue(Now())
> ' Determine DNS domain name.
> Set objRootDSE = GetObject("<a href="ldap://RootDSE/"; target="_top"
> rel="nofollow" link="external">LDAP://RootDSE")
> strDNSDomain = objRootDSE.Get("defaultNamingContext")
>
> Set objCommand = CreateObject("ADODB.Command")
> Set objConnection = CreateObject("ADODB.Connection")
> objConnection.Provider = "ADsDSOObject"
> objConnection.Open "Active Directory Provider"
> objCommand.ActiveConnection = objConnection
> objCommand.CommandText = _ "<LDAP://" & strDNSDomain &
> ">;(&(objectCategory=User)" & _ "(samAccountName=" & strUserName &
> "));samAccountName;subtree"
>
> Set objRecordSet = objCommand.Execute
> If objRecordset.RecordCount = 0 Then
> Session.Property("USEREXISTS") = 1
> Else
> CheckUserExists = msiDoActionStatusSuccess
> End If
>
> objConnection.Close
> End
>
> Edwin G. Castro
> Software Developer - Staff
> Electronic Banking Services
> Fiserv
> Office: 503-746-0643
> Fax: 503-617-0291
> www.fiserv.com
> Please consider the environment before printing this e-mail
>
> > -----Original Message-----
> > From: sangeeta1 [mailto:[hidden
> > email]<http://user/SendEmail.jtp?type=node&node=5843340&i=0>]
>
> > Sent: Thursday, December 16, 2010 12:12 PM
> > To: [hidden email]<http://user/SendEmail.jtp?type=node&node=5843340&i=1>
> > Subject: Re: [WiX-users] Check if user exists in UI
> >
> >
> > I cannot use third party CA dlls unfortunately and hence struggling with
> > vbscript. If there is any other means please share. Thanks.
> >
> >
> >
> >
> > On Thu, Dec 16, 2010 at 2:44 PM, dB. [via Windows Installer XML (WiX)
> > toolset] <[hidden
> > email]<http://user/SendEmail.jtp?type=node&node=5843340&i=2><ml-
>
> > [hidden email] <http://user/SendEmail.jtp?type=node&node=5843340&i=3>>
> > > wrote:
> >
> > > Instead of writing your own, use a CA from http://msiext.codeplex.com.
>
> > >
> > > CheckCredentials:
> > > http://code.dblock.org/Source/msiext/1.2/Docs/_check_credentials_8h.ht
> > > ml#a1db77a38daed9d05dfaa2bac173ec550
> > > GetUserInfo:
> > >
> > http://code.dblock.org/Source/msiext/1.2/Docs/_user_info_8h.html#aba0b
> > > 3481e2f5612373289a8fd4299f48
> > >
> > > Etc.
> > >
> > > dB. @ dblock.org
> > > Moscow|Geneva|Seattle|New York
> > >
> > > -----Original Message-----
> > > From: sangeeta1 [mailto:[hidden
> > > email]<http://user/SendEmail.jtp?type=node&node=5843173&i=0>]
> > >
> > > Sent: Wednesday, December 15, 2010 12:57 PM
> > > To: [hidden email]
> > > <http://user/SendEmail.jtp?type=node&node=5843173&i=1>
> > > Subject: Re: [WiX-users] Check if user exists in UI
> > >
> > >
> > > Hi,
> > >
> > >
> > > I have a vbscript to validate the user in AD and I am having trouble
> > > running it in the custom Action. Can someone point out mistakes in
> > > implementing the custom action.
> > > I am not a vbscript expert here so please pardon my ignorance.
> > >
> > > log
> > > ----
> > >
> > > Action 11:42:48: CheckUserExists.
> > > Action start 11:42:48: CheckUserExists.
> > > MSI (c) (E8:94) [11:42:48:993]: Cloaking enabled.
> > > MSI (c) (E8:94) [11:42:48:993]: Attempting to enable all disabled
> > > privileges before calling Install on Server MSI (c) (E8:94)
> [11:42:48:993]:
> > > Connected to service for CA interface.
> > > Action ended 11:42:49: CheckUserExists. Return value 3.
> > > DEBUG: Error 2896: Executing action CheckUserExists failed.
> > > The installer has encountered an unexpected error installing this
> package.
> > > This may indicate a problem with this package. The error code is 2896.
> > > The arguments are: CheckUserExists, , Action ended 11:42:49:
> > > WelcomeDlg. Return value 3.
> > >
> > > Code
> > > --------
> > >
> > > <CustomAction Id="CheckUserExists" BinaryKey="CheckUserExistsKey"
> > > VBScriptCall="CheckUserExists" Execute="immediate"></CustomAction>
> > > <Binary Id="CheckUserExistsKey" SourceFile="scripts\ADUserSearch.vbs"
> > > ></Binary>
> > >
> > > vbscript
> > > ----------
> > >
> > > Function CheckUserExists
> > > Set shell = WScript.CreateObject("WScript.Shell")
> > > strUserName = Session.Property("IAMUSERNAME") dtStart =
> > TimeValue(Now()) '
> > > Determine DNS domain name.
> > > Set objRootDSE = GetObject("<a href="ldap://RootDSE/"; target="_top"
> > > rel="nofollow" link="external">LDAP://RootDSE") strDNSDomain =
> > > objRootDSE.Get("defaultNamingContext")
> > > Set objCommand = CreateObject("ADODB.Command") Set objConnection
> > =
> > > CreateObject("ADODB.Connection") objConnection.Provider =
> > "ADsDSOObject"
> > > objConnection.Open "Active Directory Provider"
> > > objCommand.ActiveConnection = objConnection
> > objCommand.CommandText = _
> > > "<LDAP://" & strDNSDomain & ">;(&(objectCategory=User)" & _
> > > "(samAccountName=" & strUserName & "));samAccountName;subtree"
> > >
> > > Set objRecordSet = objCommand.Execute
> > > If objRecordset.RecordCount = 0 Then
> > > 'WScript.StdOut.WriteLine "sAMAccountName: " & strUserName & " does
> > > not exist."
> > > Session.Property("USEREXISTS") = 1 Else
> > > 'WScript.StdOut.WriteLine strUserName & " exists."
> > > CheckUserExists = msiDoActionStatusSuccess End If
> > > objConnection.Close End
> > >
> > > --
> > > View this message in context:
> > > http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if<http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if?by-user=t>
> > > -user-exists-in-UI-tp5829564p5838218.html<http://windows-installer-xml
>
> > > -wix-toolset.687559.n2.nabble.com/Check-if-user-exists-in-UI-tp5829564
> > > p5838218.html?by-user=t>
> > >
> > > Sent from the wix-users mailing list archive at Nabble.com.
> > > ----------------------------------------------------------------------
> > > --------
> > >
> > > Lotusphere 2011
> > > Register now for Lotusphere 2011 and learn how to connect the dots,
> > > take your collaborative environment to the next level, and enter the
> > > era of Social Business.
> > > http://p.sf.net/sfu/lotusphere-d2d
> > > _______________________________________________
> > > WiX-users mailing list
> > > [hidden email]
> > <http://user/SendEmail.jtp?type=node&node=5843173&i=2>
> > > https://lists.sourceforge.net/lists/listinfo/wix-users
> > >
> > > ----------------------------------------------------------------------
> > > --------
> > >
> > > Lotusphere 2011
> > > Register now for Lotusphere 2011 and learn how to connect the dots,
> > > take your collaborative environment to the next level, and enter the
> > > era of Social Business.
> > > http://p.sf.net/sfu/lotusphere-d2d
> > > _______________________________________________
> > > WiX-users mailing list
> > > [hidden email]
> > <http://user/SendEmail.jtp?type=node&node=5843173&i=3>
> > > https://lists.sourceforge.net/lists/listinfo/wix-users
> > >
> > >
> > > ------------------------------
> > > View message @
> > > http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if<http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if?by-user=t>
> > > -user-exists-in-UI-tp5829564p5843173.html
> > >
> > > To start a new topic under wix-users, email
> > > [hidden email]
> > > <http://user/SendEmail.jtp?type=node&node=5843340&i=4><ml-node%2B687560-
>
> > 2205713
> > > [hidden email] <http://user/SendEmail.jtp?type=node&node=5843340&i=5>>
>
> > > To unsubscribe from wix-users, click here<
> http://windows-installer-xml-
> > wix-
> > toolset.687559.n2.nabble.com/template/NamlServlet.jtp?macro=unsubscrib
> > e_by_code&node=687560&code=c25tc25tMTBAZ21haWwuY29tfDY4NzU2M
> > HwtODkyOTExNTcy>.
> > >
> > >
> >
> > --
> > View this message in context: http://windows-installer-xml-wix-
> > toolset.687559.n2.nabble.com/Check-if-user-exists-in-UI-
> > tp5829564p5843271.html
> > Sent from the wix-users mailing list archive at Nabble.com.
> >
> ------------------------------------------------------------------------------
>
> > Lotusphere 2011
> > Register now for Lotusphere 2011 and learn how to connect the dots, take
> > your collaborative environment to the next level, and enter the era of
> Social
> > Business.
> > http://p.sf.net/sfu/lotusphere-d2d
> > _______________________________________________
> > WiX-users mailing list
> > [hidden email] <http://user/SendEmail.jtp?type=node&node=5843340&i=6>
> > https://lists.sourceforge.net/lists/listinfo/wix-users
> ------------------------------------------------------------------------------
>
> Lotusphere 2011
> Register now for Lotusphere 2011 and learn how
> to connect the dots, take your collaborative environment
> to the next level, and enter the era of Social Business.
> http://p.sf.net/sfu/lotusphere-d2d
> _______________________________________________
> WiX-users mailing list
> [hidden email] <http://user/SendEmail.jtp?type=node&node=5843340&i=7>
> https://lists.sourceforge.net/lists/listinfo/wix-users
>
>
> ------------------------------
> View message @
> http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if-user-exists-in-UI-tp5829564p5843340.html
>
> To start a new topic under wix-users, email
> ml-node+687560-220571316-306...@n2.nabble.com<ml-node%2b687560-220571316-306...@n2.nabble.com>
> To unsubscribe from wix-users, click
> here<http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=687560&code=c25tc25tMTBAZ21haWwuY29tfDY4NzU2MHwtODkyOTExNTcy>.
>
>
--
View this message in context:
http://windows-installer-xml-wix-toolset.687559.n2.nabble.com/Check-if-user-exists-in-UI-tp5829564p5843435.html
Sent from the wix-users mailing list archive at Nabble.com.
------------------------------------------------------------------------------
Lotusphere 2011
Register now for Lotusphere 2011 and learn how
to connect the dots, take your collaborative environment
to the next level, and enter the era of Social Business.
http://p.sf.net/sfu/lotusphere-d2d
_______________________________________________
WiX-users mailing list
WiX-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wix-users
