CDO.Message Object

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
    - Internet connections settings via VBS? Hi folks, I've got the following scenario: We run in our domain XP-SP2 and 2K workstations with Internet Explorer 6 and 7. I'm looking for a solution to set up two checkboxes within IE6 and IE7: "Automatically detect settings" and "Use automatic configuration script" on the "Local Area Network Settings" tab. What I got so far is: I built an ADM template file to set the property "Use automatic configuration script". It works fine. It's not a problem to solve this in VBS because the property is saved in the registry in HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings in the variable AutoConfigURL. The catch is to check the box "Automatically detect settings". For IE7 I found the solution in deleting the whole key HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections IE7 re-creates it after start and the desired box is checked. IE6 doesn't work in the same way. It also creates the key after deletion, but without the box checked. The status of the box "Automatically detect settings" seems to be stored in the REG_Binary values in the key above. Because I don't know how to interpret this type of value I tried another way using WMI. Yes, I was able to retrieve IEs settings with this little script and tried to save a changed value back using the put_ method. strComputer = "." '~ Set objWMIService = GetObject("winmgmts:\\" & strComputer _ '~ & "\root\cimv2\Applications\MicrosoftIE") '~ Set colIESettings = objWMIService.ExecQuery _ '~ ("Select * from MicrosoftIE_LANSettings") '~ For Each strIESetting in colIESettings '~ 'Wscript.Echo "Autoconfiguration proxy: " & strIESetting.AutoConfigProxy '~ 'Wscript.Echo "Autoconfiguration URL: " & strIESetting.AutoConfigURL '~ 'Wscript.Echo "Autoconfiguration Proxy detection mode: " & _ '~ strIESetting.AutoProxyDetectMode = 1 '~ 'Wscript.Echo "Proxy: " & strIESetting.Proxy '~ 'Wscript.Echo "Proxy override: " & strIESetting.ProxyOverride '~ 'Wscript.Echo "Proxy server: " & strIESetting.ProxyServer '~ strIESetting.Put_ '~ Next Unfortunately the provider doesn't support this method in this class. Do you have an idea to solve this problem? I'm not sure about using branding, because I need to keep the settings flexible to change. Thanks a lot. Andreas Woll Tag: CDO.Message Object Tag: 204402
  - 2
    - Changing Permissions - [WP] I am looking for vbscript which can change permissions on a windows registry key? Anybody help please, Thank you. Tag: CDO.Message Object Tag: 204398
  - 3
    - How to read a file Greetings! My question has to do with reading a file line by line and performing a function with the data. Example: Read a file with IP addresses and run some command against that IP address and a line by line basis. I am very new to VBscripting and hope that someone may have some example code that they are willing to share. Thank you very much for any input! Tag: CDO.Message Object Tag: 204395
  - 4
    - Does VB Script supports overloading function concept? The below program didn't work. Does VB Script supports overloading functions, if not is there a workaround to achieve the same. Call abc("1", "2") Call abc("1") Function abc(a, b) MsgBox a MsgBox b End Function Function abc(a) MsgBox a End Function -- Nami Tag: CDO.Message Object Tag: 204386
  - 5
    - Filter page reloads I use the HTTP_REFERER to check what page a user comes from. I only accept one specific URL as HTTP_REFERER. When the user enters my webpage he/she is given a customer ID. My problem is that if the user makes a page reload then they are given one more customer ID, because the HTTP_REFERER still has the same value! How can I overcome this easely (I am a complete newbie at VBScript) thanks /Marcus Tag: CDO.Message Object Tag: 204385
  - 6
    - Script to Email Me when A Service is stopped I have two services one called vmagic.exe and the other csmagic.exe that when stopped I want an email sent to me to notify me that it has been stopped. Is it possible to do this? These services reside on both Windows 2000 and Windows 2003 servers. I have no scripting background and am not familiar with the syntax or terminology. I have downloaded a couple of scripts in the past that have been preconfigured for certain task and substituted my specific environment info where required in the script but thats as good as it gets for me. If anyone knows if there are any scripts out there that can do this or if anyone can give me a copy of something they may have created with some very simple instructions for a NON SCRIPTOR such as myself that would be greatly appreciated. Thanks Tag: CDO.Message Object Tag: 204380
  - 7
    - Wont work on some systems I have a pretty basic script that looks for all PST files on a system. For some reason it will not work correctly on some machines. No errors, it just hangs. If I run it remotely by specifying the machine name in the script it works fine. The user of the machine is a local admin. Any ideas? Here is the script, I've indicated where it hangs: On Error Resume Next 'Collects PST file sizes for files on the C: drive. Writes data in a CSV file. 'Easy to collect in to a single file with a 'Copy *.CSV AllFiles.txt' command 'Then you can open it in Excel or Access. ' core code from www.droppedpackets.org. modified by Kurt Levitan. strComputer = "." strExtension = "pst" ' file extension - use lowercase Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") set WshShell = WScript.CreateObject("WScript.Shell") strComputer = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") strUser = WshShell.ExpandEnvironmentStrings("%USERNAME%") Set wn=WScript.CreateObject("WScript.Network") wn.MapNetworkDrive "K:","\\Orlandoo\pstdata",False strPath = "K:\" strFile = strPath & strComputer & ".csv" If objFSO.FileExists(strFile) = False Then If NOT objFSO.FolderExists(strPath) Then objFSO.CreateFolder(strPath) objFSO.CreateTextFile(strFile) Else objFSO.CreateTextFile(strFile) End If Else objFSO.DeleteFile(strFile) objFSO.CreateTextFile(strFile) End If Set filetxt = objFSO.OpenTextFile(strFile, 8, True) Set colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile where extension = '"&strExtension&"'") '******* Here is where it hangs ******* For Each objFile in colFiles if objfile.drive = "c:" then filetxt.WriteLine(strUser & "," & strComputer & "," & objFile.FileName & "," & objFile.FileSize & "," & objFile.Name) end if Next filetxt.Close wn.RemoveNetworkDrive "K:" Tag: CDO.Message Object Tag: 204379
  - 8
    - Services Stopped Script I have two services one called vmagic.exe and the other csmagic.exe that when stopped I want an email sent to me to notify me that it has been stopped. Is it possible to do this? These services reside on both Windows 2000 and Windows 2003 servers. I have no scripting background and am not familiar with the syntax or terminology. I have downloaded a couple of scripts in the past that have been preconfigured for certain task and substituted my specific environment info where required in the script but thats as good as it gets for me. If anyone knows if there are any scripts out there that can do this or if anyone can give me a copy of something they may have created with some very simple instructions for a NON SCRIPTOR such as myself that would be greatly appreciated. Thanks Tag: CDO.Message Object Tag: 204372
  - 9
    - Script Security Credential Chg for Task Scheduler, COM+, Svcs., et All, I am soliciting for opinions, tips, working scripts, etc. and appreciate any and all advice.....including understanding if scripting is NOT possible, (i.e. - cannot script and MUST manually change via standard GUI interfaces). I would like to script changes to security credentials on about 20 W2KSP4 servers in the following areas: 1. Services - (Log on As's identity/pswd) 2. Scheduled Tasks - (Run As's identity/pswd) 3. COM+ - (COM+ Application's identity/pswd) 4. DCOMCNFG - (Identity and Access Permissions) I would also like to understand where the ID/pswd info is stored in each of the above instances. (A SAM, registry,....?) I would prefer solutions not depending on .NET Framework. -- Thanks, Raul Needz2No Asst. to Zotar - Ruler of All That Squirm Tag: CDO.Message Object Tag: 204369
  - 10
    - Help with Script that monitors event logs Script is posted below. It does not return events posted to the Security log. Please help. strComputer = "." Set objWMIService = GetObject("winmgmts:{(Security)}\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("Select * from __InstanceCreationEvent Where " _ & "TargetInstance ISA 'Win32_NTLogEvent' ") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.User Wscript.Echo objLatestEvent.TargetInstance.TimeWritten Wscript.Echo objLatestEvent.TargetInstance.Message Wscript.Echo Loop Tag: CDO.Message Object Tag: 204366
  - 11
    - vbs enviroment variable like cmd hello, how is the vbs equivalent code for this instruction in cmd? echo %username% > %computername%.%username%.txt thank's Tag: CDO.Message Object Tag: 204365
  - 12
    - How to return an object? How to return an object? In below code "objRef" doesn't hold worksheet object. Is this limitation exists with vbs or there is bug in below written code pls, suggest. Dim objRef Set objRef = OpenExcel("C:\Excel.xls", "") Public Function OpenExcel(strFileName, strSheet) 'Enable Error handling On Error Resume Next Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel.Workbooks.Open (strFileName) 'See if a sheet was referenced in the call. If not, default to the first sheet If strSheet = "" Then strSheet = 1 End If 'Set up a reference to the sheet in the workbook Set objWorkSheet = objWorkBook.WorkSheets(strSheet) OpenExcel = objWorkSheet End Function -- Nami Tag: CDO.Message Object Tag: 204362
  - 13
    - environment variable Hello, I have this script: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objVariable = objWMIService.Get("Win32_Environment").SpawnInstance_ objVariable.Name = "TestValue" objVariable.UserName = "System" objVariable.VariableValue = "This is a test" objVariable.Put_ how can I set the objVariable.UserName value to the actual username?, (like %username% in cmd) thank's Tag: CDO.Message Object Tag: 204358
  - 14
    - WildCard - [WP] Like we can use wildcards for entering user names such s %username%. How can we do the same or enter a wildcard for SIDs? I hoep this makes sense. TIA. Tag: CDO.Message Object Tag: 204357
  - 15
    - Converting a batch file to vbscript Can someone help me convert this simple batch file to vbscipt? :BELSTART CD C:\progra~1\belarc\Advisor\System if exist v1.txt goto BELEND \\ezexch\util\belarc\client\belmonitor_ezcopy.exe /S if not errorlevel 1 echo v1 > v1.txt :BELEND Tag: CDO.Message Object Tag: 204356
  - 16
    - Newbie to AD scripting Hi All I am trying to make a scrip that will add a security group into another security group. Not really tough as I found a script on Microsoft's website that deals exactly with that : http://http://www.microsoft.com/technet/scriptcenter/scripts/ad/groups/adgpvb03.mspx My problem is that my groups contain slashes in their names (e.g. "LCL/DK - Commercial & Sales"), so whenever I try to execute the script : ----------------------------------------------------- Const ADS_PROPERTY_APPEND = 3 Set objGroup = GetObject ("LDAP://cn=LCL/DK - Commercial & Sales,ou=Groups,ou=Denmark,ou=LCL,dc=reefer,dc=local") objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=LCL/DK - Traffic & Backhaul,ou=Groups,ou=Denmark,ou=LCL,dc=reefer,dc=local") objGroup.SetInfo ----------------------------------------------------- I get an error : ----------------------------------------------------- Y:\script>cscript test.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. Y:\script\test.vbs(3, 1) (null): 0x80005000 Y:\script> ----------------------------------------------------- If I rename the groups in the AD from LCL/DK - Commercial & Sales ---> LCLDK - Commercial & Sales the script runs. The question is how I can make my script run while keeping the group namesas they are, e.g. "LCL/DK - Commercial & Sales" Thanks in advance Goran Tag: CDO.Message Object Tag: 204355
  - 17
    - Delete Virtual Directory if path does not exist We have an installer which is removing some Virtual Directories physical folder, however it leaves it as a Virtual Directory in IIS. I'm trying to write a VBScript that removes all Virtual Directories without a valid path. However it seems to be deleting every other virtual directory. i.e. If I have 2 VDs that do not have valid paths, it will delete 1, but leave 2. If I try to delete 3 VDs, 1 and 3 get deleted and 2 remains and so on. Can someone look at my code and see what I'm missing? I assume it has something to do this on error resume next,but I'm not sure how to fix it. Any help would be greatly appreciated. Thanks. function EnumVirtualDirectories(Level, MachineName, ObjectPath, DirStyle) Dim ChildObject, IISObkect, bDone on error resume next 'Err.Clear Set System = CreateObject("Scripting.FileSystemObject") bDone = FALSE IIsObjectPath = "IIS://" & MachineName If (ObjectPath = "") Then exit function else IIsObjectPath = IIsObjectPath & "/" & ObjectPath End If 'WScript.Echo "Checking : " & IISObjectPath Set IIsObject = GetObject(IIsObjectPath) If (Err.Number <> 0) Then if (Level = 1) then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" end if exit function End If Err.Clear Set objVirtualDir = nothing For Each ChildObject In IIsObject if (ChildObject.Class = DirStyle) then ChildObjectName = Right(ChildObject.AdsPath, Len(ChildObject.AdsPath) - 6) ChildObjectName = Right(ChildObjectName, Len(ChildObjectName) - InStr(ChildObjectName, "/") ) WScript.Echo "Path is " & ChildObject.Path & " name is " & ChildObjectName 'see if path exists and if not delete it as VD folderTest = System.GetFolder(ChildObject.Path) If Err.Description = "Path not found" Or folderTest = "" Then 'WScript.Echo Err.Description bDone = True WScript.Echo "***Virtual Directory does not exist: " & ChildObject.Name name = ChildObject.Name Set objVirtualDir = IIsObject.Delete("IISWebVirtualDir", name) 'WScript.Echo "got here1 " & ChildObject.Name & " ChildObjectName: " & ChildObjectName Err.Clear Else WScript.Echo "folder is " & folderTest If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If End If folderTest = "" If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If If bDone = FALSE Then 'WScript.Echo "got here " & ChildObject.Name & " ChildObjectName: " & ChildObjectName EnumVirtualDirectories Level+1, MachineName, ChildObjectName, DirStyle Else If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If bDone = False End If 'WScript.Echo ChildObjectName & vbcrlf & " " & ChildObject.Path end if next End Function Const GENERAL_FAILURE = 2 WebSiteID = FindTestSite() WScript.Echo "Web site is " & WebSiteID Servername = "LocalHost" 'WebSiteID = ArgObj(0) WebSite = "W3SVC/" & WebSiteID Level = 1 WScript.Echo "Virtual Directories for " & WebSite EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebVirtualDir" 'WScript.Echo "" 'WScript.Echo "Physical Directories for " & WebSite 'EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebDirectory" Function FindTestSite() on error resume next Dim siteID Dim bDone bDone = FALSE WebSiteID = "1" MachineName = "LocalHost" do while bDone <> TRUE IIsObjectPath1 = "IIS://" & MachineName ObjectPath1 = "W3SVC/" & WebSiteID IIsObjectPath1 = IIsObjectPath1 & "/" & ObjectPath1 & "/Root" 'WScript.Echo IIsObjectPath1 Set IIsObject1 = GetObject(IIsObjectPath1) If (Err.Number <> 0) Then 'WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" If WebSiteID <> 0 Then bDone = TRUE FindTestSite= 1 End If Else If InStr("TestSite",IIsObject1.Path) Then bDone = TRUE FindTestSite= WebSiteID Else WebSiteID = WebSiteID + 1 End If End If loop end function Tag: CDO.Message Object Tag: 204353
  - 18
    - Delete Virtual Directory if path does not exist We have an installer which is removing some Virtual Directories physical folder, however it leaves it as a Virtual Directory in IIS. I'm trying to write a VBScript that removes all Virtual Directories without a valid path. However it seems to be deleting every other virtual directory. i.e. If I have 2 VDs that do not have valid paths, it will delete 1, but leave 2. If I try to delete 3 VDs, 1 and 3 get deleted and 2 remains and so on. Can someone look at my code and see what I'm missing? I assume it has something to do this on error resume next,but I'm not sure how to fix it. Any help would be greatly appreciated. Thanks. function EnumVirtualDirectories(Level, MachineName, ObjectPath, DirStyle) Dim ChildObject, IISObkect, bDone on error resume next 'Err.Clear Set System = CreateObject("Scripting.FileSystemObject") bDone = FALSE IIsObjectPath = "IIS://" & MachineName If (ObjectPath = "") Then exit function else IIsObjectPath = IIsObjectPath & "/" & ObjectPath End If 'WScript.Echo "Checking : " & IISObjectPath Set IIsObject = GetObject(IIsObjectPath) If (Err.Number <> 0) Then if (Level = 1) then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" end if exit function End If Err.Clear Set objVirtualDir = nothing For Each ChildObject In IIsObject if (ChildObject.Class = DirStyle) then ChildObjectName = Right(ChildObject.AdsPath, Len(ChildObject.AdsPath) - 6) ChildObjectName = Right(ChildObjectName, Len(ChildObjectName) - InStr(ChildObjectName, "/") ) WScript.Echo "Path is " & ChildObject.Path & " name is " & ChildObjectName 'see if path exists and if not delete it as VD folderTest = System.GetFolder(ChildObject.Path) If Err.Description = "Path not found" Or folderTest = "" Then 'WScript.Echo Err.Description bDone = True WScript.Echo "***Virtual Directory does not exist: " & ChildObject.Name name = ChildObject.Name Set objVirtualDir = IIsObject.Delete("IISWebVirtualDir", name) 'WScript.Echo "got here1 " & ChildObject.Name & " ChildObjectName: " & ChildObjectName Err.Clear Else WScript.Echo "folder is " & folderTest If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If End If folderTest = "" If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If If bDone = FALSE Then 'WScript.Echo "got here " & ChildObject.Name & " ChildObjectName: " & ChildObjectName EnumVirtualDirectories Level+1, MachineName, ChildObjectName, DirStyle Else If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If bDone = False End If 'WScript.Echo ChildObjectName & vbcrlf & " " & ChildObject.Path end if next End Function Const GENERAL_FAILURE = 2 WebSiteID = FindTestSite() WScript.Echo "Web site is " & WebSiteID Servername = "LocalHost" 'WebSiteID = ArgObj(0) WebSite = "W3SVC/" & WebSiteID Level = 1 WScript.Echo "Virtual Directories for " & WebSite EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebVirtualDir" 'WScript.Echo "" 'WScript.Echo "Physical Directories for " & WebSite 'EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebDirectory" Function FindTestSite() on error resume next Dim siteID Dim bDone bDone = FALSE WebSiteID = "1" MachineName = "LocalHost" do while bDone <> TRUE IIsObjectPath1 = "IIS://" & MachineName ObjectPath1 = "W3SVC/" & WebSiteID IIsObjectPath1 = IIsObjectPath1 & "/" & ObjectPath1 & "/Root" 'WScript.Echo IIsObjectPath1 Set IIsObject1 = GetObject(IIsObjectPath1) If (Err.Number <> 0) Then 'WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" If WebSiteID <> 0 Then bDone = TRUE FindHomeValue = 1 End If Else If InStr("TestSite",IIsObject1.Path) Then bDone = TRUE FindHomeValue = WebSiteID Else WebSiteID = WebSiteID + 1 End If End If loop end function Tag: CDO.Message Object Tag: 204352
  - 19
    - Get IP Address and MAC Address via script Hi all, I realize this topic has been discussed before, but unfortunately I am unable to find the answer I'm looking for in previous threads. I am currently writing a domain migration script to join workstations to an Active Directory domain. As part of the script, I am gathering computer information and writing success/failure information to a database. Two of the columns in the database are for IP Address and MAC Address. The following script seems to give me most of what I'm looking for. Obviously, I'm not going to echo these values to the screen, rather store them and write them to the database. However, I've realized that while the script will ignore all adapters where the IP Address is 0.0.0.0, it does not account for multiple adapters with a valid IP Address. In other words, the last one in the loop with a valid IP will be stored in the variable. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each oAdapter in colAdapters For Each sIPAddress in oAdapter.IPAddress If sIPAddress <> "0.0.0.0" Then Wscript.Echo "IP Address:" & sIPAddress & vbcrlf & "MAC Address:" & oAdapter.MACAddress End If Next Next Has any one got an idea how to handle the case where there may be multiple adapters with an IP Address or a single adapter with multiple IP Addresses? Thanks in advance for your consideration. Regards, Sean Murphy Ensynch, Inc. Whatever IT Takes Tag: CDO.Message Object Tag: 204348
  - 20
    - Excel Copy, Past into another worksheet Hi, I need to copy a range of data from one worksheet to another. I am building a VBScript to do some reporting for my group. I have created the following Sub that I think should work, but it does not; Sub CopyData ' CopyData Macro Book1.Activate objWorksheet.Range("B:D").Select objWorksheet.Range("B:D").Copy Book2.Activate objWorksheet.Range("A377").Select '<------this is line 132 objWorksheet.paste End Sub Here is the error I get, ActiveTT.vbs(132, 5) Microsoft Office Excel: Select method of Range class failed Tag: CDO.Message Object Tag: 204346
  - 21
    - Creating vbscript to delete cookies and temporary internet files Is there a vbscript to delete cookies and temporary internet files daily for an office size of 250 on each computer? Any help would greatly be appreciated. Tag: CDO.Message Object Tag: 204340
  - 22
    - vb script to call values from a text file and start service Hello all.... i need some ideas/suggestions/help to write a script that will call computer names from a text file and then start the symantec antivirus service on each. below is the code i have so far....right now it is yelling that i have a "loop" defined with no "do" ' ReStartService.vbs ' Sample script to Stop or Start a Service ' -------------------------------------------------------' Option Explicit Dim objWMIService, objItem, objService Dim colListOfServices, strComputer, strService, intSleep, strfilename strFileName = "test.txt" intSleep = 15000 WScript.Echo " Click OK, then wait " & intSleep & " milliseconds" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFilename) Then Set objFile = objFSO.OpenTextFile(strFilename, FOR_READING) Else WScript.Echo "Input file " & strFilename & " not found." WScript.Quit End If Do Until objFile.AtEndOfStream strHost = objFile.ReadLine arrHost = Split(strHost,",") 'Get name of computer. strComputer = arrHost(0) 'On Error Resume Next ' NB strService is case sensitive. strService = " 'Symantec Antivirus' " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colListOfServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where Name ="_ & strService & " ") For Each objService in colListOfServices objService.StartService() loop WScript.Echo "Your "& strService & " service has Started" objfile.close Thanks in advance, Tiv Tag: CDO.Message Object Tag: 204334
  - 23
    - VBS script to start a process Starting a process Hi can anyone tell me the code to start a process in VBS to call it from the command line or .bat file i use "athanor-rt -f "c: \myfile.xml" I have the following Option Explicit Dim objWMIService, objProcess, objCalc Dim strShell, objProgram, strComputer, strExe strComputer = "." strExe = "athanor-rt -f D:\DQ_GRADE\XML_EXCEPTION_FILES \E_R3_ROI_OVERDRAFTS_MAIN.xml" ' Connect to WMI Set objWMIService = GetObject("winmgmts://" _ & strComputer & "/root/cimv2") ' Obtain the Win32_Process class of object. Set objProcess = objWMIService.Get("Win32_Process") Set objProgram = objProcess.Methods_( _ "Create").InParameters.SpawnInstance_ objProgram.CommandLine = strExe 'Execute the program now at the command line. Set strShell = objWMIService.ExecMethod( _ "Win32_Process", "Create", objProgram) WSCript.echo "Created: " & strExe & " on " & strComputer WSCript.Quit Tag: CDO.Message Object Tag: 204333
  - 24
    - Outlook, new appointment on pop3 account Hi, I got my code to work on exchange accounts. Is it possible to write some code that add's appointments in the account on pop3 accounts in Outlook? Best regards Mads Tag: CDO.Message Object Tag: 204328
  - 25
    - AD is it possible to create a script to do the following: when a new user along with a mailbox is created in active directory the script dump the username - E-Mail Address and the OU where the user is created to a file? Please help. Tag: CDO.Message Object Tag: 204324
- Next
  - 1
    - IsArray 2 dimentional array I have a generic function which does some processing on a array. I pass the array to it. The array can be 2 dimensional or single dimension...How to identify if its 2 Dimensional.... IsArray determines me if its array ...How to identify if its 2 Dimensional or single dimension.... Tag: CDO.Message Object Tag: 204317
  - 2
    - [ot] thought for today <quote> A man is flying in a hot air balloon and realizes he is lost. He reduces height and spots a man down below. He lowers the balloon further and shouts: "Excuse me, can you tell me where I am?" The man below says: "Yes you're in a hot air balloon, hovering 30 feet above this field." "You must be a software developer," says the balloonist. "I am," replies the man. "How did you know?" "Well," says the balloonist, "everything you have told me is technically correct, but it's of no use to anyone." The man below replies, "You must work in business as a manager." "I do," replies the balloonist, "but how did you know?" "Well," says the man, "you don't know where you are or where you are going, but you expect me to be able to help. You're in the same position you were before we met but now it's my fault." </quote> Blatantly stolen from "Coding Horror" by Jeff Atwood. http://www.codinghorror.com/blog/archives/000230.html Fortunately, Jeff has never gotten around to looking at any of my code, or I would most likely find myself featured on his site. (Especially the "three ugly hack" code). cheers, jw Tag: CDO.Message Object Tag: 204315
  - 3
    - Removing user account accross multiple domains I am a new administrator with a company that does managed hosting. We do all the maintinance of the customer domains (about 30 different domains) and I have to disable the old administrator accross all the domains. The thing is, his user account isnt' in the same ou structure accross the domains, it's just kindof sporadically thown out there. I'm also new to the scripting part of this, and all the script help I can find requires me to enter in the FQDN. I just want a script that I can push to the domain controllers, that will query the domain name, then find the username and disable it. Can this even be done or am I doomed to go through 30+ domain controllers manually to disable this account? This guy left in a hurry, and was what you may call "disgruntled" so if someone could help me out on this in a hurry, I would greatly appriciate the help. Thanks Tag: CDO.Message Object Tag: 204313
  - 4
    - Now these guys have got the right idea!! (plug) Okay, This is a blatant plug and I haven't tried this out myself, yet. But you gotta admit they've got the right idea! DotNet Scripting Host http://www.it-visions.de/default2.aspx?start=http://www.it-visions.de/scripting/dotnetscripting/dsh.en.asp author: Holger Schwichtenberg Tag: CDO.Message Object Tag: 204312
  - 5
    - Problem in DatePart "ww" - unexpected Week Numbers See <URL:http://www.merlyn.demon.co.uk/vb-date2.htm#WN>, which will show results for your system. It seems that W = DatePart("ww", CDate("Dec 29 2003"), vbMonday, vbFirstFourDays) should set W to the ISO 8601 Week Number for that date. It was a Monday, so the Thursday of its week was Jan 01 2004, so the true Week Number is 01. But W is set to 53. That type of error occurs for 3 days per 28 years, regularly except across missing leap years. Additionally, 2101-01-02 Sunday, which is in Week 2100-52, gives 53, and that repeats every 400 years. Both types of discrepancy are confirmed to occur in WinXP sp2 IE6, in recent update to IE7, and in whatever Vista used; and I see them also in command-line WSH. WSH is, it seems, often used for administrative systems; I predict trouble when the next error date, 2007-12-31, comes round. There should be some way to persuade Microsoft to provide full and correct support for ISO 8601; but I've been trying to draw this discrepancy to their attention for some while now. <URL:http://www.merlyn.demon.co.uk/vb-date2.htm> contains (use View Source) a well-tested algorithm, in function YearWeekDay(Y, M, D), for producing ISO 8601 yyyy-Www-d form, for dates from 1900 to about end 9999. Is there not some new scripting form in Vista? Whatever it has for ISO 8601 should be carefully tested. -- (c) John Stockton, Surrey, UK. ?@merlyn.demon.co.uk Turnpike v6.05 IE 6. Web <URL:http://www.merlyn.demon.co.uk/> - w. FAQish topics, links, acronyms PAS EXE etc : <URL:http://www.merlyn.demon.co.uk/programs/> - see 00index.htm Dates - miscdate.htm moredate.htm js-dates.htm pas-time.htm critdate.htm etc. Tag: CDO.Message Object Tag: 204309
  - 6
    - need to pull specific line out of Variable I have a script that creates a Variable "output" that contains the following Username: XXXXXX Password: WELCOME TO THE TEST ENVIRONMENT ROUTER xxxxxx-TEST-BRANCH#ping 1.1.1.1 Type escape sequence to abort. Sending 5, 100-byte ICMP Echos to 1.1.1.1, timeout is 2 seconds: ..... Success rate is 0 percent (0/5) xxxxxx-TEST-BRANCH#ping 1.1.1.1 Type escape sequence to abort. Sending 5, 100-byte ICMP Echos to 1.1.1.1, timeout is 2 seconds: ...!! Success rate is 40 percent (2/5) xxxxxx-TEST-BRANCH# the above info is stored in memory in the variable OUTPUT. I need to be able to look for the 2 "success rate" lines and place them in 2 seperate variables. Success1 and Success2 help. Tag: CDO.Message Object Tag: 204302
  - 7
    - Creating a Dialup connection Hi, I'm trying to automate the creation of two dial up connections using WSH. The only way I've found so far to do it is to automate the rasphone.exe program using sendkeys. This is fine, but it's very untidy, so is there an API I can use to create these DUN connections instead? I cannot use any third-party OCX files as this is to be run on a secured environment, and the hassle of getting any third-party OCX files through our governance procedure would be too much! Thanks Gavin Chapman Tag: CDO.Message Object Tag: 204296
  - 8
    - Script only returning first value of multi-valued attribute??? Hi all, I'm trying to query AD and then write the results to Excel. I have this working fine but I have noticed that when it comes to multi-valued attributes, only the first value is being written in Excel. Below is a cut-down version of how I am doing this. Can anyone shed some light on why this is failing? If I run a query using CSVDE it shows all the values properly in Excel for the multi-valued attributes (separated by semicolons). In this case the multi-valued attributes I am wanting to dump all the values for are publicDelegates and publicDelegatesBL, but I get the same results for any other multi-valued attribute I try...memberOf, proxyAddresses, etc. I'm just not sure what to try next. -Ben ' ' 'Open the specified existing workbook and add worksheets ' Const ADS_SCOPE_SUBTREE = 2 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\MigrationWorkingDocuments.xls") ' 'Select the specified worksheet as the target, define the column header names, query AD, and dump the values. 'Repeat for each worksheet. ' ' Set objWorksheet = objWorkbook.Worksheets("AADelegates") objWorksheet.Activate objWorksheet.Cells(1, 1).Value = "displayName" objWorksheet.Cells(1, 2).Value = "publicDelegates" objWorksheet.Cells(1, 3).Value = "publicDelegatesBL" Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.Properties("Cache Results") = False objCommand.CommandText = _ "<LDAP://dc=mydomain,dc=com>;" & _ "(&(objectClass=User)(ObjectCategory=person)(mail=*)(!userAccountControl:1.2.840.113556.1.4.803:=2)" & _ "(|(publicDelegates=*)(publicDelegatesBL=*)));" & _ "displayName,publicDelegates,publicDelegatesBL;Subtree" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst x = 2 Do Until objRecordSet.EOF objWorksheet.Cells(x, 1).Value = _ objRecordSet.Fields("displayName").Value objWorksheet.Cells(x, 2).Value = _ objRecordSet.Fields("publicDelegates").Value objWorksheet.Cells(x, 3).Value = _ objRecordSet.Fields("publicDelegatesBL").Value x = x + 1 objRecordSet.MoveNext Loop -- Posted via a free Usenet account from http://www.teranews.com Tag: CDO.Message Object Tag: 204292
  - 9
    - Semaphore in DOS shell script? Running Windows Build, sometime multiple .CMD scripts get launched. Some of these update a shared text database. We'd like to wrap a LOCK/UNLOCK command around such scripts. Is there an easy-to-access from the DOS shell semaphore? If not, what alternatives do people suggest? -- IDB Tag: CDO.Message Object Tag: 204291
  - 10
    - Script conversion JS to VBS Does anyone know of a utiity or online tool that will convert Javascript to VBS? I have one that goes the other way I would also like info on any script converters (.* to .*) TIA Tag: CDO.Message Object Tag: 204290
  - 11
    - (OT) Help with SVN/Subversion Sorry about the off topic post, but I am not getting any response from my other resources. Has anybody installed SVN via SVN1-Click installer? I am attempting to set up SVN for my scripting and VB.NET. Any help would be greatly appreciated. I wouldn't mind installing Apache etc. if it would help me manage SVN. I need help doing imports, I can't seem to get what the path is. Tag: CDO.Message Object Tag: 204284
  - 12
    - Script to display the user credentials it is operating at? Hi My problem relates to a stand-alone WXP-SP2 system. Often I see replies to posts with statements like "verify the problem is not due to lack of privileges". So the questions become 1) what privileges does my script need for the operation and 2) what privileges does my script actually have at this point in the script? Sometimes the script will answer question 1 with something like this: => To fix this issue: ENSURE you have all access rights to the WMI repository folder. ENSURE you run WMIDiag.vbs as an Administrator. It seems to me that a script should be able to ask the OS Question 2 and display the result in a message box. Is it possible for a script to display its priviledges? Can it be done without WMI (my WMI is non-functional right now) Can someone point me in the right direction? Thanks, -Paul Randall Tag: CDO.Message Object Tag: 204283
  - 13
    - Q Re Telnet automation Hi folks, Just wondering if it is possible to launch a telnet session, login, run one command, then log out in vbscript? I would prefer to do this in vba but i've virtually given up scoruing the net for an answer. Options I do not have available to me: * Installing anything to the machine (work environment security policy) * Implementing some complex code as my level of knowledge is only moderate. I have a vba program in excel that ftps some files then i need to do a telnet to execute on a unix server before going back to ftp the output. I do not like sendkeys at all as it requires you to not touch the computer and is fallable. Therefore i would appreciate if anybody can tell me a way to do a telnet session through script and interact this script with the vba I have done. Thank you in advance if help is possible. Cheers, Clint Tag: CDO.Message Object Tag: 204273
  - 14
    - Deleting Desktop Shortcuts Hi. I am trying to delete 3 desktop shortcuts. All of them being a shortcut on the desktop. These files are called "Fix Network Drives", "Windows Live Messenger" and "Windows Media Player". I have found where there located on the computer all of them being in a different location. One of the locations is in - C:\Documents and Settings\Username\Desktop - C:\Documents and Settings\All Users\Desktop What ever file I try and delete it always comes up with an error that says 'File Not Found' I don't know what the problem could be. This is the code that I am using: Dim FSO, File set FSO=CreateObject("Scripting.FileSystemObject") File= "C:\Documents and Settings\Christopher\Symantec Chat ID.txt" FSO.DeleteFile(File) wscript.echo Folder,"now deleted" wscript.echo I don't know what could be the problem. I would be greatful for any help in this matter. Thanks Tag: CDO.Message Object Tag: 204266
  - 15
    - How to reinstall WMI on WXP-SP2 Hi, I'm trying to run some VBScripts that access WMI, including WMI Scriptomatic. They all fail at statements like: Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate}!\\.\root\cimv2") with error:Invalid Syntax and code: 800401E4. I think my WMI system has been trashed because my Windows\System32\WBEM folder contains just a few files and subfolders, while my laptop on which WMI Scriptomatic runs fine, has many more files and subfolders there. I've posted to Microsoft's WMI newsgroup, but got no responses. Is there a way to just reinstall WMI? -Paul Randall Tag: CDO.Message Object Tag: 204261
  - 16
    - VBScript to verify is user is local admin Hi all, I wrote a script to verify if a user is a local admin or not, however right now it only works if the username is a local admin. If the username is part of a group that's a local admin it does not work. Here's my script: Dim strUser Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName strUser = "testuser" Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators") For Each objUser in objGroup.Members Wscript.Echo objUser.Name If objUser.Name = strUser Then Msgbox strUser & " is a local administrator." End If Next I also don't like the fact that it only checks the username and not the domain as well. If someone know how to do that I'd appreciate it as well. So if testuser was a member of the Administrators group it would work. However if testuser was a member of a group called testGroup and testGroup was an Administrator on this machine it would not work. Does anyone know a better way to verify if a useraccount is a local admin on a machine? Thanks. Tag: CDO.Message Object Tag: 204260
  - 17
    - VB Script in Visual Basic 6 I have Visual Basic 6 installed on my computer from when I took a class in school. Can I use it to write scripts, or is it overkill. Tag: CDO.Message Object Tag: 204258
  - 18
    - Turning SNMP service on in Remote XP machines... Hi, I am currently deploying a Gentoo Linux SNMP server running Cacti in my network and would like my XP machines to report traps to this box. The SNMP service is not running by default on the machines in the network and instead of going to each one at a time to start and configure SNMP, I thought I could write a script (or add a section to my login script). Does anyone have any suggestions about how I go about accomplishing this? Thanks so much for any suggestions. Tag: CDO.Message Object Tag: 204250
  - 19
    - log print jobs Hello, I have this script from the repository, strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPrintJobs = objWMIService.ExecQuery _ ("Select * from Win32_PrintJob") Wscript.Echo "Print Queue, Job ID, Owner, Total Pages" For Each objPrintJob in colPrintJobs strPrinter = Split(objPrintJob.Name,",",-1,1) Wscript.Echo strPrinter(0) & ", " & _ objPrintJob.JobID & ", " & objPrintJob.Owner & ", " _ & objPrintJob.TotalPages Next it reads the queue well if I run it when I can see the print jobs in the interface. can you tell me how to make this run as a backend to the printer spool so I can modify this script and have it log jobs to my database. thank's Tag: CDO.Message Object Tag: 204249
  - 20
    - Underscore on folder name causing problem When I execute the following code nothing happens, even though I have verified that there are subfolders under the "_Department Q Drives" folder. The other two sPath work ok, showing me the subfolders. If I change the "_Department Q Drives" to say "_Department XX Drives" I get folder not found which is correct. I am not allowed to change the folder name. Is there a work around to this problem so that I can display subfolders? Dim sPath Set FSO = CreateObject("Scripting.FileSystemObject") sPath = "\\netapp\MAIN$\_Department Q Drives" ' no error but nothing is displayed 'sPath = "\\netapp\MAIN$\__Temp" ' [2 underscores] works OK 'sPath = "\\netapp\MAIN$\Activity Log" ' works ok ShowSubfolders FSO.GetFolder(sPath) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders Wscript.Echo Subfolder.Path ShowSubFolders Subfolder Next End Sub Tag: CDO.Message Object Tag: 204241
  - 21
    - WshRemote "Permission Denied" errors on XP Pro sp2 I'm trying to run a basic script remotely on a computer with XP Pro sp2 and I keep getting "Permission denied" errors when doing so. I've set the remote reg key to 1, I've run wscript -regserver and I've set the ForceGuest option to Classic. I have also completely disabled ( unbound from network adapter and shut off the service ) the windows firewall and no other software firewalls exist on that system. What else am I missing? Here are the scripts I'm running. If I remove the remote machine name or specify my own computer, it runs fine. It errors out on the Controller.CreateScript line with "Permission Denied". RemoteRun.vbs Set shell = createobject("wscript.shell") shell.currentdirectory = wscript.scriptfullname & "\.." Dim Controller, RemoteScript Set Controller = WScript.CreateObject("WshController") Set RemoteScript = Controller.CreateScript("E:\batch\remotetest.vbs","\\COMP1") WScript.ConnectObject RemoteScript, "remote_" RemoteScript.Execute Do While RemoteScript.Status <> 2 WScript.Sleep 100 Loop WScript.DisconnectObject RemoteScript Sub remote_Error Dim theError Set theError = RemoteScript.Error WScript.Echo "Error " & theError.Number _ & " (hex " & Hex(theError.Number) _ & ") Line: " & theError.Line _ & ", Char: " & theError.Character & vbCrLf _ & "Description: " & theError.Description msgbox "remote error" WScript.Quit 99 End Sub Remotetest.vbs Dim oShell Set oShell = WScript.CreateObject ("WScript.shell") oShell.run "cmd /K CD C:\ & Dir" Set oShell = Nothing TIA Matt Tag: CDO.Message Object Tag: 204240
  - 22
    - AD user modifications Can someone point me to a sample script that will help me do the following, 1) i want to write a script that queries AD based on a input text file that contains its EmployeeID 2) get the DN for the manager based on the input file. 3)get it's DN so that i can modify its manager name and title, also getting this info from the text file I tried to do it in a batch file with no luck so now i am trying to figure it out with vbscript. any help is appreciated. text file will have this format, employeeid#, manageremployeeid#, title thanks, Tag: CDO.Message Object Tag: 204238
  - 23
    - Recognize wireless network adapter Hello all, I am trying to find a way to recognize if a network adapter is a wireless network adapter in a vbscript. I haven't really found a way other then reading the description or name from each network adapter present on the computer, and hope that the word 'wireless' is present in the string. I suppose that there is a WMI class that can be used to extract this information, but I haven't found the right class. Does anybody have a suggestion? Many thanks in advance. Regrads, Richard Tag: CDO.Message Object Tag: 204231
  - 24
    - internet explorer object leak hi all i've posted already some time ago about this subject. in the meantime i've gathered some further information to isolate the problem a little more. i still encounter the problem, when creating an object of the internet explorer with vbscript and createobject() and then calling the navigate(2) method in an endless loop resources are allocated (namely memory and handles) and never released again even when destroying the object explicitly. BUT ... wfterwards when running the same script without calling the navigate function, the allocated handles/memory get released again. i observe this with the according setting in the task manager. is anyone of you aware of a bug or a feature with a such behaviour? and removing t here's the code sequence : On Error Resume Next do while 1>0 Set oIE = WScript.CreateObject("InternetExplorer.Application") oIE.navigate "http://www.google.com/" do while oIE.Busy WScript.Echo "." WScript.Sleep 100 loop oIE.quit Wscript.ObjectClose(oIE) Set oIE = Nothing loop thank you for your hints regards ruben Tag: CDO.Message Object Tag: 204230
  - 25
    - Looking for a remote VBS editor I use VbsEdit at home. Pretty basic editor, but it does color highlighting and on-the-fly captilization of keywords. A little buggy (doesn't recognize all keywords) but servicable. I'm now looking for a VBS editor that does highlighting and capitilzation, and can also work with FTP. I'd like to use more VBS scripts for Windows server management (the servers are in colocation, not on the LAN), but my only options right now are to use my current programming editor that doesn't recognize VBS, or else use VbsEdit running remotely on the server itself in a terminal services session. Thanks. Tag: CDO.Message Object Tag: 204220

Does anyone know a way to get the result from the .SEND method of a
CDO.Message object? i.e.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set objEmail = CreateObject("CDO.Message")
' assume email is configured appropriately
objEmail.Send
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

When I run
result = objEmail.Send
result is blank or = "" when it is successful.

I am trying to determine that the MSX server did accept my SMTP traffic.

Thanks,
Bart

Top

Re: CDO.Message Object by Michael

Michael
Wed Mar 28 21:19:00 CDT 2007

Bart Perrier wrote:
> Does anyone know a way to get the result from the .SEND method of a
> CDO.Message object? i.e.
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Set objEmail = CreateObject("CDO.Message")
> ' assume email is configured appropriately
> objEmail.Send
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> When I run
> result = objEmail.Send
> result is blank or = "" when it is successful.
>
> I am trying to determine that the MSX server did accept my SMTP
> traffic.
> Thanks,
> Bart

AFAIK, the Send method reports failure only by throwing (trappable) runtime
COM errors...

--
Michael Harris
Microsoft.MVP.Scripting

Top

Re: CDO.Message Object by Bart

Bart
Fri Mar 30 09:33:26 CDT 2007

"Michael Harris (MVP)" <mikhar.at.mvps.dot.org> wrote in message
news:%23oQHsiacHHA.2068@TK2MSFTNGP06.phx.gbl...
> Bart Perrier wrote:
>> Does anyone know a way to get the result from the .SEND method of a
>> CDO.Message object? i.e.
>>
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> Set objEmail = CreateObject("CDO.Message")
>> ' assume email is configured appropriately
>> objEmail.Send
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>
>> When I run
>> result = objEmail.Send
>> result is blank or = "" when it is successful.
>>
>> I am trying to determine that the MSX server did accept my SMTP
>> traffic.
>> Thanks,
>> Bart
>
>
> AFAIK, the Send method reports failure only by throwing (trappable)
> runtime COM errors...
>
>
> --
> Michael Harris
> Microsoft.MVP.Scripting
>
>

Thanks for the reply, Michael.

I did give the script a bogus DNS name and generated a specific COM error.
Only certian machines are allowed to send mail through the server so I can
send mail from a machine that is not allowed to send through this SMTP
server to generate the error.

Again, thanks for the reply.

Bart.

Top