E-mail script doesn't work more!

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
    - Asp and script Iv gt an asp page that has two buttons on it. one button uses a form and the other uses scrpit to go to the next page. I need both buttons to submit data. Iv usesd this on page1: public varform varform =3D "" '"Activity_Rpt_Inv4.asp?klient=3Dresponse.write(request.querystring("klient= ")=AD)&adviseur=3Dresponse.write( session("Pers_ID"))&ActId=3Dresponse.write(request.querystring("ActId"))" <script type=3D"text/vbscript" language=3D"VBScript" event=3D"onClick" for=3D"btnPrint"> InvDisp.action =3D "Activity_Rpt_Inv5.asp?klient=3D<%=3D request.querystring("klient") %>&adviseur=3D<%=3D session("Pers_ID") %>&ActId=3D<%=3D request.querystring("ActId") %>" InvDisp.submit </script> <form action=3D<%=3D varform %> method=3D"post" name=3D"InvDisp"> But they nt working. The code used to go to a page using the scrpit works in the sense that it goes to the pasge,bt the data is nt transferred.=20 please help Tag: E-mail script doesn't work more! Tag: 191153
  - 2
    - Stripping out nested quotes I have a script that processes a csv file using the filesystemobject method - at the moment, I'm reading in a csv, doing a replace function on certain specific characters, then writing the result back to another file. However, I have a problem in that the csv uses quotes as text delimiters, and some fields contain nested quotes - which I need to strip out. The nested quotes are not necessarily at the beginning and end of the strings (such as ""NAME"") - in theory, they could be anywhere (e.g. "NA"ME"). Obviously each field is separated by a comma, and starts and ends with a quote, which is all as expected - I just need to strip out any other quotes within the fields. Does anyone have a script that would do this? Tag: E-mail script doesn't work more! Tag: 191151
  - 3
    - Clear the ReadOnly flag. Hi. I'm a new VBscripter, so probably this my question may be a little stupid. I'm trying to create a simple 'batch' file to copy files from CD to hard-disk. The problem is that the files on hard disk will have the ReadOnly flag set. I tryed the following code (recursive to run on subfolders too), but it don't work. I call it with WSCRIPT. Can someone help me ? Thank You very much. Alberto. ' Main call call VBS_ClearReadOnlyFlag ("C:\FOLDER_EXAMPLE") ' Subroutine Sub VBS_ClearReadOnlyFlag (szFolder) Dim oFolder, oSubFolder, oFiles, f, f1 ' Check if folder exist If (oFS.FolderExists (szFolder) = 0) Then Exit Sub End If Set oFolder = oFS.GetFolder (szFolder) Set oSubFolder = oFolder.SubFolders For Each f in oSubFolder call VBS_ClearReadOnlyFlag (f.Path) Next Set oFiles = oFolder.Files For Each f in oFiles Set f1 = oFS.GetFile (f.Path) f1.Attributes = f1.Attributes - ReadOnly Next End Sub Tag: E-mail script doesn't work more! Tag: 191150
  - 4
    - Access is denied error running vb exe from vbscript after SP2 upgr Hi, Since upgrading to XP SP2 I'm getting an "access is denied" popup error message with the following vbscript code in IE 6: ... xxprt = "c:\inetpub\wwwroot\abc\prtprog.EXE" window.open xxprt .... This worked prior to the SP2 upgrade and the exe works when run from Windows Explorer it just fails via the browser. When I change the path to : xxprt = "http://localhost/abc/prtprog.EXE" it works except it then gets a "File not found 53" vb error for a file that is in the directory. I've had a look at the security updates for SP2 and tried a few things (eg. adding IUSR_ account to all directories and exe,inserting Mark of Web comment) but to no avail. Thanks in Advance, Michael Tag: E-mail script doesn't work more! Tag: 191149
  - 5
    - script for remote desktop I need help with a vbscript to be able to query a fixed list of computers on the network if there are any user logged on thru remote desktop connections and return a result if the computers are logged on or not. As the file and print sharing had been disabled on those computers, so those scripts that I got (using Win32_ComputerSystem etc) are not able to work. Scripts that ping to those computers also doesn't give accurate results, as I'll still get connected results even if no user is log on but the PC is power up. is there any way to do up a vbscript to query like event logs etc for checking if there's any user logged on? Thanks! Tag: E-mail script doesn't work more! Tag: 191142
  - 6
    - WMI & Shutdown Hi, Running a short vbs script that uses the win32shutdown method(?) of the winmgmts win32_operatingsystem object produces the following error: Error: Privilege not held. Code: 80041062 Source SWbemObject Can the privilege be enabled? The operating system is Win2K, SP 4 with the roll up fixes. -- Bill Tag: E-mail script doesn't work more! Tag: 191131
  - 7
    - run on startup script how can i run a batch script on startup under winxp? thank you Tag: E-mail script doesn't work more! Tag: 191129
  - 8
    - Retrieve Parameter from location bar Hi Everybody I have an Access database that passes a Parameter to a web page something like this. http://localhost/index.htm?paramName=1234-54321 I want to be able to retrieve the parameter (In this example 1234-54321) and pass it to a text box on a form. Something like this. <form name="form1" id="form1" method="post" action=""> <input type="text" name="txtinput" value= "Param" /> </form> Any help gratefully received Tag: E-mail script doesn't work more! Tag: 191126
  - 9
    - CreateObject fails in .VBS script file but works in .ASP file ! Hi, I can't instantiate an ActiveX component in a .VBS script file with this code : set myObject = createObject("ChilkatMail2.ChilkatMailMan2") This component is used to send mails and it's really an "ActiveX component". I receive the following error message : "Could not create object named ChilkatMail2.ChilkatMailMan2" Note that if I run this .vbs with Cscript or WScript I receive the same error message. I also tried to create object with this code : set myObject = Wscript.createObject("ChilkatMail2.ChilkatMailMan2") ... the result is the same. But now, if I try exactly the same code in an .ASP page it WORKS !!!!! The only difference is that I use Server.CreateObject (because it's ASP). This means that : - the component is correctly registered (I checked all the entry points with COM explorer) - all the dependencies are present on the system (I think so...) I'm logged on as Administrator, my system is Windows Server 2003 SP1 (x64) I spend two days searching the web and I didn't find the solution, could you please help me ? Thanks a lot !!! Regards Thierry Tag: E-mail script doesn't work more! Tag: 191123
  - 10
    - obtain external data Hi everyone: is there a way to obtain an external data from a file, let's say Microsoft excel , within a vbscript file ??. I'm asking because I wanna use vbscript to automatize certain function in a R/3 software (SAP), and i have a list of parameters i need to load , but they're saved in an excel file, the file is hughe so i cannot ( don't want to ) manually parse into the script (could be done using inputbox). This is seudo diagram of wath i'm trying to do. retrieve PARAM(1) ----->PARAM(n) from excel file--->[this i down't know] perform a format conversion or another kind of operation -->'//this i can do well paste value loaded from excel into a textbox within the application.->'//also this select some checkboxes and radio buttons'// cool about this programatically click some buttons [ eg: save and close ]->'// this is not a problem : -) i know it is with some createobject() , but i haven't worked before with this so any help would be hot... thank's in advantage. Tag: E-mail script doesn't work more! Tag: 191117
  - 11
    - Run office 2003 SP1 with VBscript Hi, I have just started to get involved in scripting, I am currently working on a script to copy Office 2003 SP1 to a local computer from a server and run it silently. Here is what I have done so far, but it does not seem to be running the install. Can anyone give me a hand, it would be greatly appreciated. Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "\\SERVERNAME\support$\DSS\Temp\Office2003SP1-kb842532-fullfile-enu.exe" , "C:\pkgdirs\", OverwriteExisting Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("c:\pkgdirs\Office2003SP1-kb842532-fullfile-enu.exe /q", , ALL_USERS) Thanks Netace Tag: E-mail script doesn't work more! Tag: 191101
  - 12
    - Set Internet Explorer as the default browser using VBScript I am in the process of automating the removal of an email client that is integrated with Internet Explorer. After I remove the client, the first time the users runs Internet Explorer it displays a message saying that it is not the default browser and would you like to make it the default browser. I would like to set it as the default browser in the VBScript that removes the email client. Is there a way to do this? Thanks Tag: E-mail script doesn't work more! Tag: 191100
  - 13
    - [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Microsoft just released RC1 of PowerShell (formerly monad / Microsoft Shell). DesktopEngineer.com offers training that teaches you PowerShell while leveraging your current skills in scripting. http://DesktopEngineer.com/PowerShellTraining Tag: E-mail script doesn't work more! Tag: 191098
  - 14
    - How long a user has been logged on for... I know this is far from a new question but I am looking for a way to determine how long a user has been logged on to a remote XP/2003 machine (either logged on locally or remotely via RDP). I know how to get who is logged onto a machine both locally and through RDP sessions so I don't need any help there. I've tried a combination of Win32_LogonSession and Win32_LoggedOnUser but that didn't work. I'm aware that when a user logs on to a machine in a AD environment it updates the "lastLogon" property for their account on the domain controller but there must be something stored locally on the machine. I base my previous comment on the fact that when you open the "Terminal Services Manager" mmc snap-in and connect to a remote machine it lists the currently logged on users, their session type (Console or RDP), their state (Active or Disconnected), idle time, and their Logon Time. I've done some looking and have had no luck finding where "Terminal Services Manager" get's its information from. If it were possible to use the information that is uses then you would have the logon times for the individuals logged on to a specific machine and it would be trivial to determine how long they have been logged on once you have that tidbit of information. Anyone have an idea or where "Terminal Services Manager" gets its information from or if you can interface with "Terminal Services Manager" via vbscript? Nate Tag: E-mail script doesn't work more! Tag: 191096
  - 15
    - Why Use Scripting I know here are millions of wonderful uses for automating with scripts (I use login scripts for numerous things) but I have a question regarding the use of scripts to create/delete AD user accounts. All of the scripts I have seen are really plain and simply create a domain account with no properties set. Not even the full name. It seems pointless to use a script like this as I still have to edit the account properties and fill in the blanks. I've also seen none that will create the associated Exchange mailbox. Since we perform a number of tweaks to a new account I had hoped to use scripting to make is simpler and more consistent. I must be missing something. I would envision a script that sets all the default properties for an account (i.e. disables terminal services) and prompts for input like Full Name, Ext, Fax, etc... as well as creating the Exchange mailbox. Is this too complex or am I not finding these scripts in my search of the web? Comments are much appreciated Tag: E-mail script doesn't work more! Tag: 191095
  - 16
    - Enum stale computer accounts? Hello, Anyone have a quick vbScript that will enumerate AD for "stale" computer accounts?? Thanks, Troy Tag: E-mail script doesn't work more! Tag: 191094
  - 17
    - Excel Application.DDEInitiate fails if invoked from VBScript Hi all, I am very new to VBScripting. I have the following situation, I hope someone could help me out. I have to write the code in VBScript to invoke a macro in Excel, which is available as an XLA file. It has to be a VBScript, since a different program decides which macro should be invoked. It would then generate this VBScript file. The user could then download this VBScript and execute on his computer. All the XLA-macros are making some DDE requests, or opening other Workbooks. If I run the macros from VBA, or Excel, they work fine. But if I try to execute the macros from VBScript: * The DDEInitiate() function in the macro returns "0". * Workbooks.open(....) returns "Nothing". - Is there a way to solve these problems ? - Is there a better way to acheive the same solution ? Any help would be greatly appreciated. I use the following VB Script to open an XLA and execute a macro. Dim objxl, xlapath, macro Set objxl = CreateObject("Excel.Application") xlapath = "C:\myxla.xla" macro="myxla.xla!macro1(""param1"",""param2"")" With objxl .Visible = True .Workbooks.Open xlapath .Workbooks("myxla.xla").RunAutoMacros 1 'xlAutoOpen .Run macro End With Within the xla-macro, I try to open another workbook. Public Sub macro1(param1 As String, param2 As String) Dim wb As Workbook Dim url As String url = "http://localhost/test.csv" Debug.Print "Attempting to open : " & url Set wb = Workbooks.Open(Filename:=url, UpdateLinks:=False, ReadOnly:=True, Editable:=False, AddToMru:=False, Format:=1) If wb Is Nothing Then Debug.Print "Could not open the page: " & url else Debug.Print "Successfully opened : " & url End If End Sub Public Sub macro2(service As String, topic As String, request as String) channel = Application.DDEInitiate(service, topic) If channel > 0 Then result = Application.DDERequest(channel, request) Debug.Print "Result of DDE Request: " & TypeName(result) & " Channel: " & channel Application.DDETerminate (channel) Else Debug.Print "DDE failed to initialize." End If End Sub Thanks in advance. Tag: E-mail script doesn't work more! Tag: 191093
  - 18
    - Remote Desktop Hi all, can i enable the "remote desktop" in windows xp sp2 using a script ? Thanks. Tag: E-mail script doesn't work more! Tag: 191090
  - 19
    - SHINBAUM OR ANYONE... Hi Shinbaum or Anyone... Can you help to create a function to destroy connection as Shinbaum sad?? http://groups.google.com.br/group/microsoft.public.scripting.vbscript/browse_thread/thread/a9f48bef34fa6725/?hl=pt-BR# Please look this topic... Tag: E-mail script doesn't work more! Tag: 191089
  - 20
    - windows 2000 server event log query I am looking for a solution to check the event logs over the last 24 hrs for specific events on a windows 2000 server can anyone help ? Tag: E-mail script doesn't work more! Tag: 191088
  - 21
    - How to verify if a number if an integer? I need to write a function that when receive a number "x" is able to undestand if this number is multiple of 3 How can I do? I hoped that exists a math function to do so but.... Thanks Tag: E-mail script doesn't work more! Tag: 191086
  - 22
    - call macro Hello guys, How can execute open a macro in from vbscript, I wrote this but doesn't not work objExcel.run objWkb.name &"!"&"getfunctioncitrix.workbook_open" ina Tag: E-mail script doesn't work more! Tag: 191080
  - 23
    - Getting domain information from a machine not in the domain.. Essentially I am trying to come up with a more universal mapping/logon script - even for the laptop users who may be running a script to connect to their domain resources on occasion. The trouble so far has been that all the scripts I have done to check for domain membership and the likes, fail miserably when ran on a machine outside of the domain (not joined to the domain.) I assumed this was because the scripts, unless told, would be trying to communicate with the domain using local credentials - which would undoubtedly fail. In my research I came across a few pages mentioning this, including: http://www.rlmueller.net/NameTranslateFAQ.htm and http://www.scriptinganswers.com/Community/DiscussionForums/tabid/154/view/topic/forumid/6/postid/4108/Default.aspx However - implementing/testing those still gives me the dreaded: "The specified domain either does not exist or could not be contacted" "Code: 8007054B" And I am positive the credentials are correct - am positive that I can contact the domain - as I am actually VPN'd into the network at the time and a simple \\domain.com\netlogon at the run prompt (subbing in my actual domain of course) works as expected and asks me for the username/password. I've verified DNS settings, verified everything I can think of is correct. I am likely missing something simple - and I would love if someone here could point out the thing I am missing.. The examples of the code I am using can be found on the pages above (as they will give the same error as my larger script.) -- Shenan Stanley -- Tag: E-mail script doesn't work more! Tag: 191066
  - 24
    - retrieve HTML from a website using VBScript I need help for creating a VBScript that can retrieve HTML from a given web site (perhaps typing the URL in an Inputbox) and the store that in my local computer.(the HTML) Any Idea? Thanks Tag: E-mail script doesn't work more! Tag: 191064
  - 25
    - Querying MSDE ISA Logs I want to create customize reports on ISAS 2004. How can I query the MSDE database? Need help on this. Tag: E-mail script doesn't work more! Tag: 191058
- Next
  - 1
    - Re: Querying MSDE ISA Logs sorry. posted on the wrong group. please disregard "M P" <mark@textguru.ph> wrote in message news:... > I want to create customize reports on ISAS 2004. How can I query the MSDE > database? Need help on this. > Tag: E-mail script doesn't work more! Tag: 191057
  - 2
    - Folder Deletion Query Problem I hope someone can tell me where I am missing a step. I am trying to delete local profiles stored in Documents and Settings that do not match the last user to logon to a worksation. I can parse the user and the profile path fine, but when I want the script to delete all folders that do not match the criteria from the Documents and settings ROOT, it wants to delete all folders (including c:\) that does not match my "c:\documents and settings\SomeonesProfiles" string. I obviously don't want to do this. here is my code. Any help or guidance is appreciated. Thanks Mario Set fso = CreateObject("Scripting.FileSystemObject") Set ProfileLog = fso.OPenTextFile("c:\temp\Profile.log",8,true) Set TestLog = fso.OpenTextFile("c:\temp\Test.Log",8,True) '******************************************************************** '* DECLARE VARIABLES * '******************************************************************** strComputer = "." strDate = "20060501000000.000000-420" '******************************************************************** '* End Variable Declarations * '******************************************************************** '******************************************************************** '* Query Local Security Event log for Successful logon to * '* workstation * '******************************************************************** Set objWMIService = GetObject("winmgmts:{(Security)}\\" & strComputer & "\root\cimv2") Set colEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where Logfile = 'Security' and " _ & "EventCode = '528'") '******************************************************************** '* Once found, DO these actions if meets date and logon criteria * '* Parses User Identity from scif\scifid1 * '* Queries Local Directory Service for instances matching Document * '* and Settings\SCIFID1 * '******************************************************************** For Each objEvent in colEvents If objEvent.InsertionStrings(3) = 2 Then If objEvent.TimeWritten > strDate Then UserID = objEvent.User SCIFID = Split(UserID,"\") ProfileID = SCIFID(1) Wscript.Echo ProfileID Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"_ & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("SELECT * from Win32_Directory WHERE Name <> 'C:\\Documents and Settings\\%" & ProfileID & "'") For Each objFolder in colFolders Wscript.Echo objFolder.Name & " will be deleted" Next End If End If ' Exit For Next Tag: E-mail script doesn't work more! Tag: 191056
  - 3
    - scripting vss (check in, check out) from vba (instead of batch files) Is there a way to communicate with VSS from commands in vb or vba to * find out if a file exists in vss * find out if a file is checked out already * check a file out * check a file in * add a file * etc. ? I know you can generate bat files do do some of this stuff, for instance set path=c:\program files\microsoft visual studio\common\vss\win32 set ssuser=myusername set ssdir=\\myserver\vss\ ss cp $/myproject/mysubfolder ss.exe checkout myfile.vb ss.exe checkout myfile2.vb ss.exe checkin myfile.vb ss status myfile2.vb ss add myfile3.vb etc. but is there a way to issue these commands directly from VBA without having to script out a batch file and resort to shell? Furthermore, how do you get back status of some of these commands? For instance, "ss status myfile3.vb" might return "myfile3.vb myuser Exc 5/04/06 5:11p c:\myproject\mysubfolder" if the file is checked out. "No checked out files found." if the file is in VSS but not checked out "myfile3.vb is not an existing filename or project" if the file is not yet in VSS. At the very least we would need the batch file to generate some kind of output file that VB or VBA code can later read to see if the command went through (kludgey at best), but from the command box if I try to pipe a command to an output file, like ss status myfile2.vb > c:\myfile2_status.txt an empty file gets created (it works for a simple DIR command however) Is there any good example of vb directly sending commands to vss and getting back status messages? Any help appreciated... Tag: E-mail script doesn't work more! Tag: 191054
  - 4
    - Debugging VBscript in embedded browsers I know how to debug a vbscript running in an HTML page being displayed in Internet Explorer. But what if IE is not stand alone, bur rather it is embedded in another application? When the script hits an error, all I get is an error notification, but not the option to open the debugger. Is there a setting I, as the end user, can change in the embedded browser, or is it up to the application developer to allow this? Thanks! Carlos Tag: E-mail script doesn't work more! Tag: 191051
  - 5
    - Pre-setting print driver options Trying to set up a USB label printer through a Citrix session to a 2003 terminal server. I need to preset default form-to-tray assignment, the paper size, print density, and also write the printer name to an INI file. The problem: the printer name changes each time you log on. The name that MS creates for this is nasty - and example is "lp (on SOT5912) in session 39" The part "SOT5912" is the machine name, should be static for each station, but the session number, "39", changes EVERY time you log onto the server. I've tried "setprinter", but it doesn't have the proper settings and switches for my needs. I know it is not too hard to get the printer name - search for one that starts with characters "lp (on ", and use it. Presetting the needed driver settings is the real pain. I found the registry settings that need to be changed, but I need help. The setting that needs to be changed or inserted is in HKEY_CURRENT_USER\Printers\DevModePerUser and HKEY_CURRENT_USER\Printers\DevModes2. The name for the binary vaue is the printer name, it's the binary data needed that is my main problem. Here is an example, truncated at line 11 - the rest is all nuls, like the last line: [HKEY_CURRENT_USER\Printers\DevModePerUser] "lp (from SIS5029) in session 5"=hex:6c,00,70,00,20,00,28,00,66,00,72,00,6f,00,\ 6d,00,20,00,53,00,49,00,53,00,35,00,30,00,32,00,39,00,29,00,20,00,69,00,6e,\ 00,20,00,73,00,65,00,73,00,73,00,69,00,6f,00,6e,00,20,00,35,00,00,00,00,00,\ 01,04,00,05,dc,00,34,02,43,ef,81,07,01,00,c9,00,79,03,16,01,64,00,01,00,0f,\ 00,2c,01,01,00,01,00,2c,01,02,00,01,00,33,00,30,00,32,00,35,00,36,00,20,00,\ 53,00,68,00,69,00,70,00,70,00,69,00,6e,00,67,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,01,\ 00,00,00,02,00,00,00,01,01,00,00,ff,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,44,49,4e,55,22,00,00,00,34,02,00,00,3c,61,11,dc,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ The hex data up to the 20th character on line 3 (0x35) is the printer name, truncated at 30 characters, and separated by 00. The rest of the data is static, and represents the needed printer settings. Anyone work with something like this before? My thoughts, I need a script to pull the appropriate printer name, create the hex data from the name with the 00 between letters, add the rest of the string as a pre-defined string, write the 2 needed registry entries. I have another registry entry to add to, but if I can get help with this hex entry, the rest of what I need will be EASY. Been working too long on this, trying to find the needed areas in the registry and verifying what was needed. Can someone help with the script? Thanks Randy Reimers Tag: E-mail script doesn't work more! Tag: 191047
  - 6
    - Group Member listing. I am trying to list out members of group which contains members from another forest that we have established at trust with. The problem is that the members from the other forest only show up in the output as their SID identifier. Is it possible to pull a display name from another forest using a only a users SID? Tag: E-mail script doesn't work more! Tag: 191045
  - 7
    - Scripting.filesystemobject Issues on Windows 2003 I have an administrative script running on a 2003 Server. The script runs with backup operator permissions, and calls the scripting.filesystemobject. This used to work no problem, but at some point stopped working. (could be patch related?) Anywho, the error it through is on the line: set fs = CreateObject("Scripting.FileSystemObject") and the error is "ActiveX component can't create object: 'Scripting.FileSystemObject'" Code: 800A01AD I checked the permissions on scrrun.dll, and auehtenticated users have read and execute. Also, I reinstalled WSH 5.6 for Windows 2003. Any ideas what is happening to cause this issue? Tag: E-mail script doesn't work more! Tag: 191044
  - 8
    - Editing the Local Group Policy Hi, Can anyone refer me to some resources that show how to edit the "Local Group Policy" ( gpedit.msc). Basically I need to add a startup script e.g. Local Computer Policy > Computer Configuration > Windows Settings > Scripts(Startup/Shutdown). Or are there other command line utilities that can do this? Thanks, Tag: E-mail script doesn't work more! Tag: 191041
  - 9
    - Using netsh command I'm unable to use the following script as it produces errors: oShell.Run("cmd /c" ("netsh interface ip set wins name=" local area connection "source=static addr=10.186.157.11") Any ideas on how to format this to use the netsh command? Tag: E-mail script doesn't work more! Tag: 191040
  - 10
    - IE7 beta2 objet Wscript.CreateObject("InternetExplorer.Application") Hello, Before it used the following function and now with IE7 beta2 does not work. as it is used now? Set objIntExplorer = Wscript.CreateObject("InternetExplorer.Application") With objIntExplorer .Navigate "about:blank" .ToolBar = 0 <----------------Error .Menubar = 0<----------------Error .StatusBar = 0<----------------Error .Width = 700<----------------Error .Height = 350<----------------error .Left = 100<----------------Error .Top = 100<----------------Error End With Tag: E-mail script doesn't work more! Tag: 191038
  - 11
    - check bxes Can you make a vbscript have check boxes? Tag: E-mail script doesn't work more! Tag: 191035
  - 12
    - Help parsing text file I need to take a text file that contains information similar to the following: 6700011111001SomeText Here 00000360391260{ 00000400617000{ And output it to a new file only containing the las 6 numbers of the first set of numbers. I have tried regular expressions, instr and cannot find a way to do it. Thank you, Tag: E-mail script doesn't work more! Tag: 191034
  - 13
    - MS dos and incrementing variables. Here is what I need help with... set JOB_PATH=.\faxes set JOB_NAME=fax1.job set JOB_FOLDER=%JOB_PATH%\fax1 type sec1.txt > %JOB_PATH%\%JOB_NAME% echo DIDNumber(*5000*9042452000*) >> %JOB_PATH%\%JOB_NAME% type sec2.txt >> %JOB_PATH%\%JOB_NAME% echo From_FaxNumber(*5000*9042452000*) >> %JOB_PATH%\%JOB_NAME% type sec3.txt >> %JOB_PATH%\%JOB_NAME% mkdir %JOB_FOLDER% copy %JOB_PATH%\SinglePageFaxSeed %JOB_FOLDER% I know this is going to have to change but it's what I have to start with. I need to be able to change job name and folder name from fax1 to fax2 to fax3 and so on with each copy. the 5000 that is part of the did number, i need to take from user input. Essentially it will ask the user for the DNIS number, they input whatever, then it will loop through 100 times with that same number but you will end up with fax1...fax100 all with the same number. then I can rerun the program with another number. I keep trying to use linux commands and I think that's why I am getting myself so confused. thanks for the help! Tag: E-mail script doesn't work more! Tag: 191028
  - 14
    - Active Directory Import I was wondering if the is away when importing from a csv file to put the names with Lastname, Firstname MI. I use the fullname object when importing with script but it doesn't show in AD that way. Tag: E-mail script doesn't work more! Tag: 191026
  - 15
    - Determining Currently Mapped Drives I'm trying to come up with a script that will request input for a computer name and then connect to that remote PC to determine currently mapped drives and thier full unc path as well as currently mapped drives. I tried using WMI's Win32_MappedLogicalDisk but that doesn't tell me what the drives are mapped to. Does anyone have any idea how to do this? Tag: E-mail script doesn't work more! Tag: 191025
  - 16
    - Exporting a Binary object from AD to a file. i'm trying to script part of our termination process. Part of that process is to save any "published certifcates" for an AD user account to a file, which we currently do via ADUC. I can't find a model script to steal to help with this process. The AD attirbute for each published certificate is named usercertificate and is a binary field. Got help! Thanks in advance, Matthew Tag: E-mail script doesn't work more! Tag: 191023
  - 17
    - stdout/stderr atendofstream Hi, I have a question with regard to the properties atendofstream. I have some batch exe that I would like to run with the exec function. Some of the exe uses both stdout and stderr and i have a loop to capture both stream Do Until oExec.StdOut.AtEndOfStream And oExec.StdErr.AtEndOfStream And oExec.Status <> 0 wscript.echo "in loop" If Not oExec.StdOut.AtEndOfStream Then sText = oExec.StdOut.ReadLine If len(sText) > 0 Then StdOutLog sText End If End If If Not oExec.StdErr.AtEndOfStream Then sText2 = oExec.StdErr.ReadLine If len(sText2) > 0 Then StdErrLog sText2 End If End If Loop The problem is StdOut.AtEndOfStream will read past the buffer and hangs. This only happens with executables that write to both stdout and stderr. Anyone else had the same problem and is there any way to resolve it? Tag: E-mail script doesn't work more! Tag: 191020
  - 18
    - vbscript open macro in Excel Hello guys, I have this code: in vbscript description: I would like to open an workbook and execute two macro one in sheet1 et another in sheet2 (I have already done it and already set the private workbook_open() macro <HTML> <body> <h1>Tools</h1> <hr> <table><tr><td> </td></tr></table <h2><strong>GetInfo</strong></h2> <table><tr><td> </td></tr></table <p>>Please Click to have information</p> <form name="lx1"> <input type=button name=btn1 value="Ok"> </form> <SCRIPT LANGUAGE=VBScript> Dim objExcel Sub Btn1_onclick() call OpenWorkbook("getinfo.xls") Excel.Run "refresh" 'here I reflesh my macro End Sub Sub OpenWorkbook(strLocation) Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open strLocation objExcel.Visible = true objExcel.WindowState = xlMinimized objExcel.WindowState = vbMaximizedFocus objExcel.WindowState = vbMaximized objExcel.UserControl = true objExcel.run "workbook_open" ' I would like to execute the private workbook_open bu ' but no way it doesn't work Set objExcel = Nothing End Sub </SCRIPT> </HTML> any help Will be really appreciated :() Ina Tag: E-mail script doesn't work more! Tag: 191017
  - 19
    - Need help making script more efficient I have the following script to take Large_Logfile and split it up into several Smaller_Logfiles. Its very crude and could use some help so Im posting it here to see what you all can suggest. The purpose behind doing this may also be relivant(sp). What I am doing is taking a txt file of PC names and I have a Script we are running against that list to gather back information. If the PC Names list has alot of PC's in it it takes hours to run. What I want todo is split up the PC Names file into several smaller files and then run the script against all the smaller files at the same time to speed up the process. So far its cut the time down alot, the current state of the script is probably really raw and could use some assistance hence me posting it here. Any advice or suggestions is greatly appreciated. Mike.. Code - This is the entire Code ( Line breaks might be a problem ) Again this is very crude - just the begining of my thinking/script I hope to slim it down alot. SCRIPT ********************************* Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = CreateObject("Scripting.FileSystemObject") Set Comps = fso.OpenTextFile("C:\OurStuff\Mikes_Scripts\AOP_Check\PCs.txt", ForReading) fPCLog_00 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_00.txt" fPCLog_01 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_01.txt" fPCLog_02 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_02.txt" fPCLog_03 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_03.txt" fPCLog_04 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_04.txt" fPCLog_05 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_05.txt" fPCLog_06 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_06.txt" fPCLog_07 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_07.txt" fPCLog_08 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_08.txt" fPCLog_09 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_09.txt" fPCLog_10 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_10.txt" fPCLog_11 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_11.txt" fPCLog_12 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_12.txt" fPCLog_13 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_13.txt" fPCLog_14 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_14.txt" fPCLog_15 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_15.txt" fPCLog_16 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_16.txt" fPCLog_17 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_17.txt" fPCLog_18 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_18.txt" fPCLog_19 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_19.txt" Set PCLog_00 = fso.OpenTextFile(fPCLog_00, ForWriting, True) Set PCLog_01 = fso.OpenTextFile(fPCLog_01, ForWriting, True) Set PCLog_02 = fso.OpenTextFile(fPCLog_02, ForWriting, True) Set PCLog_03 = fso.OpenTextFile(fPCLog_03, ForWriting, True) Set PCLog_04 = fso.OpenTextFile(fPCLog_04, ForWriting, True) Set PCLog_05 = fso.OpenTextFile(fPCLog_05, ForWriting, True) Set PCLog_06 = fso.OpenTextFile(fPCLog_06, ForWriting, True) Set PCLog_07 = fso.OpenTextFile(fPCLog_07, ForWriting, True) Set PCLog_08 = fso.OpenTextFile(fPCLog_08, ForWriting, True) Set PCLog_09 = fso.OpenTextFile(fPCLog_09, ForWriting, True) Set PCLog_10 = fso.OpenTextFile(fPCLog_10, ForWriting, True) Set PCLog_11 = fso.OpenTextFile(fPCLog_11, ForWriting, True) Set PCLog_12 = fso.OpenTextFile(fPCLog_12, ForWriting, True) Set PCLog_13 = fso.OpenTextFile(fPCLog_13, ForWriting, True) Set PCLog_14 = fso.OpenTextFile(fPCLog_14, ForWriting, True) Set PCLog_15 = fso.OpenTextFile(fPCLog_15, ForWriting, True) Set PCLog_16 = fso.OpenTextFile(fPCLog_16, ForWriting, True) Set PCLog_17 = fso.OpenTextFile(fPCLog_17, ForWriting, True) Set PCLog_18 = fso.OpenTextFile(fPCLog_18, ForWriting, True) Set PCLog_19 = fso.OpenTextFile(fPCLog_19, ForWriting, True) Do Until Comps.AtEndOfStream On Error Resume Next PCLog_00.WriteLine Comps.Readline PCLog_01.WriteLine Comps.Readline PCLog_02.WriteLine Comps.Readline PCLog_03.WriteLine Comps.Readline PCLog_04.WriteLine Comps.Readline PCLog_05.WriteLine Comps.Readline PCLog_06.WriteLine Comps.Readline PCLog_07.WriteLine Comps.Readline PCLog_08.WriteLine Comps.Readline PCLog_09.WriteLine Comps.Readline PCLog_10.WriteLine Comps.Readline PCLog_11.WriteLine Comps.Readline PCLog_12.WriteLine Comps.Readline PCLog_13.WriteLine Comps.Readline PCLog_14.WriteLine Comps.Readline PCLog_15.WriteLine Comps.Readline PCLog_16.WriteLine Comps.Readline PCLog_17.WriteLine Comps.Readline PCLog_18.WriteLine Comps.Readline PCLog_19.WriteLine Comps.Readline Loop WScript.Sleep 5000 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_00.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_01.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_02.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_03.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_04.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_05.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_06.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_07.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_08.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_09.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_10.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_11.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_12.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_13.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_14.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_15.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_16.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_17.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_18.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_19.txt", 1, False) Set oShell = Nothing Tag: E-mail script doesn't work more! Tag: 191011
  - 20
    - Creating AD users from Excel help Hey, I found this script on the internet to import users from an excel spreadsheet, and using LDAP, create accounts in AD. The script works fine if all the cells in the spreadsheet contain some type of data. However, in the speadsheet that I need to use, there are a lot of blank fields. I realize that the problem lies with the line; Do Until objExcel.Cells(intRow,1).Value = "" but I don't know how to modify it enough to allow the script to pass over blank cells and not stop. I've tried adding a ~ as the value for the above line and made that the last entry in the excel spreadsheet, but to no avail. Any help would be greatly appriciated. Andy Option Explicit Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strInit, strLast, strDisp, strPWD, strUPN, strMail, strDesc strOU = "OU=ANDYTEST ," strSheet = "C:\ADImport.xls" Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strInit = Trim(objExcel.Cells(intRow, 4).Value) strLast = Trim(objExcel.Cells(intRow, 5).Value) strDisp = Trim(objExcel.Cells(intRow, 6).Value) strUPN = Trim(objExcel.Cells(intRow, 7).Value) strPWD = Trim(objExcel.Cells(intRow, 8).Value) strDesc = Trim(objExcel.Cells(intRow, 9).Value) strMail = Trim(objExcel.Cells(intRow, 10).Value) Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.initials = strInit objUser.sn = strLast objUser.displayName = strDisp objUser.userPrincipalName = strUPN objUser.description = strDesc objUser.mail = strMail objUser.SetInfo objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit Tag: E-mail script doesn't work more! Tag: 191010
  - 21
    - Multimonitor script I am writing a script to set up a workstation to run in kiosk. The script is to open internet explorer on a workstation that has 4 monitors connected to it. IE is to open on each monitor. So far I've been able to open IE, navigate to the webpage needed, and login to the site. But all this is happening on one monitor. Any ideas as to get IE to open on each monitor? Tag: E-mail script doesn't work more! Tag: 191009
  - 22
    - CDate problem I have a script which reads in a date field from an external source, which is in the following format: 2006-02-06 00:00:00.000 Now, I need to do a CDate() on this...the problem is, this causes a type mismatch because of the '.000' part of the date "string". A quick diagnostic has shown that it would work fine if the format was 2006-02-06 00:00:00 - sadly though it's not! How can I get cdate to accept the date in its current format? Tag: E-mail script doesn't work more! Tag: 190997
  - 23
    - VBS Script Required to Delete Registry Keys Hi, I'm relatively new to all this, so be gentle ;) I need to make a .vbs script to delete 9 keys in the registry. I know the exact keys but I don't want to make a mistake. They all fall under HKey_Local_Machine Can one of you clever folks give me a script so I just need to fill in the path, please? Thanks a million Tag: E-mail script doesn't work more! Tag: 190992
  - 24
    - [VBScript] Create new table in SQL server Greetings. I have created a database in SQL Server 2005 Express edition. Now I would like to create tables in this database using vbscript. Fields in all tables are the same. Does anyone know, how to do this? Peter -- mcmallar ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: E-mail script doesn't work more! Tag: 190990
  - 25
    - RDP permission Windows 2000 Hi, there, I am running windows 2000 servers with Terminal services enabled for remote administration mode. I want to create a new group and permit logon to the servers remotly by using terminal services without the need to be administrator. Is there any way to script the RDP permissions than using the TS GUI for RDP permissions? I already found an WMI class but that works only for W2K3 and later. Thanks for any advice. Tag: E-mail script doesn't work more! Tag: 190989

Hello all.
I had a script for long time that send a e-mail with an attachment. Here is:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "local_server@local.com"
objEmail.To = "target_email@local.com"
objEmail.Subject = "Notification of May"
objEmail.Textbody = "Hi all, here's the monthly notification. "
objEmail.AddAttachment "\\pc0012\share1\notif.xls"
objEmail.Send

It worked fine... but I instaled de SP4 for SQL server and since that
installation the script doesn't work.
I already tried to put my firewall Off and I tried also without attachments
but nothing.

Maybe could you help me please?
henpat.

Thanks

Top

Re: E-mail script doesn't work more! by Robespier

Robespier
Wed May 10 06:25:32 CDT 2006

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "smtp.server"

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
objEmail.Configuration.Fields.Update
objEmail.Send

Top