CDO script causes Exchange Server to hang

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
    - Disable USD Hi All, Somebody have step-by-step procure what need do to disable USB drive and ensure that system will not change the key registry when putted new USB pen drive? Thanks Tag: CDO script causes Exchange Server to hang Tag: 218886
  - 2
    - waiting for function/process to finish... Hi all, I am looking for a simple way to wait for a process/function to finish. I have tried a few combinations of code, however i keep getting various errors and i am getting frustrated, hence the request for help. what i am doing is running a file copy registration function for dll in vbscript that i need to wait for it to complete before i do the next function/sub. --- Example -- Sub Window_OnLoad copyDLL("test.dll") nextFunction() etc End Sub Function copyDLL(oFile) the function stuff End Function --- End Example --- I would like to put some script in place that will wait until the copyDLL function has completed before doing nextFunction() etc... I appreciate your help in advance. Cheers, Darren Tag: CDO script causes Exchange Server to hang Tag: 218880
  - 3
    - update text file I need to update a text file. My current attempt is to create a recordset from the text file, which I am thinking I would have to disconnect to make it updatable. Here is my code sample: sql_Regents = "SELECT * FROM [" & str_PlanName & ".csv]" 'Connect to the text file, and create our base RecordSet Set rs_regents = CreateObject("ADOR.RecordSet") rs_regents.Open sql_Regents, strCon', adOpenForwardOnly, adLockBatchOptimistic 'disconnect the recordset to update it Set rs_Regents.ActiveConnection = Nothing str_PlanName & ".csv" is an existing file. I get the following error at the "Set rs_Regents.ActiveConnection = Nothing" line: Operation is not allowed when the object is open Any help or alternatives would be appreciated. Tag: CDO script causes Exchange Server to hang Tag: 218877
  - 4
    - update text file I need to update a text file. My current attempt is to create a recordset from the text file, which I am thinking I would have to disconnect to make it updatable. Here is my code sample: sql_Regents = "SELECT * FROM [" & str_PlanName & ".csv]" 'Connect to the text file, and create our base RecordSet Set rs_regents = CreateObject("ADOR.RecordSet") rs_regents.Open sql_Regents, strCon', adOpenForwardOnly, adLockBatchOptimistic 'disconnect the recordset to update it Set rs_Regents.ActiveConnection = Nothing str_PlanName & ".csv" is an existing file. I get the following error at the "Set rs_Regents.ActiveConnection = Nothing" line: Tag: CDO script causes Exchange Server to hang Tag: 218876
  - 5
    - Renaming files Hi: I've written a macro in vba that works well where it will go to a directory, find a file and rename it. The problem is, I can't get it to work in vbs. The catch is that I won't know the exact file name to find. So, for example, the file will begin with "Int_Data" but then the program that creates the file will attach a set of numbers to the end of the file extension like "Int_Data_123456". The numbers are something that I cannot predict. Below is the code I've written and does not work. I think I'll need to use InStr to find the file, but I'm not sure how to use it to find a file beginning with "Int_Data" and rename it. Any suggestions? Thanks. Function Interval_Datafile_Name_Change() Dim fso Dim SourceFile Dim DestFile Set fso = CreateObject("Scripting.FileSystemObject") SourceFile = "C:\Documents and Settings\****\My Documents\Reporting\Data\Int_Data_" & "" DestFile = "C:\Documents and Settings\****\My Documents\Reporting\Data\Int_Data.xls" If fso.FileExists(SourceFile) Then fso.MoveFile SourceFile, DestFile End If Set fso = Nothing End Function Tag: CDO script causes Exchange Server to hang Tag: 218872
  - 6
    - How to mail enable an Distributiongroup Hello, I am trying to create a distribution group and to mail enable it. I think the code is right, but I always get the runtimeerror: "Object doesn`t support this property or method objGroup.MailEnable" The error occurs on clients without ESM installed and on the Exchange Server himself! Code: Const ADS_GROUP_TYPE_GLOBAL_GROUP = 2 strGroupName = "GruppeDL" strGroupDisplay = "DE-GruppeDL" strGroupDescription = "Beschreibung BLABLA" strGroupHideFromGAL = "TRUE" Set objOU = GetObject ("LDAP://OU=org,dc=adstest,dc=local") Set objGroup = objOU.Create("Group", "cn=" & strGroupName) objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP objGroup.Put "sAMAccountName", strGroupName objGroup.SetInfo objGroup.put "displayName", strGroupDisplay objGroup.Put "proxyaddresses","SMTP:Schit@td.de" objGroup.Put "description", strGroupDescription objGroup.Put "MSExchHideFromAddressLists", strGroupHideFromGAL objGroup.SetInfo objGroup.MailEnable objGroup.SetInfo Does anyone have an idea why objGroup.MailEnable isn`t working? -- GruÃ? Udo Tag: CDO script causes Exchange Server to hang Tag: 218868
  - 7
    - Doesn't work Can anyone tell me why the script will not work? 'Enable or Disable Pop Up Descriptions On Error Resume Next Message = "This script will Enable or Disable Pop Up Descriptions." & vbCr Message = Message & "Don't forget to Refresh the Desktop for this to take effect." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Name Here") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") errnum = Err.Number WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If errnum = Err.Number = 0 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 1, "REG_DWORD" MsgBox "Pop Up Descriptions are now ENABLED" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths scrip was download from name here.", 64, "Done!" End If If errnum = Err.Number = 1 then WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If errnum = Err.Number = 1 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 0, "REG_DWORD" MsgBox "Pop Up Descriptions are now DISABLE" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths scrip was download from name here.", 16, "Done!" End If End If End If Tag: CDO script causes Exchange Server to hang Tag: 218860
  - 8
    - How to do something in an VBS script for all worksheets of an Excel file? I would like to do something in a *.vbs script and all the operations should be applied on each worksheet within an Excel file. How do I do this? It must be something like: for i in (1 .. lastworksheetnumber) do ...operations end Claudia Tag: CDO script causes Exchange Server to hang Tag: 218856
  - 9
    - vbscript error 70 - permission denied I am new to VBScripting but have done some development in VBA. I have a procedure that I have written to run on Windows-XP systems connected to Windows-2000 server. Whole point of script is to do some intelligent file copying with msgboxes to user to confirm intentions, file sizes, dates, times, etc. All works well EXCEPT for the actual file copy. Even though I can access mapped shares on server and other users local hard disk published shares from command prompt and list contents and copy files at wiil, the copyfile operation in the script invariably fails with error 70. What is the point of having a copyfile operation, which I have used with great success in vba, that basically is unable to copy files in code. Any suggestions from anyone would be greatly appreciated, as I am greatly frustrated. -- W. Daryll Combs Jennica Data Systems Inc. Cincinnati OH Tag: CDO script causes Exchange Server to hang Tag: 218850
  - 10
    - VBS reading all groups from OU and there members Hello, Iam a vbs beginner and I want to write all distribution groups and there members from one ou in a textfile. I want to write each group and there associated members in one row, separated with semikolon. The next group with there members in an second row, and so on. But in my script, the groups and each member are written one above the other. Reason: I don`t know how to write from an array to a textfile in one row! the codefile: ... set oDomain = GetObject ("LDAP://" & strDomain) oDomain.Filter = Array("Group") FOR EACH strGroup in oDomain File.Writeline strGroup.SamAccountName arrMemberof = strGroup.GetEx("member") FOR EACH strMember in arrMemberof File.WriteLine strMember Next Next .... Thanks! -- GruÃ? Udo Tag: CDO script causes Exchange Server to hang Tag: 218846
  - 11
    - 800A0007 Out of memory retrieving AD object Hi, I have some users in AD that are in 150+ Domain groups. I also have a login script that uses: -- dim usr,ad, arrMemberOf set ad = createObject ("ADSystemInfo") set usr = getObject ("LDAP://" & ad.username) set arrMemberOf = usr.Groups ... --- On the getObject line, the user is getting "Error: Out of memory, Code: 800A0007" and then the script terminates. It looks to me like the client VBS engine is running out of memory retrieving the large AD user object for parsing. Is there a way to fix this? I do not have the option of removing the users from the many groups.. Or any other guesses/ideas? Thanks a million!! Tag: CDO script causes Exchange Server to hang Tag: 218845
  - 12
    - DirectX Version Is there a way to find out the version of DirectX on a system from VBScript? Currently, we determine the version of DirectX via a VBScript by looking at the registry entry of HKLM\Software\Microsoft\DirectX\Version This worked OK with Windows XP and Windows Server 2003, however for Windows Vista and for Server 2008, this registry key indicates DirectX 9 instead of 10. The reason given for that is that DirectX 9 exists in Vista and Server 2008 for backward compatibility purposes. Using dxdiag we can see that the DirectX version is indeed 10, but we cannot use dxdiag within a script (easily) without writing the version to a file with dxdiag and then reading it in, which is a little unreliable and "clunky". Do you know of a way of determining, either by registry or other means, what the version of DirectX is. We use this script for patching machines and servers and need to determine the correct patch for those that are DirectX level dependent. Currently our script is no longer working in a mixed XP/Vista/Server2003/Server2008 environment. Thanks for your help. Cheers, Les Tag: CDO script causes Exchange Server to hang Tag: 218843
  - 13
    - File search i wrote this vbscript to search office files in the PC hard drive. but it returns more than 37xxx files result. it only has 2 office files anything i missed? file attributes? i find the 1st variable (QWord) sum up itself many times. thanks for your help. tony ********************************************* For Each Subfolder in Folder.SubFolders if Subfolder.name <> "Windows" and Subfolder.name <> "Program Files" and Subfolder.name <> "Default User" and Subfolder.name <> "RECYCLER" and Subfolder.name <> "All Users" and Subfolder.name <> "Media Player" then Set objFolder = objFSO.GetFolder(Subfolder.Path) Set colFiles = objFolder.Files For Each objFile in colFiles If right(objfile.name,3) = "doc" or right(objfile.name,4) = "docx" Then QWord = QWord + 1 ElseIf right(objfile.name,3) = "xls" or right(objfile.name,4) = "xlsx" Then QExcel = QExcel + 1 ElseIf right(objfile.name,3) = "mdb" or right(objfile.name,5) = "accdb" Then QAccess = QAccess + 1 End If Next Set colFiles = Nothing end if Next Tag: CDO script causes Exchange Server to hang Tag: 218834
  - 14
    - Run setup.exe from netshare Hello I am having a tough time figuring this one out. I need to run the setup.ese for Office 2007 from a network share and then apply updates via a msp file. I have the following scirpt below and it will not execute under logon startup. 'InstallStartupScriptBegin on error resume next set wshShell=WScript.CreateObject("WScript.Shell") Set strOutlook = CreateObject("Outlook.Application") If strOutlook.Version < "12" then wshShell.run "\\RemoteInstall\Software\Microsoft \Office2007\setup.exe /AdminFile \\Remoteinstall\Software\Microsoft \Office2007\Updates\office07config.MSP", 1, True Else wscript.Quit end if 'InstallStartupScriptEnd I put it together testing the outlook version since all clients have Outlook 2003 installed with the rest of the office suite. This script has been assigned via GP and dropped in the ntlogon folder on one of our DC's. Any help or hints to get this resoved would be wonderful. thanks for any help in advance. JV Tag: CDO script causes Exchange Server to hang Tag: 218828
  - 15
    - VBS Script to Run Macro in Access 2003 I want to nightly run a VBS Script in Scheduled tasks to open an Access 2003 database and execute a macro. The problem is that the database opens to a switchboard screen. I need to open this database with a VBS script that mimicks opening the database with {shift} open. My code: dim accessApp set accessApp = CreateObject("Access.Application") accessApp.visible = True accessApp.OpenCurrentDataBase("C:\ACF\Copied from Server\ACF.mdb") accessApp.Run "Macro1" accessApp.Quit When this script executes, the switchboard is open, and the Macro1 can't be found (executed). Thanks Tag: CDO script causes Exchange Server to hang Tag: 218827
  - 16
    - <SCRIPT LANGUAGE="VBScript"> and <%%> Which are the differences between "<SCRIPT LANGUAGE='VBScript'>" and "< %%>"?? thanks! :) Tag: CDO script causes Exchange Server to hang Tag: 218823
  - 17
    - Script to Delete Contents of Recycle Bin I'm seeking a logon script which will delete the contents of the Recycle Bin. This is necessary because we have found that since we use My Documents folder redirection and Disk Quotas on the Server 2003 R2 SP2 file server, that the Recycle Bin contents on user's computers are being included in Disk Quotas on the server. The script I was using below is causing Windows Script Host vb runtime errors in line 44 'char 4 'Permission Denied' Code 800A0046. Additionally, although this script is the only one I could find via a Web search (I'm not a coder) which actually works on some systems, it appears to be doing more than I need it to do. I would be satisfied if it could simply and effectively empty the Recycle Bin: Option Explicit DIM g_objWshShell, g_objFSO, g_sLogFile, g_objWshNetwork, g_sScriptName, g_sComputerName, g_sUserName Dim g_sVer, g_objLogFile, g_sLogDir 'Setup main variables and objects Set g_objWshShell = WScript.CreateObject("WScript.Shell") 'Create a Shell Object Set g_objFSO = CreateObject("Scripting.FileSystemObject") 'create a File System Object Set g_objWshNetwork = WScript.CreateObject("WScript.Network") 'Create Network Object g_sComputerName = g_objWshNetwork.Computername 'Gets machine Computer name g_sUserName = g_objWshNetwork.UserName 'Gets logged-on username g_sScriptName=UCase(WScript.ScriptName) ' *** Name of the script ' *** START LogFile Information - use Delete or Append info below; don't use both *** Const FORREADING = 1, FORWRITING = 2, FORAPPENDING = 8 'Setup constants for writing, appending, etc g_sLogDir = "C:\TEMP" If Not (g_objFSO.FolderExists(g_sLogDir)) Then g_objFSO.CreateFolder(g_sLogDir) End If g_sLogFile = g_sLogDir & "\" & Left(g_sScriptName,len(g_sScriptName) - 3) & "LOG" 'Makes log file the SCRIPTNAME.Log g_sVer = "1.0" 'To delete a logfile and create a new one each time script is ran If g_objFSO.FileExists(g_sLogFile) Then g_objFSO.DeleteFile(g_sLogFile) 'Delete logfile if it exists. End If Set g_objLogFile = g_objFSO.CreateTextFile(g_sLogFile, FORWRITING) 'Setup the logfile for writing Call Main() Call ExitScript() 'Start main script HERE *** Sub Main() Dim objRecycleBin, objFolderItems, objItem, strSpecialFolderName strSpecialFolderName = "Recycle Bin" 'Call WriteLine("Starting " & g_sScriptName & " at " & Date & " " & Time, g_objLogFile) Set objRecycleBin = GetSpecialFolderObject(strSpecialFolderName) 'Get Special Folder based upon input name Set objFolderItems = objRecycleBin.Items() 'Get items within Recycle Bin For Each objItem In objFolderItems 'Delete all items within Special Folder If (objItem.Type = "File Folder") Then 'Check for file type g_objFSO.DeleteFolder(objItem.Path) 'Delete Folders Else g_objFSO.DeleteFile(objItem.Path) 'Delete Files End If WScript.Echo "Deleted " & objItem.Name Next End Sub '*-*-*-*-*- Start Subroutines here *-*-*-*-*- 'Returns SpecialFolder based upon name of folder Function GetSpecialFolderObject(NameOfFolder) Dim objShellApp, i, objSpecialFolder Set objShellApp = CreateObject("Shell.Application") On Error Resume Next For i=0 To 40 '40 is highest value for special folders Set objSpecialFolder = objShellApp.NameSpace(i) If (StrComp(objSpecialFolder.Title,NameOfFolder,vbTextCompare)=0) Then Set GetSpecialFolderObject = objSpecialFolder Exit For End If Next Err.Clear End Function 'Closes logfile and exits script Sub ExitScript() 'Call WriteLine(Date & " " & Time & "; Completed " & g_sScriptName, g_objLogFile) If IsObject(g_objLogFile) Then g_objLogFile.Close End If Wscript.Quit End Sub Sub EndOnError(sErrorString) WScript.Echo sErrorString & vbcrlf & "Check " & chr(34) & g_sLogFile & Chr(34) & " for details" Call WriteLine (sErrorString, g_objLogFile) WScript.Quit() End Sub 'Shows usage if input is wrong sub ShowUsage() WScript.Echo g_sScriptName & " v" & g_sVer & " Empties Recycle Bin for logged on user" & vbcrlf _ & vbcrlf & "USAGE: [CSCRIPT] " & g_sScriptName WScript.Quit end sub 'Writes to log Sub WriteLine(ByVal strMessage, ByVal objFile) On Error Resume Next If IsObject(objFile) then 'objFile should be a file object objFile.WriteLine strMessage Else Call Wscript.Echo( strMessage ) End If End Sub '*-*-*-*-*- End Subroutines here *-*-*-*-*- '*** End Tag: CDO script causes Exchange Server to hang Tag: 218822
  - 18
    - Object not a Collection I am receiving the above message each time a non-admin user logs into a pc. here is my very basic login script. Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "GroupName" objNetwork.MapNetworkDrive "I:", "Share Path" End Select NEXT Thank you for your time. Tag: CDO script causes Exchange Server to hang Tag: 218821
  - 19
    - Loop without Do error.. Dear all Hope someone can help ive got a "Loop Without Do" error on line 316. and i cant see why.. Line 316 is the last Loop Statement in the below code. kr Paul '260-------------------------------------------------------------------- ' Group DN's start in column 12. intCol = 8 Do While objSheet.Cells(intRow, intCol).Value <> "" strGroupDN = Trim(objSheet.Cells(intRow, intCol).Value) ' Attempt to bind to group object DN. blnBound = False On Error Resume Next Set objGroup = GetObject("LDAP://" & strGroupDN) If (Err.Number <> 0) Then On Error GoTo 0 '365 Try again converting NT Name to DN. On Error Resume Next objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain _ & "\" & strGroupDN If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to bind to group " & strGroupDN Else On Error GoTo 0 strGroupDN = objTrans.Get(ADS_NAME_TYPE_1779) Set objGroup = GetObject("LDAP://" & strGroupDN) blnBound = True End If Else On Error GoTo 0 blnBound = True End If If (blnBound = True) Then objGroup.Add objUser.AdsPath If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to add user " & strNTName _ & " to group " & strGroupDN End If End If On Error GoTo 0 ' Increment to next group DN. intCol = intCol + 1 Loop End If End If End If '308--------------------------------------------- ' Increment to next user. intRow = intRow + 1 ' ... In the loop. ' Add new user to the group. objGroup.Add oNewUser.AdsPath Loop Wscript.Echo "Done" ' Clean up. objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objContainer = Nothing Set objSheet = Nothing Set objExcel = Nothing Set objFSO = Nothing Set objShell = Nothing Set objTrans = Nothing Set objRootDSE = Nothing Tag: CDO script causes Exchange Server to hang Tag: 218810
  - 20
    - Howto: Add lines of text from a specific point in a text file.. Hi all, I wonder if you can help me... I have been doing allot of manual updates to ini files that i am using and would like to make things a little easier on myself by trying to automate as much as i can. What i need at the moment is a way of adding some addition text to a file that already exists - the catch is that i need to add it to the end of a group of information and that information starts around the middle of the file. E.g. below. E.g. --- SVCPack.inf --- [CatalogHeader] [Version] BuildNumber=2600 MinorVersion=1 MajorVersion=5 Signature="$WINDOWS NT$" [SetupData] CatalogSubDir="\I386\svcpack" [SetupHotfixesToRun] KB892130.exe /q /n /z wmp11.exe /q /n /z /o wmfdist11.exe /q /n /z /o mscomppackv1.exe /q /n /z /o wudf01000.exe /q /n /z /o [ProductCatalogsToInstall] KB892130.cat wmp11.cat WMFDist11.cat MSCompPackV1.cat Wudf01000.cat --- End file --- So i would like to be able to add additional commands (lines of text) to the [SetupHotfixesToRun] section of the file by running a single vbscript. The text/instructions i would like to be able to have listed in the vbs (or a comma delimited file that can be called from the vbs) I would appreciate any suggestions, code snippets etc that can point me in the write direction. Cheers, Darren Tag: CDO script causes Exchange Server to hang Tag: 218809
  - 21
    - 2 dimensional array of objects I'm not sure why this doesn't work: ================================ class Position public value private sub Class_Initialize value = " " end sub end class class Board public MyPosition(3,3) private posinxcoord private posinycoord private sub Class_Initialize Set MyPosition(3,3) = CreateObject("Position") wscript.echo MyPosition(0,0).value end sub public function returnpos(posinxcoord,posinycoord) returnpos = MyPosition(posinxcoord,posinycoord).value end function end class ============================= I would like to echo the MyPosition(0,0).value... which I should have initialized to " ". It gives me an "Object required" error. Tag: CDO script causes Exchange Server to hang Tag: 218807
  - 22
    - Windows Desktop Search and Search Companion I apologize if this is a trivial FAQ that has been asked/answered a thousand times, but: I can activate Windows Desktop Search with: Set wshshell = CreateObject("Shell.Application") wshshell.findfiles How can I now tell WDS to bring up the Search Companion (usually a simple mouse click)? or alternatively How can I bring up Search Companion directly without first activating WDS?? -- Gary''s Student - gsnu2007xx Tag: CDO script causes Exchange Server to hang Tag: 218804
  - 23
    - HTA I would like the script to run as an hta file format due to most network security issues. Is there a way to hide this DOS window? Tag: CDO script causes Exchange Server to hang Tag: 218799
  - 24
    - How to Read a MS Word file in tabular format? I am developing a windows application using VB.Net 2005. In this I have to read a MS Word file which is in following format - Sr.No. Name Of Student Age Class Sex Father's Name 1 Deepak Choudhary 16 10 Male Sandip Choudhary 2 Nalini Chauhan 16 10 Female Suhas Chauhan In this way there is list of student and their details. This list may be of 1000 students. There is no table and no linings between two records. Now I have to read this file and have to insert all the records into a database table having same fields. Please give a code to prepare a datatable from given file. Tag: CDO script causes Exchange Server to hang Tag: 218797
  - 25
    - How to delete the content of Excel cells from VBS script? I would like to delete the current content/value of the cells 3,6 .... 3,18 How can I do this within a *.vbs script? Claudia Tag: CDO script causes Exchange Server to hang Tag: 218793
- Next
  - 1
    - AppActivate an Internet Explorer window I'm having some trouble accomplishing two tasks with a modified version of Tom Lavedas' script. Specifically, what I am trying to accomplish is: 1) Detect if any Internet Explorer windows are already open and that have a title of "Google - Windows Internet Explorer" 2) If there is, bring to the foreground (and with the focus) the first one found 3) If there are not, open up Internet Explorer and navigate to a specific web page (and with the focus) Tom Lavedas' script pretty much does the searching and title comparing, and that seems to work fine. My only issues is that I can't bring to foreground the windows (the one that I'm opening, and the one that already is open). Can anyone help me figure out what's wrong with my AppActivate ? Here is what I got so far: '-----------------< SNIP >------------------------- echo MatchWindows Function MatchWindows() Dim oShell, aHTMLTitles(), sTitle, wndw, bMatch, nCnt Dim IE sHTMLTitles = "Google - Windows Internet Explorer" nCnt = 0 set oShell = createobject("shell.application") for each wndw in oShell.windows if instr(lcase(typename(wndw.document)), "htmldocument") > 0 then sTitle = wndw.document.title bMatch = false for each entry in aHTMLTitles if entry = sTitle then sMatches = sMatches & vbNewline & vbTab & sTitle bMatch = true exit for end if next if not bMatch then Redim Preserve aHTMLTitles(nCnt) aHTMLTitles(nCnt) = sTitle nCnt = nCnt + 1 end if end if next if sMatches <> "" then oShell.AppActivate sHTMLTitles else set IE = CreateObject("InternetExplorer.Application") IE.visible = true IE.FullScreen = false IE.Navigate "http://www.google.com" SYS_objShell.AppActivate sHTMLTitles end if end function '-----------------< /SNIP >------------------------- Tag: CDO script causes Exchange Server to hang Tag: 218792
  - 2
    - Is there a write-multi-cell-at-once function in VBS for Excel? As well known I can write into an Excel cell a certain value with in a VBS script with e.g. objWorksheet.Cells(2, 5).Value = 55 Can I write the value 55 into multiple cells at once? Imagine I want to write in all cells 2,5 .... 2,37 the value 55. Do I really have to iterate through all cells individually or is there a function like objWorksheet.multiCells((2,5),(2,37)).Value = 55 ? Tony Tag: CDO script causes Exchange Server to hang Tag: 218786
  - 3
    - DPM pre/post script Where can I found a step-by-step document about how to implement a pre/post script on DPM 2007? Best Regards, AugustoM Tag: CDO script causes Exchange Server to hang Tag: 218784
  - 4
    - How to display a variable value in a dialog box and how to read user input? Sorry for this newbie question, but how do I display a variable value from a *.vbs script in a dialog box and - secondly - how to read a user input from a dialog entry field into a *.vbs script variable? Tony Tag: CDO script causes Exchange Server to hang Tag: 218782
  - 5
    - VWD 2005 Express ? I'm not sure I'm at the right place here, so direct me if I'm not. I downloaded Visual Web Developer 2005 Express and 2008 Express. But I can't get them installed. It seems right at the very end everything goes bananas. Halts and goes into the panic mode by Disk Checking. I have to power off and reboot, then it wants to do a check disk. It did say something about compatible hardware? Both versions did the same thing. I have XP Pro 2. It creates the directory and looks like a lot of files are there but at the very end of the installation is when it goes nuts. Any Idea's. I'm going to try it on vista this afternoon. Izod Tag: CDO script causes Exchange Server to hang Tag: 218781
  - 6
    - AMAZING JOBS AND SALARIES IN US,UK,CHICAGO........ FOR MORE DETAILS AND POST YOUR RESUMES ON http://polticsinfs.blogspot.com/ Tag: CDO script causes Exchange Server to hang Tag: 218773
  - 7
    - Script doing right? Okay, I have a script the returns only the internal address from IIS. Why does it do this it is to be returning the remote address of the user.... HELP I am running SBS2003 ISA 2000 and IIS 6. here is the script <% ' ' Contact your provider for support, NOT flicks software ' http://www.flicks.com/support/ ' http://www.flicks.com/authentix/intro.htm ' You may use this program freely so long as it is in 'conjuction with a product from Flicks Software ' ' Place this file as epoch.asp in a script enabled directory, ' and let Epoch know the URL for this file. ' Make sure that you enable an AuthentiX group for the ' membership directory you want, and make sure this group is the ' same group that Epoch knows about. ' ---------------------------------------------------------------------- ' AuthentiX ASP interface for Epoch ' ' clay@epochsystems.com ' ' When you have installed this script, ' Make sure epoch knows the URL where you have installed it ' Make sure that the group matches the group you have setup in AuthentiX/WebQuota ' Make sure the group -is a permitted group- for your membership directory ' ' Epoch posts the data in the form in a fairly raw format: ' FORM = ADD+KEVIN_GROUP+joel_test+what+test_from_epoch<BR> ' So we just get Request.Form ' split it up with Split ' ' 0 arg is command can be 'ADD Command 'CHECK -exists 'DELETED ' ' 1 arg is group ' ' 2 arg is username ' ' 3 arg is password ' ' 4 arg is optional/not used ' ' ---------------------------------------------------------------------- ' change this value if you are using AuthentiX ISP usingAuthentiXStandard = true if (usingAuthentiXStandard) then Set auth = Server.CreateObject("AUTHXOCX.AuthXOCXCtrl.1") else Set auth = Server.CreateObject("AUTHXISP.AuthXOCXCtrl.1") ' use this line to automatically set the domain to be the requesting IP protectedDomain = Request.ServerVariables("LOCAL_ADDR") ' use this alternative if you are protecting by host header, ' set protectedDomain to be -your- host header 'protectedDomain = "hostheader.com" auth.SetVirtualDomain protectedDomain, Request.ServerVariables("SCRIPT_NAME") ' check with your isp for your password, initially it is empty auth.SetVirtualDomainPassword("") end if ' stringToParse = "" ' stringToParse = Request.Form ' stringToParse = "DELETED+12408+joel_test111+what+test_from_epoch" ' stringToParse = "ADD+12408+joel_test111+what+test_from_epoch" ' you can check the incoming remote address with Request.ServerVariables("REMOTE_ADDR") ' Dim parsedString ' parsedString = Split(stringToParse, "+") ' for counter = 0 To UBound(parsedString) ' response.Write(parsedString(counter) & counter) ' Next ' if (2 > UBound(parsedString)) Then ' Response.Write("<html><body>*failed*<p>Not enough parameters! 050102</body></html>") ' response.End ' End if ' action = parsedString(0) ' groupname = parsedString(1) ' username = parsedString(2) remoteAddress = Request.ServerVariables("REMOTE_ADDR") Set RegularExpressionObject = New RegExp With RegularExpressionObject Tag: CDO script causes Exchange Server to hang Tag: 218770
  - 8
    - how to create a new vpn connection using script o batch Hey everyone, Is there any that know how to create a new vpn connection for muy home users without using the new network connection wizard including in Windows XP Service Pack 2? I hope so!. Thanks.! Tag: CDO script causes Exchange Server to hang Tag: 218765
  - 9
    - Grabbing IP address then setting to 2nd nic I am trying to combine code which grabs the ip address of a server from http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/e1d7a134851841e7/12751466d5406803?lnk=gst&q=ip+registry#12751466d5406803 then set it to a 2nd NIC via the netsh command netsh interface ip set address "Local Area Connection 2" static IP ADDRESS is it possible to set this as a variable obtained from code in the 1st part??? Also have been trying to use the the netsh command for only the ipaddress without wiping the rest of the details ie subnet/default gateway/dns etc. Tag: CDO script causes Exchange Server to hang Tag: 218764
  - 10
    - Clearing strValue when reading registry. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "system\CurrentControlSet\Services\something\Parameters" strValueName = "Application" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue I am running the above script as part of a loop and for the most part it works fine. The problem I am having is that if a remote server is unavailalbe the script will output the value from the prior system. I have gotten around this problem in the past with strValue = "" or strValue = Null or some variation. However, for some reason this time I simply can't figure out how to clear these values so they don't get recycled during the loop. Thanks, Jeff Tag: CDO script causes Exchange Server to hang Tag: 218759
  - 11
    - Learning Script? I am just beginning to look at script. I'm a newbie. I chose ASP to start . The truth of the matter is, I don't know how to select a script language to start with. So, I would like to choose the one that is most popular and versatile and more apt to be needed. What would that be? Thanks Izod Tag: CDO script causes Exchange Server to hang Tag: 218758
  - 12
    - Line number reference, runtime I'm afraid the answer to this is NO, but ever the optimist, I'll ask... Is there a way to refer, programatically, to the current line number in a running script? I could imagine it being something like "WScript.LineNumber" I would like to use in a context like: WScript.Echo CurrentLineNumber Tag: CDO script causes Exchange Server to hang Tag: 218753
  - 13
    - MsHtm.dll - COM object... is either not valid or not registered Using VB.NET under .NET 1.1 in VS2003, BACKGROUND I have a windows application that dereferences the MsHTM.dll. The app is successfully able to parse existing HTM documents allowing me to access the DOM objects as needed. With my latest changes I want to utilize the MsHTM.dll to parse some text for me. For instance, I'd like to be able to parse the following text into an element, and then inspect its child nodes later on... 1 Dim objGeneric As HTMLGenericElement =3D new HTMLGenericElement 2 objGeneric.innerHTML =3D "<span style=3D'color:#FF0000;'>some span text</span>" 3 For Each objNode As HTMLGenericElement In objGeneric.childNodes 4 'Do something here... 5 Next PROBLEM When my program tries to execute line 1 above I get this error message: COM object with CLSID {...} is either not valid or not registered. But I know that the dll is registered because I use it in other places (just not like this) in the program. I get the same error message when I try to instantiate any HTML objects (HTMLSpanElement, HTMLDivElement, HTMLInputElement, etc.) When I remove "new HTMLGenericElement" from line 1 then execution continues to line 2, but that fails b/c objGeneric does not point to an object yet=85 QUESTION(S) - so obviously I need to point objGeneric to a new object but how? - Is there an easier way for me to parse this HTML string? Your feedback appreciated. celoftis Tag: CDO script causes Exchange Server to hang Tag: 218747
  - 14
    - [ANN] Bruce Axtens's Standard Library G'day everyone Some of you have downloaded this is ages past. The next iteration is available from <http://codeaholic.blogspot.com/2008/06/vbscript- standardlibraryzip.html>. Kind regards, Bruce. Tag: CDO script causes Exchange Server to hang Tag: 218745
  - 15
    - FSO - Date created newer than Date last modified Hi All, I have a script that gets the FileObject.DateCreated value and the FileObject.DateLastModified value and the date created is more recent than the Date last modified. anyone know why? These files are being moved around the network. FTP'ed to our server then copied to some PC's. Thanks in advance Dave Tag: CDO script causes Exchange Server to hang Tag: 218744
  - 16
    - if objRef = Nothing (Access VBA) Hi All, Can someone tell me how to test if an Object reference is set to Nothing? Wouldn't it be easier if there was simply an IsNothing function? Thanks for any help on this Chris Tag: CDO script causes Exchange Server to hang Tag: 218741
  - 17
    - Supplying a variable to wshshell.Run As part of a new login script I am writing I can successfully do the following if I manually specify the servername: set wshShell= Wscript.CreateObject("WScript.Shell") wshshell.Run "regedit /s \\servername\scripts\outlook\outlook.reg",0,bWaitOnReturn What I want to be able to achieve is find the Logon DC and use that as the location to run the .reg file from. I have the below which succesfully gets the Logon DC for me: Set WshShell = WScript.CreateObject("WScript.Shell") LogonDC= WshShell.ExpandEnvironmentStrings("%logonserver%") wscript.echo LogonDC which outputs to \\servername but I can't seem to be able to get the LogonDC variable to work in the regedit command. I think I may just be missing the syntax for how to provide it; I am trying along the lines of: Set WshShell = WScript.CreateObject("WScript.Shell") LogonDC= WshShell.ExpandEnvironmentStrings("%logonserver%") set wshShell= Wscript.CreateObject("WScript.Shell") wshshell.Run "regedit /s logondc\scripts\outlook\outlook.reg",0,bWaitOnReturn Any help much appreciated! Tag: CDO script causes Exchange Server to hang Tag: 218738
  - 18
    - DLL question I have some software (DLL) that writes events to the event log that I would like to see what functions are available. Is there a way to call the DLL and get available functions? I would llike to eventually get all errors that the DLL could write to the event log. The support for the company hasn't been overly helpful to date. Thanks. Tag: CDO script causes Exchange Server to hang Tag: 218728
  - 19
    - How to bring up remote Exchange cluster by VBScript/WMI scripts Hi there Looking for some pointers, examples or code snippets on how to bring up a remote Exchange 2003 cluster at a DR site by automation with VBScript/WMI scripts. In particular, our main concern is to deal with the scripting of these remote tasks, among others. 1. Recognise the replicated disks and set up disk resources for the cluster. 2. Configure IP addresses and set up network resources for the cluster. 3. Set up system attendant resources for the cluster. 4. Set up mail service resources for the cluster. Anyone? Cheers Sunny Tag: CDO script causes Exchange Server to hang Tag: 218722
  - 20
    - Mapping over a VPN connection. Hello everyone, I would like some assistance in mapping printers and drives when I connect to my VPN. I just started scripting, and I can map my printers and drives on a LAN, but I'm having a hard time getting the VBS to work when I connect to my VPN. Any assistance would be great. Thanks, Harvey Tag: CDO script causes Exchange Server to hang Tag: 218712
  - 21
    - ImpersonateLoggedOnUser() Hi I need to write an xml-file using ADODB.Stream. I have the script in place, but i need to secure the system using the active directory settings.' Now i need the script to ask for AD credentials prior to writing and use these credentials for the actual write-process. Best of all would be, if i could check the write-permissions for the directory prior to writing and deny the write, if the user is not allowed to write.. Could anyone help me with this, since i can't seem to find any scripts online and don't have the needed knowhow myself.. TIA Finn Tag: CDO script causes Exchange Server to hang Tag: 218710
  - 22
    - InternetExplorer.Application and Windows Vista Hello, I have this loginscript that gets system and user data and puts it into a DB. While the script is running the user is provided with a webpage that shows the status of the script. This all works fine in XP but doesn't seem to work well in Vista. Vista fires up an iexplorer window but doesn't make it fullscreen and it seems that .Document.Body.InnerHTML isn't working either.... These are some parts of my code: ... Set objexplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "\\alinas1\ict\LOGIN\splash.html" objexplorer.FullScreen = true objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=400 objExplorer.Height = 200 objExplorer.Left = 0 objExplorer.Top = 0 Do While (objExplorer.Busy) Wscript.Sleep 200 Loop strHTML = "<b>Loginscript Aliplast NV.</b><br><i>Een ogenblik geduld aub.</i><br><br>" objExplorer.Visible = 1 objExplorer.Document.Body.InnerHTML = "<div id='contents'>" & strHTML & "</div>" ... strHTML = Replace(strHTML,"<img src='loader.gif'>","<img src='ok.png' width='16px' height='16px'>") & "<br><br><b>OK!</b>" objExplorer.Document.Body.InnerHTML = "<div id='contents'>" & strHTML & "</div>" WScript.Sleep 5000 objexplorer.Quit Can anybody help me out? Some of my collegues are allready running Vista... :( Any help is greatly appreciated!!! Greetings, Dhalicious Tag: CDO script causes Exchange Server to hang Tag: 218707
  - 23
    - Scripting user creation. BUT How to add to groups..... Dear All Below is a full copy of my code to date which seems to work nicely. Im still tinkering with it as parts are yet to be added home dir etc. Basically it pulls users from a CSV and creates their accounts. However how on earth do i add them to a group....???? Every user will by default need to be a member of the "students" Group so can this be hardcoded somehow..? Then they need to be a member of a more specific group pertaining to that class only. Ideas anyone..? Cheers Paul --------------------------------------------------------------------------------------------- Option Explicit Dim sCSVFileLocation Dim sCSVFile Dim oConnection Dim oRecordSet Dim oNewUser ' Variables needed for LDAP connection Dim oRootLDAP Dim oContainer ' Holding variables for information import from CSV file Dim sLogon Dim sFirstName Dim sLastName Dim sDisplayName Dim sdescription Dim sNAME Dim sPassword Dim nPwdLastSet Dim nUserAccountControl ' Used to enable the account Dim sDomain ' Modify this to match your company's AD domain sDomain="mydomain.co.uk" ' Input file location sCSVFileLocation = "C:\Scripts\" 'KEEP TRAILING SLASH! ' Full path to input file sCSVFile = sCSVFileLocation&"User.csv" ' Commands used to open the CSV file and select all of the records set oConnection = createobject("adodb.connection") set oRecordSet = createobject("adodb.recordset") oConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & sCSVFileLocation & ";Extended Properties=""text;HDR=yes;FMT=Delimited""" oRecordSet.open "SELECT * FROM " & sCSVFile ,oConnection ' Create a connection to the Active Directory Users container. Set oRootLDAP = GetObject("LDAP://rootDSE") Set oContainer = GetObject("LDAP://ou=StudentsGP," & _ oRootLDAP.Get("defaultNamingContext")) ' Allows processing to continue even if an error occurs (i.e. dup user) ' We put this below the CSV and AD information since processing can ' continue with a single bad record, but not if there is a problem with ' the CSV file or AD connection on error resume next do until oRecordSet.EOF ' Reads the values (cells) in the sInputFile file. ' --------- Start creating user account ' Read variable information from the CSV file ' and build everything needed to create the account sFirstName = oRecordSet.Fields.Item(1).value sLastName = oRecordSet.Fields.Item(2).value sLogon = sFirstName&"."&sLastName sDisplayName = sFirstName&" "&sLastName sPassword = oRecordSet.Fields.Item(3).value sdescription = oRecordSet.Fields.Item(4).value sNAME = oRecordSet.Fields.Item(5).value ' Build the User account Set oNewUser = oContainer.Create("User","cn="&sFirstName&" "&SLastName) oNewUser.put "sAMAccountName",lcase(sLogon) oNewUser.put "givenName",sFirstName oNewUser.put "sn",sLastName oNewUser.put "UserPrincipalName",lcase(SLogon)&"@"&sDomain oNewUser.put "DisplayName",sDisplayName oNewUser.put "description",sdescription oNewUser.put "name",lcase(sLogon) oNewUser.put "scriptPath",sNAME ' Write this information into Active Directory so we can ' modify the password and enable the user account oNewUser.SetInfo ' Change the users password oNewUser.SetPassword sPassword oNewUser.Put "pwdLastSet", 0 ' Enable the user account oNewUser.Put "userAccountControl", 512 oNewUser.Put "userAccountControl", 66048 oNewUser.SetInfo ' Used only for debugging if err.number = -2147019886 then msgbox "User logon " & sLogon & "already exists" end if oRecordSet.MoveNext loop ----------------------------------------------------------------------------------- Tag: CDO script causes Exchange Server to hang Tag: 218700
  - 24
    - Help Need help: If this script works: Const HKLM = &H80000002 strComputer = "." Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}" _ & "!\\" & strComputer & "\root\default:StdRegProv") sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" oReg.EnumKey HKLM, sPath, aKeys For Each sKey in aKeys oReg.GetStringValue HKLM, sPath & "\" & sKey, "UninstallString", sName If Not IsNull(sName) Then sText = sText & sName & vbCr Next WScript.Echo sText This script works: Const HKLM = &H80000002 strComputer = "." Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}" _ & "!\\" & strComputer & "\root\default:StdRegProv") sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" oReg.EnumKey HKLM, sPath, aKeys For Each sKey in aKeys oReg.GetStringValue HKLM, sPath & "\" & sKey, "DisplayName", sName If Not IsNull(sName) Then sList = sList & sName & vbCr Next WScript.Echo sList Why doesn't this script work: Const HKLM = &H80000002 strComputer = "." Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}" _ & "!\\" & strComputer & "\root\default:StdRegProv") sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" oReg.EnumKey HKLM, sPath, aKeys For Each sKey in aKeys oReg.GetStringValue HKLM, sPath & "\" & sKey, "DisplayName", sName If Not IsNull(sName) Then sList = sList & sName & vbCr Next WScript.Echo sList Tag: CDO script causes Exchange Server to hang Tag: 218694
  - 25
    - Create a output stream with quote enclosed fields using this code ass an example: '/----------------------------------------------- ' Write recordset to a csv text file. ' Based on http://www.vbforums.com/archive/index.php/t-397330.html '\----------------------------------------------- 'create the file Set exportStream = FSO.CreateTextFile(str_BaseGetPath & "AsmntType(s)_" & fun_Assessment_Type & ".csv") 'get all the data from the recordset and save it in the file exportStream.Write (rs_TestTypes.GetString(adClipString, , ",", vbCrLf)) 'close the stream exportStream.Close Set exportStream = Nothing '\--------------------------------------------------------- Is it possible to modify this to create the output with dbl-qt enclosed fields? example: "NY261001","Regents","2008-06-30" instead of: NY261001,Regents,2008-06-30 TIA - Daron Tag: CDO script causes Exchange Server to hang Tag: 218688

Pardon me for making this so vague, but...

I have a script that uses CDO to access messages in a mailbox and delete
them based on age.

The script works fine in testing. It works some of the time in the
production environment, but intermittently causes the Exchange Server's
local delivery queue to stop processing, become unresponsive to a manual
reconnect, and require the server to be rebooted. The consequence not as
bad as it may sound. This server is used only for journaling copied
messages.

I know this sounds like an Exchange issue, but thought I would ask the
question here first to see if anyone had a similar issue. Is there some way
to throttle or "chunk" the amount of data transmitted in the session? This
might be similar to the ADO Recordset parameter that limits the number of
records returned in a query. There are typically a million messages in the
target folder...

Top

Re: CDO script causes Exchange Server to hang by Al

Al
Wed Jun 25 21:53:14 CDT 2008

I'd ask in an exchange group as well, as perhaps there is a faq on this.

That said, have you tried including a delay in the loop that processes the
messages?

/Al

"Trey Shaffer" <Trey@Shaffer-Family.com> wrote in message
news:uMoqKxw1IHA.4492@TK2MSFTNGP02.phx.gbl...
> Pardon me for making this so vague, but...
>
> I have a script that uses CDO to access messages in a mailbox and delete
> them based on age.
>
> The script works fine in testing. It works some of the time in the
> production environment, but intermittently causes the Exchange Server's
> local delivery queue to stop processing, become unresponsive to a manual
> reconnect, and require the server to be rebooted. The consequence not as
> bad as it may sound. This server is used only for journaling copied
> messages.
>
> I know this sounds like an Exchange issue, but thought I would ask the
> question here first to see if anyone had a similar issue. Is there some
> way to throttle or "chunk" the amount of data transmitted in the session?
> This might be similar to the ADO Recordset parameter that limits the
> number of records returned in a query. There are typically a million
> messages in the target folder...
>

Top