create loop through three recipients email addresses

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
    - how to cactch activex event in html page Hi, I'm developing an activex in C++. I'm using it in HTML pages. I managed to call proporties and functions of this one. But I can't catch his events. I try it in VB and test container, and it's working very well. I've tried following code : <SCRIPT LANGUAGE="javascript" FOR="TelephonyPayment" EVENT="NetworkReachedEvent()"> alert ("usercontrol event fired"); </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Sub TelephonyPayment_NetworkReachedEvent() msgbox "Event Fired" End Sub </SCRIPT> <script language="JScript"> function TelephonyPayment::NetworkReachedEvent() { alert('Event fired: '); } </script> But nothing runs. What's the problem ? Thanks in advance for your help Tag: create loop through three recipients email addresses Tag: 165142
  - 2
    - If sExt = "jpg" or "jpeg" is it possible for this piece of code to be amended to include more than one type of file extension? If sExt = "jpg" or "jpeg" doesn't seem to work. sExt = oFSO.GetExtensionName(oFile) If sExt = "jpg" Tag: create loop through three recipients email addresses Tag: 165138
  - 3
    - vbs to issue command Hi, How can I get vbs to issue this command: sfc /scanonce -- Regards, David Windows XP home edition Tag: create loop through three recipients email addresses Tag: 165133
  - 4
    - Several IP addresses script Hello friends, iÂ´m Eduardo Martin(Spain). IÂ´m developing a script to put several ip addresses to a network device. Using as template the scipt to put a ip address of technet script repository iÂ´m able to put only one ip, and i have tryed to find in WMI library, play with arrays, etc... without results. Can anyone help me , or give me a clue ?? Thanks in advanced Tag: create loop through three recipients email addresses Tag: 165132
  - 5
    - refresh screen while vbscript is running Hi all, I'm writing an HTML-page with a script that changes the view of the page. It works fine, but the changes will only show after the script stops. I want to see the changes as they are made (with a delay-loop to follow the progres) How can I do that? Thanks, Jan Hendrickx. Tag: create loop through three recipients email addresses Tag: 165126
  - 6
    - Using vbs to set power settings Hi all I'm in the middle of a migration and a tedious task of configuring settings within the users profile i would like to get to grips with vbs and my first task which i could use as a stepping stone is to set the user power settings using search i have found that the following script can be run within a cmd line powercfg /change normal /monitor-timeout-ac 10 how could i set this using vbs also within power script when user closes laptop "to do nothing" couldnt find anything within powercfg /? that would help thanks in advance Tag: create loop through three recipients email addresses Tag: 165124
  - 7
    - Adding users to groups in AD I have the code from the TechNet Script center for adding users to groups which works great. But what do you do if you do not know the OU the user is in. Is there a way to search AD and return the value so that it can be passed to the code which will be adding the users to the group. I am interested in on creating a utility to add members to a group by providing a list of users in a text file. Paul Glickenhaus Tag: create loop through three recipients email addresses Tag: 165123
  - 8
    - Scheduling a VBS within a at job Hi all, I have created a bat file to schedule automatically a vbs as follow: at 01:00 /every:M,T,W,Th,F,S,Su cmd /c "c:\bat\check.vbs" at 02:00 /every:M,T,W,Th,F,S,Su cmd /c "c:\bat\check.vbs" at 03:00 /every:M,T,W,Th,F,S,Su cmd /c "c:\bat\check.vbs" ... I works, but when a cmd.exe and wscript.exe keep running within Task Manager... What is the best way to schedule within a batch? Any help/suggestion is highly appreciated. Thanks in advance for your help, Kind Regards, Rui Vilao. Tag: create loop through three recipients email addresses Tag: 165122
  - 9
    - Null return to registry query Problem: Connection to the registry returns null value Platform: Windows XP, SP1 Users: Runs as logon script under normal user credentials. The line of code that returns the null value is: Set oReg=GetObject("winmgmts:root\default:StdRegProv") To note is that the script works on some configurations and not others. I assumed the problem was security related and replaced the code with: Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\root\default:StdRegProv") to no avail. I have noticed the security log consistently logs event 577, privilege use failure audit indicating "Privileges: SeIncreaseBasePriorityPrivilege". This may or may not be related. I was wondering if anyone else had seen similar behavior in especially locked down environments. Thanks. Tag: create loop through three recipients email addresses Tag: 165119
  - 10
    - Event log monitoring I have a script written to monitor logs and send out an SMTP mail message to me. Problem is - If a server has a problem on the SAME event (i.e. Symantec Errors) I only want it to send me the message 1 time Here is what I have thought of to fix it: Every time an event occurs - it appends to a txt file the event id code. Everytime it finds an error - it first checks that file to see if that event id is in there. if it is, it skips it. I will delete this file 1 time a day with another script to stop it from running. My question: How do I code it to append something to a txt file - I know that is an easy one Next, how do I check it, or read it to say if its found, then skip it. else send out the mail Thanks in advance Tag: create loop through three recipients email addresses Tag: 165118
  - 11
    - 100% CPU script Hi, This following script executes a traceroute to 213.13.135.13 every ~30 seconds. -------------------------------------------------- option explicit dim so dim st st = timer() while true if (timer() - st) >= 30 then set so = createobject("wscript.shell") so.run "cmd /c tracert 213.13.135.13" set so = nothing st = timer() end if wend -------------------------------------------------- ... the problem is that the "while true" loop consumes 100% of CPU. Is there a better way of doing this? Something like a "sleep" method? Thanks, rusga Tag: create loop through three recipients email addresses Tag: 165115
  - 12
    - User Account hi, could any one show me the vb script coding that can enumerate the user accounts that set to 'Password Never Expired'. Thanks. Fam Tag: create loop through three recipients email addresses Tag: 165113
  - 13
    - script works in win2000 but not in win2003 I have an ASP script that calls a VBSCRIPT and it works fine in Windows 2000 but not on my new Windows 2003 server. Both servers are version 5.6 scripting The error in IE is "Automation server can't create object" Some of the code in my ASP file.... var shell = new ActiveXObject("WScript.shell") shell.run("wscript \\\\sub.domain.com\script.vbs" .....etc Tag: create loop through three recipients email addresses Tag: 165112
  - 14
    - who started script? How can you tell if a script (vbs) was started by a user or by scheduled task and no user logged on? If a user starts it someway I want to write to a message box. If no one is logged on and task scheduler started it I want to write to a log file. thanks ljb Tag: create loop through three recipients email addresses Tag: 165109
  - 15
    - WBEM_FLAG_USE_AMENDED_QUALIFIERS I have a bit of VB code I took from the Microsoft Technet Scripting resource site as follows: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" & _ strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile") For each objLogfile in colLogFiles strLogFileName = objLogfile.Name Set wmiSWbemObject = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2:" _ & "Win32_NTEventlogFile.Name='" & strLogFileName & "'") wmiSWbemObject.MaxFileSize = 2500000000 wmiSWbemObject.OverwriteOutdated = 14 wmiSWbemObject.Put_ Next and found it errors upon running with the following error message, "an amended object cannot be put unless WBEM_FLAG_USE_AMENDED_QUALIFIERS is specified"..... how do I get around this? I've checked on the MSDN site fo help but it all goes a little over my head!!!. Please can any clever person help? Philip Tag: create loop through three recipients email addresses Tag: 165103
  - 16
    - what setting do I need to set the proxy in internet explorer Hi, I am have trouble following MSoft website. I want to right a script so I can change the proxy setting to be on or off and then set the proxy to a server and set the port. I have downloaded the script from the scripting guys. I can list the information but can not find information on the msdn website to tell me what I set the proxyserver to. can tell me or guide me where to look Tag: create loop through three recipients email addresses Tag: 165100
  - 17
    - Calling server side Sub from link Is it at all possible to call a Server Side VBScript Sub from a link? I've got a link (an image) to download an application and when the user clicks the image I want to call a Sub which will record the activity in a database. I know that if it is possible it's not going to be straight forward! Any ideas on how I can do it? Thanks, Carolyn Tag: create loop through three recipients email addresses Tag: 165098
  - 18
    - VBScript: How to hide the mouse-Cursor Hi excuse me, probably a very simple thing, but I am new to VBScript: During a Script-controlled presentation I'd like to hide the mouse cursor. Which is the sacred command? Thanks Rupert Tag: create loop through three recipients email addresses Tag: 165096
  - 19
    - Defrag Script Problem I have downloaded the defrag.vbs script from MS Script Center. It defrags the drive OK but doesn't close the application. Instead the script gets stuck in a loop during:- While WshShell.AppActivate("Defragmentation Complete") = FALSE wscript.sleep 5000 Wend At the end of the defrag a dialog box comes up but is not recognised by the script:- Disk Fragmenter Defragmentation is complete for: (drive:) Does anyone know how to sort this problem? I have tried changing "Defragmentation Complete" but without success. Also, I would like to defrag all drives before closing. Can I just use sendkeys to move the focus in a loop to the next drive and repeat the process once the problem above is sorted? Thanks Andrew 'This script launches defrag and sends keys to the UI in order to automate the defrag 'process. set WshShell = CreateObject("WScript.Shell") 'Launch Defrag from the command line and wait for a second WshShell.Run "dfrg.msc" WScript.Sleep 1000 'Wait until the application has loaded - Check every second While WshShell.AppActivate("Disk Defragmenter") = FALSE wscript.sleep 1000 Wend 'Bring the application to the foreground WshShell.AppActivate "Disk Defragmenter" WScript.Sleep 200 'Send an ALT-A key to bring down the degrag menu WshShell.SendKeys "%A" WScript.Sleep 200 'Send a D to start the defrag WshShell.SendKeys "D" '*****THE SCRIPT FAILS DURING THE NEXT BLOCK***** 'Wait until the defrag is completed - Check for window every 5 seconds While WshShell.AppActivate("Defragmentation Complete") = FALSE wscript.sleep 5000 '*****THE SCRIPT GETS STUCK IN A LOOP HERE***** Wend '*****THE SCRIPT DOESN'T GET TO HERE***** 'Bring the msgbox to the foreground WshShell.AppActivate "Defragmentation Complete" WScript.Sleep 200 'Send a tab key to move the focus from View Report button to the Close Button WshShell.Sendkeys "{TAB}" Wscript.Sleep 500 'Send key to Close the Defragmentation Complete window WshShell.Sendkeys "{ENTER}" Wscript.Sleep 500 'Send and ALT-F4 to Close the Defrag program WshShell.Sendkeys "%{F4}" Tag: create loop through three recipients email addresses Tag: 165095
  - 20
    - VBScript, ASP, and Active Directory We are trying to use vbscript in a .asp page to authenicate a user in our Active Directory. The following works correctly against our main domain. Both the user name and password is validated properly. strADsPath=WinNT://domain.com strUser =domain.com\j5c Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUser, strPassword, 0) Hereâ??s where the issue is, we have a separate domain for each site. Users at each site are in the site domain and not in the main domain. For example, the site domain is called ada.domain.com on server ada-admin1. I have a user account with j5c as the username in both the ada.domain.com and domain.com domains. The following will find the j5c user but I can put anything in for the password. It finds j5c in the main domain, domain.com based on writing out the values I put in the description field on the j5c account in both domains. The return code is always 0 with a correct user name and any password. strADsPath =WinNT://ada.domain.com/ada-admin1 strUser =ada.domain.com\j5c Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUser, strPassword, 0) If I donâ??t include the server name, ada-admin1, in strADsPath =WinNT://ada.domain.com/ada-admin1, it does find the ada.domain.com domain. Iâ??m not sure if the issue is the way we have Active Directory set up or the syntax for pointing to the site domains. Tag: create loop through three recipients email addresses Tag: 165086
  - 21
    - Regular Expression Validator Does anyone here use the vb script regular expression validator ?? how do you grab text between "(" and ")" with it. Im used to perl I've tried /[(](.*?)[)]/ /((.*?)/) to no avail... what am i doing wrong ? i.e with text "(3) (4)" i would like to get "3" and "4" Tag: create loop through three recipients email addresses Tag: 165079
  - 22
    - finding a URL in dynamically written html I have a site that does a Response.Write() to create a table of contents from an XML transformation. This happens each time a page is served up. The system works fine, but I would like to find the anchor in the HTML table of contents that matches the current page and change its class. Obviously, I could do that with a client-side script, but I'd much rather do that in ASP/vbscript. Is there a way for vbscript to do that? I can't even get a test script to find the id of the root. I've placed the script immediatly after the script that does the transform. Jeff Tag: create loop through three recipients email addresses Tag: 165075
  - 23
    - logon script does not work anymore after applying SP2 Hello all, SP2 was applied to our XP PRO workstation. As a result, our logon script does not work any longer. Such script used to show a small IE window indicating the current logon process status. It seems that properties such title and scrollbar are no longer supported. I don't have the script at hand right now but I'll post it tomorrow. I can't believe we are the only ones noticing this problem. Thank you very much, Bye Bar Tag: create loop through three recipients email addresses Tag: 165074
  - 24
    - Processing a variable list of input parameters Greetings, I am trying to write a VB script that must check some drives (e.g. disk space). It must be called: check_drive.vbs drive1 drive2 ... driven How can a I process a variable number of args (drive1 to n)? I have tried something like: ... Set oArgs = WScript.Arguments Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Counter = oArgs.Count Do drive = oArgs(Counter) ' Does not work. PROBLEM!!! MsgBox "Message: Drive is " &drive Set Drv = fso.GetDrive(fso.GetDriveName(drive)) ... Counter = Counter - 1 If (Counter = 0) Then ' All parameters were proceded Check = False ' set value of flag to False. End If Loop Until Check = False Any help/suggestion is highly appreciated. Thanks in advance for your help, Kind Regards, Rui Vilao. Tag: create loop through three recipients email addresses Tag: 165069
  - 25
    - Writing extended file info into jpg I recently learned how to read extended file info in this ng (subject: Getting extended File infos of a File). Now how would I update/write this information with vbscript? I have hundreds of images without descriptions. In a database I currently have all my descriptions, subjects, keywords and photo dates. I don't need help with the database part just how to write the properties if it is at all possible. thanks LJB Tag: create loop through three recipients email addresses Tag: 165065
- Next
  - 1
    - Need script to replace ACL. Please Help! :( I have been searching to find a solution to my problem. Basically I need a script that replaces permissions based on the permissions. Example: I want all user who have "Full Control" to be changed to "Modify". I have inherited a share drive with thousands of folders and groups. The people who set the permissions had the right intentions they just set them incorrectly. I appreciate anyone's help. Please let me know if this is in the wrong group. Or, if you know of any other group that may be able to address this issue. Thanks, Ian Tag: create loop through three recipients email addresses Tag: 165064
  - 2
    - Scripting IE Title Problem I have installed SP2 on my XP machine and I also downloaded and installed the WSH 5.6 upgrade. No problems at all! However, it took me awhile to notice that my VB scripts that use IE to display menus have a quirk: when I set the title in the html and do a 'write' operation that the displayed window now has "http://" prefixing my desired title. How do I get rid of the "http://" prefix in the title bar? Thanks in advance... Dick Sutton Tag: create loop through three recipients email addresses Tag: 165059
  - 3
    - How can I maximize window with VBScript? subj Tag: create loop through three recipients email addresses Tag: 165058
  - 4
    - Loading Video on a WebPage. Friends, Any Idea how to load a Video Media on a WebPages. I mean I want the video to play in the web page. Any help is appreciated. TIA -- Santosh Tag: create loop through three recipients email addresses Tag: 165057
  - 5
    - MS Access Report with VBScript I am trying to preview an MS Access report using a client-side VBScript. When I execute the code below, it always prints the report to the default printer, regardless of the view mode selected. I want to be able to either preview the report or save a copy and view it in the default viewer. It appears to be ignoring all of the parameters after the report name. I've also tried saving a copy of the report as a snapshot file using: .OutputTo acOutputReport, "ProjectStats" , acFormatSNP, "D:\snapfiles\test.snp", True but am continually prompted with an "Output to " dialog. <script language=vbscript> Function RunReport (qry, sp, list) Dim oAccess Set oAccess = CreateObject("Access.Application") oAccess.Visible = False oAccess.OpenCurrentDatabase "D:/msp_xp2.mdb" With oAccess.DoCmd .OpenReport "ProjectStats",acViewPreview .close end with End Function </script> Any help is greatly appreciated. Tag: create loop through three recipients email addresses Tag: 165054
  - 6
    - Running VBScript in Outlook 2003 Hi, System Details: Windows XP Professional SP2, Outlook 2003 SP1, IE6 SP2. I have a Java appliaction that constructs a HTML Email and sends it to a mail client. In the HTML Email I have embeded some VBSCRIPT which is called via the ONCLICK event of an <A> tag. In the VBScript I create an XML document then mail it via the Outlook API. On Win2K and Outlook 2000 this worked fine but now, when I click the link in Outlook 2003, nothing happens (no "Cannot Create ActiveX" messages either) !!! I have tried putting the message into the Internet zone (with low security) and the same occurred. I replaced my script with a simple message box call and this never activates either. I've even tried the "One-off-form" registry hack, again to no avail. If I load the sent HTML into a browser it works OK so I am sure the syntax is right. Here is an example of the link and script... <a style="cursor:hand;color:green;text-decoration:underline" onclick="OpenNewMail('test','test')">OK</a> <SCRIPT LANGUAGE="VBSCRIPT"> Sub OpenNewMail(strAddress, strSubjectLine) MsgBox "In OpenNewMail" End Sub </SCRIPT> Can anyone suggest how I can get vbscript to work in a HTML email in Outlook 2003 (has anyone got it to work!)? Is there some sort of new METADATA setting to make the HTML Outlook 2003 friendly perhaps? Any help would be massively appreciated as this is driving me barmy! Cheers sanx Tag: create loop through three recipients email addresses Tag: 165053
  - 7
    - disable IPX without visiting every desk! Hi all. I have seen info on how to set a couple of IPX settings via script, but I cannot figure out how to disable the protocol altogether. Anyone tackle this? Hat to visit each desktop... Tag: create loop through three recipients email addresses Tag: 165048
  - 8
    - Update Windows 2000 registery: Internet Settings: LAN Settings: Automatic Configuration I want to write a simple .VBS file that will change my LAN settings. In my Windows 2000, if I go to Internet Settings >> Connections >> LAN Settings, there is a section in the window called Automatic Configuration. There are two tick boxes: (1) Automatically Detect Settings (2) Use Automatic Configuration Script For some sites, I need only the first tick box checked. For some sites, I need only the second tick box checked. I never need both checked at once, or both unchecked at once. I want to write one VBS file that will check #1. And then a second VBS file to check #2. I was thinking I could use something similar to the following code: Dim WSHShell, RegLocate, RegLocate1 Set WSHShell = WScript.CreateObject("WScript.Shell") On Error Resume Next RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\ProxyByPass" WSHShell.RegWrite RegLocate,"0","REG_DWORD" WScript.Quit ...but I can't find the correct registry item to update. Anybody have any clues? Tag: create loop through three recipients email addresses Tag: 165047
  - 9
    - Select SQL money field incorrect large negative values A production application using VBScript and SQL Server 2000 formats incorrect value for a selected money field. Values between -200,000,000,000 and -455,000,000,000 are displayed incorrectly using formatcurrency. The values are correct in the database. The application works correctly in Windows 2000 but fails in Windows Server 2003. app code: ... strQry = "SELECT fielda, fieldb, amt, ...., Set rsFACTS = oFACTS.Execute(strQry) ... intAmtSGL = rsFACTS("amt") ... %><td width="21%" align="right" ><%=formatcurrency(intAmtSGL)%></td><% ... Field amt = -216556000000 - - ok in database (Viewed via Enterprise Manager) Displays as $36,376,018,631.48 If for example, I update DB with amt = -255000000000 it displays as $29,820,018,631.48 ??? -- Kent Smith Tag: create loop through three recipients email addresses Tag: 165044
  - 10
    - Unbind F&P and Client for MS from all adapters via VBS? I'm looking for a VBS script that will unbind (not un-install) File and Printer sharing, along with Client for Microsoft Networks on all adapters when run under both W2K and XPP? Can anyone help me out here? Thanks dcc Tag: create loop through three recipients email addresses Tag: 165043
  - 11
    - how run as program with different account (at least not current account) i search it via google a guy open a cmd shell and use "runas" to do this work but he use sendkey ,and i find some time ,the windows cant get focus so failed Tag: create loop through three recipients email addresses Tag: 165037
  - 12
    - Count Physical Processors: Exclude Hyperthreading..? Hi there I am currently using the following code snippet to retrieve the number of processors installed on my servers: Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strSrv & "\root\cimv2") Set colSettings = objWMI.ExecQuery _ ("Select Name, MaxClockSpeed from Win32_Processor") For Each objProcessor in colSettings Wscript.Echo strSrv & "," & colSettings.Count & "," & TRIM(objProcessor.Name) 'Wscript.Echo "MaxClockSpeed: " & objProcessor.MaxClockSpeed Exit For Next The problem with this, is that if a Server has Hyperthreading enabled, it reports twice the actual number of physicall processors. Does anyone perhaps know how I can establish whether Hyperthreading is enabled, so then at least I can divide by 2 to get the actual count. Or alternatively, is there a different object that I can query for this..? Thanks William R. Tag: create loop through three recipients email addresses Tag: 165025
  - 13
    - Problem with makecert.exe Hi! I downloaded Ms Platform SDK (for Windows XP SP2 SDK) from http://www.microsoft.com/msdownload/platformsdk/sdkupdate/ I follow the steps mentioned (in the group microsoft.public.dotnet.framework.webservices.enhancements) by Hervey, I get stuck in step 1. When I do: makecert -cy authority -r -n "CN=Test Company" -sr localmachine -ss "Trust" I get an error: Error: Can't create the key of the subject ('JoeSoft') Failed I cannot figure out how to solve this error. Please help me! I have installed/uninstalled SDK a couple of times now thinking it may be an installation problem. Thanks Ipsita Tag: create loop through three recipients email addresses Tag: 165022
  - 14
    - Adding checkbox IF I create checkBox dynamically: Set TD = TR.InsertCell() TD.innerHtml="<INPUT type='checkbox' id='chkNujno"&indeks&"' name='chkNujno"&indeks&"'> When the page is submitted I can't read this checkbox, no matter if checkbox is checked or not. If I create the textbox dynamically: Set TD = TR.InsertCell() TD.innerHtml="<INPUT type='text' style='width:80;TEXT-ALIGN: right' id='kolicinaMax"&indeks&"' name='kolicinaMax"&indeks&"' readonly>" OR anything else, everything works. I can read this textbox on page submit. Why? I can't find the solution. Is this some kind of bug? Thank you, Simon Tag: create loop through three recipients email addresses Tag: 165021
  - 15
    - Message Box activation Hi, I have written a VBScript that uses Send Keys to automate an application. The application dials out to download files and this process of dialing out is initiated within the application. The issue I am having is that the modem occationally fails to dail out and as a result of this there is a message box which pops up resulting in the rest of send keys keystrokes going crazy. Is there a solution in VB which will check the activation of this message box once the send keys initiate the modem dialup and keep looping till around 5 min which will be the max time the modem will take to dialout. I need to add error handling so that only on the apperance of this message box which will indicate the failure of the modem to dailout will the Enter sendkey will be sent and the whole routine restarted.. Const iNormalFocus = 1 Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "FINAL.EXE",iNormalFocus Wscript.Sleep 10000 objShell.SendKeys "" objShell.SendKeys "{TAB}" objShell.SendKeys "" objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "%"+"R" objShell.SendKeys "D" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "R" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "S" #This is were the modem connection is initiated Wscript.Sleep 350000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" objShell.SendKeys "%"+"R" objShell.SendKeys "R" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "E" objShell.SendKeys "~" Wscript.Sleep 100 objShell.SendKeys "%"+"A" objShell.SendKeys "%"+"F" objShell.SendKeys "E" Wscript.Sleep 100 objShell.SendKeys "{DEL}" objShell.SendKeys "l" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 10000 xor Tag: create loop through three recipients email addresses Tag: 165015
  - 16
    - MSScriptControl.ScriptControl I have the next code: Dim Script As Object = CreateObject("MSScriptControl.ScriptControl") I've run this application in WinXP and it works normally, but if I run the application in Win98, the next error comes out: ActiveX component can't create object I've already instaled Windows Script Control in the computer but it didn't work What can I do? Thanks Alejandra Mexico Tag: create loop through three recipients email addresses Tag: 165005
  - 17
    - Execution Problem Hello I have this line in my code: objShell.Run("psexec \\hostx.domain.com -s -u hostx -p hostxpass diruse /s /m /* " & "d:\root\" & " > " & "d:\root\will\test.txt") If I echo the command out, and just copy and paste it into a command prompt, the script executes as expected. However, if I run it using the above code, the command executes fine BUT it does not pipe it out into a file. To double check, I made sure the program ran a longtime, and in the title bar it said \\hostx.domain.com -s -u hostx -p hostxpass diruse /s /m /* d:\root\ > d:\root\will\test.txt Does anybody have any idea why the pipe out is working if I execute it from the command prompt, but not from the Run method? Tag: create loop through three recipients email addresses Tag: 165004
  - 18
    - ANN: Freeware scripting component: PassDlg 2.2 PassDlg.dll 2.2 PassDlg.dll is a freeware ActiveX DLL component for use in programs or scripts that can display four different types of simple password-input dialog boxes. It is useful for WSH scripts that need to request password information. New in version 2.2 is the ability to change the maximum password length, and the default length is now 127 characters. Site: http://home.comcast.net/~stewartb/passdlg/ License: Freeware, no restrictions. Hope this is useful. Regards, Bill Tag: create loop through three recipients email addresses Tag: 165000
  - 19
    - Bridged network adapters Has anyone had success scripting the detection of bridged network adapters on WinXP / Win2K? Something equivalent to viewing the properties of the MAC Bridge Miniport device that is created when you bridge two connections. For example, I would like to determine whether a given machine has bridged an active wireless network adapter with an active ethernet adapter. regards, graham Tag: create loop through three recipients email addresses Tag: 164998
  - 20
    - Scheduled Tasks in Windows Does anybody know how to get the "Last Result" property of a scheduled task in Windows from a VBscript? I assume this would have something to do with WMI? Tag: create loop through three recipients email addresses Tag: 164997
  - 21
    - Starting a local script on remote machine The necessity to install XP-SP2 in a distributed fashion has led me to this quandry. First I could use a login script, but with more than 700 simultaneous connections to one shared drive I feel loading the SP would implode the server. I tried Group Policy Software installation, but it has proven only 20% effective because on quite a lot of the machines (I've got a specific OU dedicated for the SP2 install set at the computer level) don't take it and shows: source Userenv event 1085 User NT Authority\System Group Policy client side extension software installationfailed to execute & Application Manager 108 same user Failed to apply changes to software install So I've been looking for a scripting idea. Now running the below script on a XP sp2 box logged in as Domain Admin to tell another XP box merely to open notepad. Comes back with: ActiveX component can't create object 800A01AD MS VBS runtime error. set oController = CreateObject("WSHController") set oProcess = oController.CreateScript ("c:\notepad.vbs", "ADMWXPBilingual") oProcess.Execute While oProcess.Status <> 2 WScript.Sleep 100 WEnd WScript.Echo "Done" The above computer has the remote setting in the reg, the notepad.vbs works if I run it locally I'm not finding a solution on the internet. Does anyone have any good suggestions, or ideas for deployment products that work? Many thanks Hunter Tag: create loop through three recipients email addresses Tag: 164996
  - 22
    - Help With Checkboxes Hi all, I have the following code to use checkboxes on my page: if instr(Request.form("chkWorkType"),"03") then response.write("<td width=""23%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""03"" checked=""check"">Exterior</td>") else response.write("<td width=""23%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""03"">Exterior</td>") end if if instr(Request.form("chkWorkType"),"7A") then response.write("<td width=""25%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""7A"" checked=""check"">Ceilings</td>") else response.write("<td width=""25%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""7A"">Ceilings</td>") end if There are 14 checkboxes on the form, I only showed the code for two, but the remainder of them are coded the same way. I am trying have one or more of the boxes checked when the page is displayed. I tried to put a value or two in the chkWorkType field: chkWorkType= oRS.fields("shty1") & oRS.fields("shty2") & oRS.fields("shty3") But when I reach the code to display the checkboxes, the chkWorkField returns an empty string. How can I pre-check some of the boxes? Thanks, George *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: create loop through three recipients email addresses Tag: 164995
  - 23
    - services.vbs Guys, im looking for the services.vbs file that ive seen mentioned on some articles as I want to manage some services. can anybody let me know where I can download it from ? Or post it to this NG? Many thanks, Bill5ter Tag: create loop through three recipients email addresses Tag: 164984
  - 24
    - Error Handling with Creating AD Users Hi guys, I'm having some troubles trying to use error handling in my vbscript. My script is to create users in Active Directory, and I want to catch errors like "object already exists" so I can dump a list of users that couldn't be created and so on. The way I've tried to do error handling is basically with an If statement that tests if Err.number <> 0. The problem is that it doesn't catch any of the errors... For example, say I try to create a user for the second time, so that I know it already exists. If I run the script (without "On Error Resume Next") in a command prompt, I get the output something like "C:\createusers.vbs (132, 2) (null): The object already exists." If I run it with "On Error Resume Next" the script just runs to completion without my error handling code being triggered at all. Here's the code. The error is for line 132, indicated. set objUser = parent.create("user", "cn=" & strUser) 132-> objUser.setinfo If Err.Number <> 0 Then Err.Clear Wscript.Echo "User " & strUser & " cannot be created" Wscript.Echo "User may already exist" End If It seems to me that the problem is that these errors have an Err.number of (null). Is that right? Why would that be the case? How can I get around this problem and catch these errors so I can do something with them? Thanks for your help. -Ryan Tag: create loop through three recipients email addresses Tag: 164983
  - 25
    - Running scripts in Outlook forms I have scripts set up in custom Outlook forms that take the information in the various fields and transfers it to an Access database. They are supposed to work and are not. The settings for MACROS in Outlook are set at the lowest security so that doesn't appear to be the problem. Does someone know what "provider" or other add-on is needed to make these scripts work? Tag: create loop through three recipients email addresses Tag: 164981

With iMsg

Set .Configuration = iConf

.To = sRecipients

.From = sFrom

.Sender = sSender

.Bcc = sBcc

.Subject = sSL

.HTMLBody = strHTML

Next

End If

.Send

End With

-----------------

How do I create loop through three recipients email addresses, one at a
time?

Re: create loop through three recipients email addresses by Ray

Ray
Sat Oct 30 12:25:14 CDT 2004

Assuming I understand what you're asking:

Dim aRecip(2)
aRecip(0) = "joe@domain1"
aRecip(1) = "bob@domain2"
aRecip(2) = "kate@domain3"

.From = sFrom
.Sender = sSender
.Bcc = sBcc
.Subject = sSL
.HTMLBody = strHTML
For i = 0 To UBound(aRecip)
.To = aRecip(i)
.Send
Next
End With

Ray at work

"fitful_thought" <cascando@legs.com> wrote in message
news:u%23ZtZzkvEHA.3376@TK2MSFTNGP12.phx.gbl...
> With iMsg
>
> Set .Configuration = iConf
>
> .To = sRecipients
>
> .From = sFrom
>
> .Sender = sSender
>
> .Bcc = sBcc
>
> .Subject = sSL
>
> .HTMLBody = strHTML
>
> Next
>
> End If
>
> .Send
>
> End With
>
> -----------------
>
> How do I create loop through three recipients email addresses, one at a
> time?
>
>
>
>

Re: create loop through three recipients email addresses by fitful_thought

fitful_thought
Sat Oct 30 17:01:37 CDT 2004

Ray,

Thank you very much for that.
It's exactly what I was trying to achieve.

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:%230qOKVqvEHA.1204@TK2MSFTNGP10.phx.gbl...
> Assuming I understand what you're asking:
>
>
> Dim aRecip(2)
> aRecip(0) = "joe@domain1"
> aRecip(1) = "bob@domain2"
> aRecip(2) = "kate@domain3"
>
>
> .From = sFrom
> .Sender = sSender
> .Bcc = sBcc
> .Subject = sSL
> .HTMLBody = strHTML
> For i = 0 To UBound(aRecip)
> .To = aRecip(i)
> .Send
> Next
> End With
>
> Ray at work
>
>
>
>
> "fitful_thought" <cascando@legs.com> wrote in message
> news:u%23ZtZzkvEHA.3376@TK2MSFTNGP12.phx.gbl...
>> With iMsg
>>
>> Set .Configuration = iConf
>>
>> .To = sRecipients
>>
>> .From = sFrom
>>
>> .Sender = sSender
>>
>> .Bcc = sBcc
>>
>> .Subject = sSL
>>
>> .HTMLBody = strHTML
>>
>> Next
>>
>> End If
>>
>> .Send
>>
>> End With
>>
>> -----------------
>>
>> How do I create loop through three recipients email addresses, one at a
>> time?
>>
>>
>>
>>
>
>