Did you have a look at http://msiext.codeplex.com/ (http://msiext.codeplex.com/). At first glance this function seems to fulfill the needed functionality and also without the ugly way of using VBScript: http://code.dblock.org/Source/msiext/1.2/Docs/class_wix_1_1_extensions_1_1_user_privileges_1_1_local_user.htm
Tobias 2010/12/15 Wilson, Phil <phil.wil...@invensys.com>: > There is no WScript object in Windows Installer. As its name implies, the > Wscript object is supplied by the Windows Script Host environment, and you're > not running in there. Just use CreateObject(). > > Phil Wilson > > -----Original Message----- > From: sangeeta1 [mailto:snmsn...@gmail.com] > Sent: Wednesday, December 15, 2010 9:22 AM > To: wix-users@lists.sourceforge.net > Subject: [WiX-users] Running vbscript in customaction > > > 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(" ldap://RootDSE/ 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/Running-vbscript-in-customaction-tp5838178p5838178.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 > > > *** Confidentiality Notice: This e-mail, including any associated or attached > files, is intended solely for the individual or entity to which it is > addressed. This e-mail is confidential and may well also be legally > privileged. If you have received it in error, you are on notice of its > status. Please notify the sender immediately by reply e-mail and then delete > this message from your system. Please do not copy it or use it for any > purposes, or disclose its contents to any other person. This email comes from > a division of the Invensys Group, owned by Invensys plc, which is a company > registered in England and Wales with its registered office at 3rd Floor, 40 > Grosvenor Place, London, SW1X 7AW (Registered number 166023). For a list of > European legal entities within the Invensys Group, please go to > http://www.invensys.com/legal/default.asp?top_nav_id=77&nav_id=80&prev_id=77. > > You may contact Invensys plc on +44 (0)20 3155 1200 or e-mail > recept...@invensys.com. This e-mail and any attachments thereto may be > subject to the terms of any agreements between Invensys (and/or its > subsidiaries and affiliates) and the recipient (and/or its subsidiaries and > affiliates). > > > > ------------------------------------------------------------------------------ > 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 > ------------------------------------------------------------------------------ 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
