How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP)

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - LDAP query with SAM Useraccount Hi, I need to perform a query (LDAP) against ADS. I want to search for a user in ADS and retrieve some information about this user from ADS-attributes. I use the following VBS code, bascially this code works, however it seems that I can only to a LDAP-search for a user using the DisplayName (?) Currently I use the following command: GetObject("LDAP://cn=Joe-Developer,cn=Users," & objRootDSE.Get("defaultNamingContext")) OK.. this works, but what I need is to search for the "samUserAccount", or FQ-name - so I tried something like this: GetObject("LDAP://cn=User001,cn=Users," & objRootDSE.Get("defaultNamingContext")) and GetObject("LDAP://cn=domain.com/Users/User001,cn=Users," & objRootDSE.Get("defaultNamingContext")) Doesnt work. How could I do a query that seaches for samUserAccount ? Thank you '*** Set objRootDSE = GetObject("LDAP://rootDSE") Set objUser = GetObject("LDAP://cn=Joe-Developer,cn=Users," & objRootDSE.Get("defaultNamingContext")) strDisplayName = objUser.Get("displayName") strMail = objUser.Get("Mail") strDescription = objUser.Get("Description") Dep = objUser.Department Company = objUser.Company Tel = objUser.Telephonenumber account = objUser.SamAccountname Wscript.Echo "Account : " & Account Wscript.Echo "displayName: " & strDisplayName Wscript.Echo "Mail : " & strMail Wscript.Echo "Description: " & strDescription Wscript.Echo "Department : " & Dep Wscript.Echo "Company : " & Company Wscript.Echo "Tel : " & Tel Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204748
  - 2
    - Creating a zip file without WINZIP I need a script that will create a zip file, and add files to it using VBScript. I can not use anything other than the built-in functions in Win XP SP2 (I can NOT use winzip or any other utility) Anyone have anything on this? Thanks Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204747
  - 3
    - objShell.Run Issues Hi All, I am trying to execute a batch file from a VBScript and it keeps failing with "The system cannot find the file specified", code: 80070002, failing on the objShell.Run line. I did a lot of searching and this should work, but doesn't. strSysname = "Server1" strBatch = chr(34) & "c:\temp\SvrChk.bat " & strSysname & chr(34) objShell.Run strBatch, 0, True Can anyone out there help? Jeff Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204737
  - 4
    - Interop.IWshRuntimeLibrary.dll for Windows 2000 Server Hi, I created an application that uses the WSH runtime library in my XP development environment. As part of the build, the file "Interop.IWshRuntimeLibrary.dll" was created which I deploy with my application. However, my application does not work for Windows 2000 Server. Is there somewhere I can get the correct version of this DLL for W2K Server? Thanks in advance. Valerie Hough Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204735
  - 5
    - Compile .vbs files to .exe executables I need a (1) cheap (preferably free) and (2) easy way to convert VBScript files to stand-alone executables. I know that Visual Studio 6.x can do it very easily, but being that it will no longer be supported as of March 2008, I am looking for another solution. The ideal solution would be a simple method for Visual Studio Express edition to convert from VBS to executable files. I have tried to do this and have not found a way that is anything close to the ease of Visual Basic 6. I realize this question was posted in April 2005, but the answers are not quite what I am looking for. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204734
  - 6
    - Moving Files Hi, I need to create a script that moves certain files from a folder and places them in a new directory. I need to use the Like operator because I only know the start of the file name. I want to move all of the files that start with Archive in the config folder. Here is the code, what should i change to get this working Dim fso Set fso = CreateObject("Scripting.FileSystemObject") 'Copy xcacls.vbs to the users C:\windows\system32 directory strFilePath = "C:\windows\system32\config" strDestination = "\\resource\Installs\Backup\Event Logs" fso.movefile(strFilePath & "Like '%Archive%'", strDestination) Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204730
  - 7
    - Scripting help needed OK, this seems like it would be so easy, but I'm not having much luck. And please be gentle, I am no scripter. I need to take the data from an Excel spreadsheet or a CSV file such as shown below: "CN=User,OU=OU,DC=Domain,DC=com",329949 "CN=User2,OU=OU,DC=Domain,DC=com",456790 And export this data into a text file with particular formatting such as what follows: dn: CN=User,OU=OU,DC=Domain,DC=com changetype: modify replace: employeeID employeeID: 329949 - dn: CN=User2,OU=OU,DC=Domain,DC=com changetype: modify replace: employeeID employeeID: 456790 - How would I approach this? Like I said, it seems easy, but I'm getting nowhere. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204719
  - 8
    - FTP site info from "my network places" Is there a way to obtain a listing of all the FTP sites that I have in My Network Places? I would like to have a listing that would includes the address, user id, and possible the password so I can back-up this info, and possible setup another PC. I've tried searching this group from Google, but am not having any luck. Any help or pointers would be greatly appreciated. I have some experience with VBS, including using ADO and FSO, but am clueless as to where to even start for this. TIA Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204717
  - 9
    - Find mouse location while mouse is held down and moved on screen Hello, i have an aspx page on which: 1. user clicks and holds down the mouse 2. setInterval starts my procedure...let's say "sub_While_Mouse_Down" 3. while still holding the mouse down, the user moves the mouse on screen I need to be able to check the mouse position during this "sub_While_Mouse_Down". 4. I get an Error if i try to use Window.Event..ClientX inside the "sub_While_Mouse_Down". any ideas? thanks Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204714
  - 10
    - Help with popup I have the following code, the only thing it is not doing is timing out. What am I missing? Thanks in advance. Dim WshShell : Set WshShell = CreateObject("WScript.Shell") Dim intButton : intButton = WshShell.Popup ("Do you wish EMail to be sent?", 5, "Send Email?", 1 + 32) Select Case intButton Case 2 Case Else Dim myAttachments, olMailItem, AppActivate Dim objOutlook : Set objOutlook = CreateObject("Outlook.Application") Dim itmMail : Set itmMail = objOutlook.CreateItem(olMailItem) With itmMail 'Display is optional .Display .To = strTo .Subject = strSubject .Body = strTextBody End With '-- It's advised to save items before sending itmMail.Save 'adding attachments. If not strAttachment = "" Then Set myAttachments = itmMail.Attachments myAttachments.Add strAttachment End If 'Instead of itmMail.Send, use the SendKeys feature. WshShell.AppActivate itmMail '"%S" = "Ctrl S" WshShell.SendKeys("%s") End Select Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204713
  - 11
    - Copy all files created within one day, etc. I have two questions: 1). I need to create a script to copy all files within a folder. All files are created on the same day. This script only copies the files if it is created within one day. If such files are not available, then, try again two hours later. 2). I need to copy a text file from a folder. This text file is generated once a week and has a naming convention as test*.txt. However, can I create a script to copy only the file generated within one day. Thanks, Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204709
  - 12
    - Export Access VBA-Code Hi does anybody know how to export the complete VBA-Code of an Access-MDB to individual files? I'd like to automate this task using VBScript. I know there is a Modules- and a Forms-collection as member of the Application object, but I don not know how to open the MDB-Project that is protected by an workspace file (with usr+pwd). Any hints? Viele Gruesse und TIA Alex Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204705
  - 13
    - How does VBScript communicate with IE popup dialog box? I am very new to VBScript. I am working on a web application that requires user authentication through digital certificates. When the user attempts to log into his account from a web form, IE pops up a dialog box with a list of digital certificates available to this user. The dialog box looks exactly like this one: http://farm1.static.flickr.com/167/442962234_ab4a756b8c_o.png The user can select an appropriate certificate from that list. Now, I would like to know in my VBScript which one has been selected by the user, so that I can retrieve the selected certificate (and thus the private key) and sign a token, which will be sent to the web server for verification. I have no idea how VBScript communicates with such kind of IE popups. Any hint? Thanks a lot! Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204697
  - 14
    - Proper Database Connection Cleanup I am running IIS with classic ASP and I am having issues loading some of my pages. I get an error that says: "The requested resource is in use. " What I want to do is have a function to open the database in an include file. This code will be used over and over so it needs to be in one spot. Here is the code that I am using in an include file named DB.inc: Public Sub ConnectToDB2(byref XCmd, byref YRS, byRef Conn) 'this function connects to the database Set Conn = Server.CreateObject("ADODB.Connection") Conn.Mode = 3 Conn.Open ("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=DB;USER=admin;PASSWORD=blahblahblah;OPTION=3;") Set XCmd= Server.CreateObject("ADODB.Command") XCmd.ActiveConnection = Conn Set YRS = Server.CreateObject ("ADODB.Recordset") end Sub In my pages, I open the database by calling ConnectToDB2 ObjCmd, ObjRS, ObjCon At the end of the page, I clean everything up like this: Set ObjRS = Nothing Set ObjCmd = Nothing ObjCon.Close Set ObjCon = Nothing Any ideas why I keep getting the resource in use errors? I have several include files but the database in opened in my page. The page includes the inc files that manipulate the data from the DB. To have only one DB connection object, I open the DB only once in my page and clean it up at the end. Thanks for any ideas. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204696
  - 15
    - internet not show vbscript source code I want to be able to hide the source code from people when they are on the internet using my vbscript (classic asp) application. The part I do not want them to see is information like name, address, social security number. Can you tell me how I can hide this information from users when they use internet explorer, hit view and then select source? I would not mind using javascript that is embedded in the classic asp application if you could show me how to do this. Thanks! Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204694
  - 16
    - How can I hide vbscript code I want to be able to hide the source code from people when they are on the internet using my vbscript (classic asp) application. The part I do not want them to see is information like name, address, social security number. Can you tell me how I can hide this information from users when they use internet explorer, hit view and then select source? I would not mind using javascript that is embedded in the classic asp application if you could show me how to do this. Thanks! Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204693
  - 17
    - VBS to VBE files How do you encrypt a VBS file so users can't see or edit the code? Thanks Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204691
  - 18
    - Query an MS-Access record locking file (ldb) If an MDB is opened, then the record locking file appears (an LDB). Is is possible using VBScript to query the LDB file and return its contents using a VBS file? If so, does anyone have any generic example code that does this, that can be posted? Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204678
  - 19
    - How to detect device errors? hi all! Just have a problem to detect all the error or disabled devices in Device Manager. Any one has ideas to do that. The result could be showed on pop ups or just in a cmd window. Thanks! Sincerely, Ben Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204674
  - 20
    - Return a recordset from an MDB Using Office 2003 and Windows XP: I have the following code which is functioning well, now I have two questions: 1) Is it necessary to specify a CursorLocation ? - If so what value should be used? 2) I need to return a RecordSet from the DB, could someone please post example code on how to do this? sFullNameSource = "C:\NorthWind.mdb" Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.CursorLocation = 1 '<<<Is this necessary??? cn.Provider = "Microsoft.Jet.OLEDB.4.0;" cn.Open "Data Source=" & sFullNameSource & ";" If cn.State = 1 Then Msgbox "Connected..." sSQL = "Select * From Customers;" rs.Open ??????????????????????????? Thanks much in advance... Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204673
  - 21
    - VBS file to query password protected MDB Using Office 2003 and Windows XP; I have a VBS file that I am using to query an MS-Access DB and retrieve some data. The MDB is password protected; I get an error on the last line, so I know it has to do with the password syntax. Can someone help me out to correct the syntax so I can query the DB? sFullNameSource = "\\myUNC\folder\folder\FileName.mdb" Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Provider = "Microsoft.Jet.OLEDB.4.0;" cn.Open "Data Source = " & sFullNameSource & "; Password = 123" Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204670
  - 22
    - How to batch convert binary files to "Text" Hi all, I have the following problem: some thousands html files were encoded as binary so they are quite not correctly accesible.. I wrote (better cut&paste...) a simple vbs that opens each HTM file in a folder as a binary stream and rewrite it as text. This works fine on the "problem" files. Now the new problem is: how can I identify if a HTML file is binary or not? Since in my folders file are mixed, some are good html and some not (binary) I can't obviously work with extension.. is there something that may work this way: for each file in my directory check if it's binary, if so go on with the cool stuff else movenext. I'm gonna read more, but if someone could help...or even suggest another approach i'd really appreciate it. Thanks! Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204668
  - 23
    - WMI vs Reskit tools I have a wmi script that creates a share and sets permissions. works great until it is run on a system that is behind a restrictive router ACL. I am assigning permissions to users and groups in two domains. Direct access to the second domin's DC is bloked by the router ACL. This causes the wmi script and setting permissions via the gui to fail. But I can use rmtshare to set the permissions of the users of the second domain. Is there a way to call the functions rmtshare is calling to allow the script to function the same way? Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204662
  - 24
    - read local admin users/groups I`m looking for a VBS script to read the users from the local Administrators group. In the local Administrators group there is a lot of local users but also Global users If there is a global group in the local admin group, i want the users read too. Example : local Administrators Jeff Marc domainname\Domain Administrators Jeff Marc Jeff domainname\G_backup ( global group) Sara John i have a begin but not ready like this strComputer = "." strTestString = "/" & strComputer & "/" Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators") For Each objUser In colGroups.Members If InStr(objUser.AdsPath, strTestString) Then Wscript.Echo "Local user: " & objUser.Name Else Wscript.Echo "Domain user/group: " & objUser.Name End If Next I don`t a beginning to read the global members group to read Any ideas? Thanks Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204658
  - 25
    - t Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204656
- Next
  - 1
    - Get list of users in an MS-Access MDB Using Office 2003 and Windows XP; 1) Is it possible to obtain the network user name of each user currently in an MS-Access file using a .vbs file? 2) If possible, could someone please post example script to accomplish this? Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204655
  - 2
    - mouse / key recorder that writes vbscript? Hey all. Anyone know if there are any products that will record mouse actions and key strokes and save that as vbscript? I am looking for a time saver to help do some simple automation, but all the macro products I look at save the script into their own cusomt languages...I really want the reusable output to be in vbscript! Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204654
  - 3
    - Detect Active NIC on servers with more than one NIC Hello everyone, here's a little challenge I've been working on.. 1. We are building our servers using a combination of WinPE and a bunch of batch scripts. 2. When we boot into WinPE, launch an .HTA file that prompts the user to enter some information, including IP address, subnet mask and default GW. 3. That information should be applied to the active NIC (the one with the cable plugged into it), a few scripts run and then the system reboots and another HTA runs that brings up additional information asking the type of config, any additional software installed, etc. Here's the issue: The information entered into the initial boot info should be applied to the active NIC. The active NIC should be enumerated correctly and the IP address applied to that NIC and all is good. However, occassionally with some of the newer Compaq servers with virtual hardware, the NICs are enumerated backwards so the IP address configured initially is applied to the wrong NIC. So using this script (see below) doesn't always work because IP enabled will return both NICs Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled= True") Most of the time the first one it returns is the correct one, occasionally it's reversed though, and that creates the issue. What I'd like to do is get the results similar to what is returned when using the getmac.exe utility., so I can parse for the adapter that DOESN"T return "media disconnected". This adapter will always be the one that is active (plugged in) and I can then set the IP to that adapter based on MAC address. So the question is, is there a way to return MEDIA DISCONNECTED using a WMI call? Thanks in advance!! Regards, Christopher Rees Palaestra Training www.palaestratraining.com 1-800-324-0946 Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204650
  - 4
    - Check Against Array and Select Hello all. I'm at a bit of a roadblock that I'm likely just thinking too hard about. Below is some code from my site. Basically I query a database to populate a select box. I check that values against another value in the database and if there is a match it writes the option as "selected." : <select name="vCat"> <% WHILE NOT rsPTM.EOF 'get all the values for the select box IF rsPTM("ptmNo") = rsv("vCat") THEN %> 'check for a match <option selected value="<%=rsPTM("ptmNo")%>"><%=rsPTM("ptmName")%></ option> <% ELSE %> <option value="<%=rsPTM("ptmNo")%>"><%=rsPTM("ptmName")%></option> <% END IF rsPTM.MoveNext WEND %> </select> And now the problem. I need to actually check the value against an array of values. I get my array just fine and then try to loop through it to check the values, but I'm only getting it partially right. In a multiple select box (not shown) it either selects only one value (even though more should match) or it writes each value as many times as there are items in my array. Any thoughts? Thanks all. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204649
  - 5
    - How could I get hard drive information? Hello All! I am writing VBScript to determine how many hard drives I have on the local machine and do a disk defrag(Or just analyze) based on the result return to me. I wanna do it automatically. Now I could start disk management console and disk defragmentation console when i run the scrip. I use winshell object and run method. That's kind of easy, but this still need some manual configuration. Anyone knows how to achieve my original goals? Thanks! Sincerely, Ben Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204636
  - 6
    - Script to detect new DHCP addresses created Is there a script out there that can notify a network administrator when a "new" computer has joined the network. I was thinking of querying the DHCP server for information, but then the process got to be too big for my abilities. If not a script, does anybody know a prog? Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204635
  - 7
    - Check two or more folders for the same file Hello, I am looking for a way to check two different paths for the same file. for example I have a script that looks for a file called pccnt.exe on the entire computer and then runs the trend micro install program if it does not find that file. But I would like to speed this up since I already know that the file I am looking for is always in C:\Program Files\Trend Micro\Officescan client\ or in D:\Program Files\Trend Micro\Officescan client\. I would like to know how to tell the script to check the C: path and the D: path for this file and then run the install program if it does not find it on either drive, however if it does find this file on D: or on C: then to just quit. Here is the script I am running now, and although it works great. It seems to be slowing down log on time for some of my users. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * From CIM_Datafile Where FileName = 'pccnt' and Extension = 'exe'") Set objShell = CreateObject("Wscript.Shell") If colFiles.Count > 0 Then Wscript.Quit Else On Error Resume Next objShell.Run "\\MYSERVERNAME\ofcscan\install_trend.cmd" End If Thanks for your input. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204629
  - 8
    - HTML date control I want to implement simple but nice date control on my HTML/ASP page...are there any such free date controls available...anybody knows it. I want very simple control...nothing fancy ...it should work with IE, firefox and netscape. thanks Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204620
  - 9
    - AD Search Filter I'm trying to run an adsi query to output a list of all of our contractors. We designate our contractors by the display name being capitalized. Is there a way in say the "objCommand.CommandText =" to specify a displayName filter be capitalized? Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204616
  - 10
    - Move files by Date Modified... I am trying to move all files from one folder to another by the date modified... the script I am trying to use is Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("C:\Test Files") for each file in folder.files if files.object.DateLastModified<Date() then file.MoveFile "C:\Test Files 2" next but I keep getting an error that reads... Line: 4 Char: 2 Error: Object required: 'files' Any help will be appreciated. -- CipherTeKST MCSE: Security 2003, CCNA, Security+ Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204610
  - 11
    - If...then help please Greetings, I am writing a logon script for our domain users and have run into a roadblock. I am trying to figure out how to use RemoveNetworkDrive in a Sub rather than have it check every drive mapping. Here is what I have so far, without a RemoveNetworkDrive entry: Option Explicit Dim objNetwork, objUser, CurrentUser Dim strGroup, strDomain, strUser, strUNCPath Dim bIsMember Dim objGroup, objNet 'Map P: Drive (Public access share) 'Map H: Drive (Home Folder) On Error Resume Next If IsMemberOf("Domain Users") Then MapDrive "P:","\\Test\Public" End If If IsMemberOf("Domain Users") Then MapHomeDrive "H:","\\Test\Home" End If If Err <> 0 Then MsgBox "Server not available; one or more drives were not mapped." End If On Error Goto 0 '------------------------------------------------------------------' 'FUNCTIONS ' '------------------------------------------------------------------' Sub MapDrive(strLetter, strUNC) Set objNet = WScript.CreateObject("WScript.Network") objNet.MapNetworkDrive strLetter, strUNC End Sub Sub MapHomeDrive(strLetter, strUNCPath) Set objNet = WScript.CreateObject("WScript.Network") strUser = objNetwork.UserName objNet.MapNetworkDrive strLetter, strUNCPath & "\" & strUser End Sub Function IsMemberOf(strGroupName) Set objNetwork = CreateObject("WScript.Network") strDomain = objNetwork.UserDomain strUser = objNetwork.UserName bIsMember = False Set objUser = GetObject("WinNT://" & strDomain & "/" & _ strUser & ",user") For Each objGroup In objUser.Groups If objGroup.Name = strGroupName Then bIsMember = True Exit For End If Next IsMemberOf = bIsMember End Function Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204607
  - 12
    - File permissions in Windows XP home edition How can I modify file permission for a single account in Windows XP Home edition? Tanks for Your help Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204604
  - 13
    - Run a *.vbs file from MS-Access or MS-Excel Using Office 2003 and Windows XP; Could someone please post generic example code that illustrates how to run a stand alone *.vbs file from MS-Access and/or MS-Excel (I would presume the same method would work for either)? Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204603
  - 14
    - ADO Recordset vs Command and AD I need to query AD for categories of user accounts with several thousand per category, so I need "Page Size" adoCommand property set to enable paging. I also want RecordSet.RecordCount to determine nonzero results and how many in the result set, so I set cursortype=3. If I use adoRecordset.open to execute the query I have the proper cursor, but not page size. If I use Set adoRecordSet=adoCommand.Execute then paging is enabled and I get a record set > 1000 but don't get the cursortype=3. How can I execute the query so that I get both? Thanks - Dave '* use ADO to search Active Directory. Set adoCommand = CreateObject("ADODB.Command") Set adoConnection = CreateObject("ADODB.Connection") adoConnection.Provider = "ADsDSOObject" adoConnection.Open "Active Directory Provider" Set adoCommand.ActiveConnection = adoConnection '* setting "Page Size" property enables paging, without which results are limited to 1000 records adoCommand.Properties("Page Size") = 1000 adoCommand.Properties("Timeout") = 120 adoCommand.Properties("Cache Results") = False '* using recordset object allows forward and backward cursor movement Set adoRecordset = CreateObject("ADODB.Recordset") adoRecordset.ActiveConnection = adoConnection adoRecordset.CursorType = 3 '* list of attributes to return strAttributes = "sAMAccountName,department" strPattern = strSearchPattern & "*" strQuery = "SELECT " & strAttributes & _ " FROM 'LDAP://DC=blah,DC=blah,DC=com'" & _ " WHERE objectClass='user' " & _ " AND objectCategory='person' " & _ " AND sAMAccountName='" & strPattern & "'" & _ " OR sn='" & strPattern & "'" '* search AD ' adoRecordset.source = strQuery ' adoRecordset.open '* must use the adoCommand.execute in order for "Page Size" property to apply adoCommand.CommandText = strQuery Set adoRecordSet = adoCommand.Execute Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204601
  - 15
    - Help debug File Not Found I have the following code in a VBS file; it displays a file open dialog box and returns the full path to the file chosen. The program should then open the selected file, but I get an error that the file was not found; how can it not be found if I just picked it? The error occurs on the last line, char 1: Set oDialog = CreateObject("UserAccounts.CommonDialog") oDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*" oDialog.FilterIndex = 2 iResult = oDialog.ShowOpen If iResult = 0 Then Wscript.Quit Else sTarget = oDialog.FileName 'Wscript.Echo sTarget End If Set oWSHShell = CreateObject("WScript.Shell") oWSHShell.Run sTarget, 3, True Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204599
  - 16
    - Determine if a file is open Using Office 2003 and Windows XP; Is there a way using a script (in a VBS script file) to determine if a file is open? If so, could someone please post example code? Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204587
  - 17
    - Open an MS-Access DB Using Office 2003 and Windows XP; VBS is very cool! It makes me want to never look at another BAT file ever again! Could someone please post example code that would open a file? In particular, an MS-Access front-end MDB. I was thinking that there was certain code that would open the file in the correct application without having to point to the app's exe; like a hyperlink works. Is this possible or am I dreaming it up? Please post example code; I'm still learning... Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204580
  - 18
    - Vista and prnadmin.dll Question about Vista security. I've got a script that we use for a lot of printer administration. It relies on the prnadmin.dll functionality from the windows resource kit tools. In order to minimize the install time on the script I register the dll in the script itself: const PRNADMINPATH = "C:\Wherever\prnadmin.dll" Dim objShell : Set objShell = CreateObject("WScript.Shell") objShell.Run "regsvr32 /s """ & PRNADMINPATH & """",0,True The script is only used by local administrators, so this route makes it easy to send them a zip file and have them run the script with no other installation. Works great in 2000/XP. The question is, running the regsvr32 (even from start -> run) will not work in Windows Vista since it needs to be elevated. What is the proper Vista way of doing this type of thing? Will I need to create an actual installation program for a script now if I want to use a dll? Thanks, Jesse Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204570
  - 19
    - Functionality Question Greetings, I am rather new to VBS and what it can do, but so far it has been a fun experience. I currently am making a logon script via vbs and it is coming along nicely. However, I am doing this in preparation of a move from mixed Novell/MS environment to a pure MS environment. Novell is currently used as the file server, but I have recently setup a MS File Server and plan to migrate to it in a month or two. Novell allows for the dynamic creation of the user home folder and rights assignment to that folder whenever creating a new user account. My question is this: Is it possible to mimic that functionalty in the MS environment using VBS, say write a script to create a new user, user home folder and set permissions on it. I would assume you would want input msgbox's for the unique naming and so forth. Just wondering if this is workable? Thanks... -Mac Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204563
  - 20
    - Looking for a script to delete AD user accounts Hi, does anyone have a script they could share that will prompt the user for a computer name, search AD for the computer object and the delete the computer object? Our computer objects reside in a variety of OUs, so the script would need to search the entire directory. Thanks, Mike Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204559
  - 21
    - FTP upload using InetCtls.Inet.1 - error with IE7 Hi, I'm using the std script from PDF Creator to FTP upload files after PDF printing. The script uses the following function to upload. However after installing IE 7, I get an error on the line "Set ftpo = CreateObject("InetCtls.Inet.1")". I have done some googleing, and found out that it because of IE 7.0. How can I easy change the function so that it works? Code: Call FTPUpload(domain, rdir, user, pass, fname) Private Sub FTPUpload(domain, rdir, user, pass, fname) Dim fso, ftpo Set fso = CreateObject("Scripting.FileSystemObject") Set ftpo = CreateObject("InetCtls.Inet.1") ftpo.URL = "ftp://" & domain ftpo.UserName = user ftpo.Password = pass ftpo.Execute , "CD " & rdir Do WScript.Sleep 100 Loop while ftpo.StillExecuting ftpo.Execute , "Put """ & fname & """ """ & fso.GetFilename(fname) & """" Do WScript.Sleep 100 Loop while ftpo.StillExecuting ftpo.Execute , "Close" End Sub Best regards Mads Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204558
  - 22
    - Displaying code as html Does anyone know of a tool / freeware / code theyve written to parse a piece of VBScript and format it as HTML. I would like to output code snippets onto a web site / blog that is correctly formatted and with the right colours. If someone has an xsl sheet or some other method of doing this it would save me a lot of time. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204554
  - 23
    - Select menu choice in a .Net application via PostMessage Hi all, Can anyone give me a hint how to select a menuchoice in an .Net application via a post message. I have got this far objHandle = objForm.FindWindow ("WindowsForms10.Window.8.app. 0.3b95145", "MyApplication") // FindWindow works and I have got a handle. // Now I want to activate the a menu choise. e.g. File/Save PostMessage objHandle, ????????? Any hints appriciated /Broeden Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204553
  - 24
    - VBS equivalent to BAT %USERPROFILE% Using Office 2003 and Windows XP; Due to the enhanced power and control found in VBS, I am trying to replace a few old batch files with a VBS file. Mostly, these are used for deployment of front-end MDB databases to users and distribution of MS-Excel files. 1) Is there anything in particular I should know about this migration from batch to VBS? Given the flexibility in VBS it would seem I'm doing myself a favor... 2) In a batch file, I can use %USERPROFILE% as part of a path and then no matter who opens the batch file, their particular user profile is mapped. What is the equivalent command(s) and/or keywords in VBS? --- If it requires more code, could an example be posted? Thanks much in advance. Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204551
  - 25
    - Problem when using root folder as object Hello, When i'm trying to use root folder (like "c:") as an object (like Ofolder = fso.GetFolder("C:"), I can't access to its properties like .Files or .SubFolders. How can I do? My second problem is when I'm launching my script which is on C:, and it does a GetFolder command on "c:", then the Path of the object is not "c:" but the path of the script???? Hereafter is an example of my script: Option explicit '********************************************************************************************************* '* Sous fonctions et procÃ©dures '********************************************************************************************************* '******************************************************************************************* '* Sous fonction SmartCopy '* '* Copie les rÃ©pertoires et sous-rÃ©pertoires '* avec confirmation utilisateur. Ouvre une fenÃªtre IE (fichier SmartCopy.htm). '* '* IN '* Source: String sur le dossier source, sans le / Ã la fin. '* Destination: String sur le dossier destination, sans le / Ã la fin. '* recursif: Entier permettant de savoir si on a un appel recursif ou non. Doit '* valoir 1 lors du premier appel. '* IE: Objet pointant sur la fenÃªtre de l'internet exploreur pour la rÃ©cursivitÃ©. '* Doit valoir 0 lors du premier appel. '* Nombre_max: Entier indiquant le nombre max de fichiers Ã copier. Utilise pour la rÃ©cursivitÃ©. '* Doit valoir 0 lors du premier appel. '* Nombre_traite: Entier indiquant le nombre de fichiers dÃ©jÃ copiÃ©s. Utilie pour la rÃ©cursivitÃ©. '* Doit valoir 0 lors du premier appel. '* IN/OUT '* Liste_des_fichiers_copies: String contenant la liste des fichiers copies. Elle peut '* ne pas Ãªtre vide lors du premier appel. '* Liste_des_fichiers_non_copies: String contenant la liste des fichiers non copiÃ©s. '* Elle peut ne pas Ãªtre vide lors du premier appel. '******************************************************************************************* Sub SmartCopy(Source, Destination, _ Liste_des_fichiers_copies, Liste_des_fichiers_non_copies, recursif, IE, Nombre_max, Nombre_traite) '***** DÃ©clarations des variables Dim SousRep Dim FicSrc Dim FicDest Dim Reponse Dim Copy_apres_check_date Dim fso, Chemin Dim Taille, oDrive '***** DÃ©but du code Set fso = Wscript.CreateObject("Scripting.FileSystemObject") WshShell.Popup Source & " " & fso.GetFolder(Source).Path If fso.GetFolder(Source).IsRootFolder Then Set oDrive = fso.GetFolder(Source).Drive Taille = oDrive.TotalSize - oDrive.FreeSpace Else Taille = fso.GetFolder(Source).Size End If Taille = FormatNumber((Taille/(1024*1024)),2) '***** Calcule le nombre de fichier Ã copier *******' Nombre_max = 0 Compte_fichier fso.GetFolder(Source), Nombre_max Nombre_traite = 0 End Sub '******************************************************************************************* '* Sous fonction Compte_fichiers '* '* Compte les fichiers d'un dossier. '* '* IN '* Dossier: Objet pointant sur le dossier dont il doit compter les fichiers. '* IN/OUT '* nombre: Entier indiquant le nombre de fichiers comptÃ©s. Doit Ãªtre initialisÃ© Ã 0. '******************************************************************************************* Sub Compte_fichier(Dossier, nombre) '***** DÃ©claration des variables Dim fso '***** DÃ©but du code Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Dim SousRep Dim Fichier For Each Fichier In Dossier.Files nombre = nombre + 1 Next For Each SousRep In fso.GetFolder(Dossier).SubFolders Compte_fichier SousRep , nombre Next End Sub '********************************************************************************************************* '********************************************************************************************************* '********************************************************************************************************* '* main '********************************************************************************************************* '********************************************************************************************************* '********************************************************************************************************* Dim WSHShell, fso, WshNet, IE Set WSHShell = WScript.CreateObject("Wscript.Shell") Set fso = Wscript.CreateObject("Scripting.FileSystemObject") Set WshNet = Wscript.CreateObject("Wscript.Network") Set IE = WScript.CreateObject("InternetExplorer.Application") Dim Liste_des_fichiers_copies, Liste_des_fichiers_non_copies Dim Chemin '******************************************************************************************* '* DÃ©but du code '******************************************************************************************* SmartCopy "C:" , "J:\Sauvegardes personnelles\Copie de E" , _ Liste_des_fichiers_copies, Liste_des_fichiers_non_copies, 1, 0, 0, 0 Tag: How to create and open (Crystal report to PDF) PDF using ASP (Classic ASP) Tag: 204550

Hi All,

Using the below code the report opens in the HTML view and when I
click on Export, I am able to export to PDF or Excel

But I need the PDF file to create and open up with out the HTML View
being generated.

Please let me know how to achieve this.

<%
Dim objectFactory
Set objectFactory = CreateObject("CrystalReports.ObjectFactory.2")

Response.ExpiresAbsolute = Now() - 1

Dim viewer
Set viewer =
objectFactory.CreateObject("CrystalReports.CrystalReportInteractiveViewer")
viewer.Name = "page"
viewer.IsOwnForm = true
viewer.IsOwnPage = true

Dim theReportName
theReportName = "D:\Arun\ASPEXP\CrystASSamples\CrystRASSample
\CrystRASSample_Local\Reports\rptClients.rpt"

Dim clientDoc
Set clientDoc =
objectFactory.CreateObject("CrystalClientDoc.ReportClientDocument")
clientDoc.Open theReportName
viewer.ReportSource = clientDoc.ReportSource

Dim BooleanSearchControl
Set BooleanSearchControl =
objectFactory.CreateObject("CrystalReports.BooleanSearchControl")
BooleanSearchControl.ReportDocument = clientDoc
viewer.BooleanSearchControl = BooleanSearchControl
viewer.ProcessHttpRequest Request, Response, Session
%>

Thank you
Arun

Top