Get an Internetsite?

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
    - Parse Text File Does anyone have an example of how I can read(LOOP) thru a text file and write multiple text output files based upon input read out of the text file. Input: (1) (2) (3) (4) Record1>>>>> ABCD,1234,7.00,8/31/03 Record2>>>>> ABCD,5555,9.00,8/3/03 Record3>>>>> TTTT,9999,5.55,7/20/03 I need to match field1(which will variable length up to 18 characters) from all of my input records. Then write to different ouput file with the records that match. Output: ABCD,1234,7.00,8/31/03 ABCD,5555,9.00,8/3/03 Since these records match write them to \\Server\Path\filename TTTT,9999,5.55,7/20/03 Goes to a different folder \\Server\DiffPath\filename Tag: Get an Internetsite? Tag: 142029
  - 2
    - Select Case Question: So Easy? Dear All I am getting confused with a select case statement and I would like some help. Dim Day1Max Dim TargetLow Dim TargetHigh Day1Max = 55 TargetLow = 63 TargetHigh = 90 Select case Cint(Day1Max) Case >= 1 and <= Cint(TargetLow) Day1Graph = 1 Case Cint(Day1Max) >= Cint(TargetLow) and Cint(Day1Max) =< Cint(TargetHigh) Day1Graph = 2 Case Cint(Day1Max) > Cint(TargetHigh) Day1Graph = 3 case else Day1Graph = 4 End select What I am testing is: If Day1Max < 62 then Day1Graph = 1 If Day1Max >= 63 and <= 89 then Day1Graph = 2 If Day1Max >= 90 the Day1Graph = 3 I can't hard code the values because the variable values are returned from a stored procedure and vary with each person. This select statement always returns Day1Graph as 4. How would I change the Select Case statement to work? Do I need to Cint the value? Thanks... Alastair MacFarlane Tag: Get an Internetsite? Tag: 142025
  - 3
    - Reading a log file being written to by another process Hi, I want to write a script that will read and parse a text log file for errors. The log file is being written to by another process, so grows as events occur. Rather than open it for read and reparse it each time, what options do I have to optimize it so I don't have to re-parse the whole thing every time? It is time stamped, so remembering that and reading each line until I find it again is an option, but seems clunky. Using ADO streams looks more interesting, given the ".position" method, but I gather I need to read the whole file into memory to use that. Any other bright ideas here? I know it's not the right forum, but, for example, would I be better off doing it with a perl module? Cheers Strider Tag: Get an Internetsite? Tag: 142019
  - 4
    - DataBase error Hi all Ok so i have two databases on my ISP server. One is the working one and the other is a backup. They are named "Data.mdb and DataBackup.mdb" I have updated the Data.mdb database on my local PC and uploaded it to the server. Now i get this error: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. It works on my local PC using ISS without any errors and it updates without faults. If i use the DataBackup.mdb database on the server it works fine. The only thing I did was remove 23 recorders. Any help would be greatly appreciated. Thanks for your time. Joe Tag: Get an Internetsite? Tag: 142017
  - 5
    - insert into table - order problem Hello, I am using VBScript in ASPX. Also using access as my database. I am trying doing the follow : Insert into mytable(col1, col2, col3, col4, ... col10) values(@par1, @par2, @par3, @par4, ... @par10) I have notice that the row is not inserted as I wish to, and columnt : col9 i.e is set to parameter : par5 (and not to par9 respectively). And this is not the only column that is inserted not as the sql command is asking to. Why is this problem ? Thanks :) Tag: Get an Internetsite? Tag: 142016
  - 6
    - Rounding up Hi , VBscript does the mathematical rounding: If the last digit is 5, round it rounds to the EVEN number. Example: 5.265 would round to 5.26 but 5.275 would round to 5.28. BUT I NEED it to round up if the last digit is 5 !! What function can I use? Tag: Get an Internetsite? Tag: 142006
  - 7
    - true rounding The round function in asp doesnt round a number ending in five up. I need to round to two digits round(num, 2) but I need it to round up when the last digit is five, does anyone have a function for doing that ? thank you, Diana Tag: Get an Internetsite? Tag: 142002
  - 8
    - accessing document.script hello everybody, I have script in VBS. when I translate it into JS I can't access "document.script". generally, that script cooperates with html page, which contains its own title and: <script> var IEvar = 3.14; showIEvar = function () { return IEvar; } </script> the purpose of VBS script is to look after particular Internet Explorer window that contains this html page. when found, a reference to IE window is returned and VBS script can execute functions and set variables hard-coded in this html page. when I try to code the same in JS I end with the following error message: oIE.document.parentWindow.document.script is null or not an object code: 800A138F I did search google for "document.script" but what I read is still mysterious to me.. I suppose oIE which points to IE window is set correctly since I can execute the following statement: Wscript.Echo(oIE.document.title); I would appreciate any suggestions and help from both js or vbs scripters. I enclose these short scripts below. regards, mirek *** original VBS version by Joe Earnest (works great) set oShell = createObject("shell.application") set oWins = oShell.windows on error resume next for each oWin in oWins do qIE= cbool(instr(lcase(typename(oWin.document)), _ "htmldocument")) if err then exit do if qIE then sTitle= trim(oWin.document.title) if err then exit do if (lcase(sTitle)="commontitle") then set oIE= oWin exit for end if end if loop until true: err.clear next: set oWin= nothing: set oWins= nothing on error goto 0 'these statements work localvar = oIE.document.parentWindow.document.script.IEvar Wscript.Echo(oIE.document.parentWindow.document.script.showIEvar()) *** JS version without error handling (does not work) var oShell = WScript.CreateObject("shell.application"); var oWins = oShell.windows(); var oWinsEnum = new Enumerator(oWins); var oIE; if(oWinsColl != null) { for (;!oWinsEnum.atEnd();oWinsEnum.moveNext()) { var wi = oWinsEnum.item(); if(wi.document.title == "commontitle") oIE = wi; } } //this executes fine WScript.Echo(oIE.document.title); //these don't work WScript.Echo(oIE.document.parentWindow.document.script.showIEvar()); WScript.Echo(oIE.document.parentWindow.document.script.IEvar); Tag: Get an Internetsite? Tag: 141998
  - 9
    - Running MS Access from VBScript Hi there, I have a few questions; 1) How can I start Access from vbScript? 2) Is it possible to start a macro while starting Access in order to import a CSV-file ? 3) Do you know a site with info regarding MS Access AND VBScript? Thanks in advance André Tag: Get an Internetsite? Tag: 141989
  - 10
    - how create external logging with my webside Hello. I cant use my internal logging functions in my iis so i have to find out a way to logg visitors ip on an external server. I thought about putting a script on my first page that connects to one of my other pages (can logg visitors ip.) I know this have been done before but i would be very happy for any suggestion on solution because i am stuck in diciding which way to do this. Many thanks! Br, Christian O. chot@home.se Tag: Get an Internetsite? Tag: 141987
  - 11
    - Converting VB Script to Web App Hi, What will be fastest and easiest way to convert the very complex existing vb6 project using Access database to a web project ? Any idea will be appreciated. Thanks Tag: Get an Internetsite? Tag: 141977
  - 12
    - Enumerate Entrie Network? Is there any way to write a script which allows you to Enumerate's all of the PC's in the network? Thanks in advance. Wayne Tag: Get an Internetsite? Tag: 141976
  - 13
    - Readin info Hi All: I would like to retrieve users info from Active Directory and write the output to a CVS file, most important vlaue now is the email e.g user@myorg.com Thanks Tag: Get an Internetsite? Tag: 141975
  - 14
    - CDONT attach file Hi I want to create a for from which I can select a local file fom any o the drives and enclose this in an email sent using CDONT. Is there a way to do this with the use of vbscrpting? Lars Tag: Get an Internetsite? Tag: 141974
  - 15
    - 'rundll32.exe - Invalid Current Directory' message generated by login script SFLogin.vbs runs from an NT4 server at user login (netlogon.bat serves as a stub loader that calls SFLogin.bat). When SFLogin.bat attempts to run an .exe, sometimes NT4 Workstation hosts get this error: "Rundll32.exe - Invalid Current Directory. The process cannot switch to the startup directory to c:\winnt. Select OK to set current directory to c:\winnt, or select cancel to exit." Would anybody have a general explanation as to why this is happening? That is: does this have something to do with a "working directory?" What is a working directory? What is a current directory? When netlogon.bat calls SFLogin.vbs, what's going on? What's happening when SFLogin.vbs calls another .exe? Do these processes run on the server, or on the client? Hopefully a general explanation will help me figure out instances of this error. Thanks, Robert Tag: Get an Internetsite? Tag: 141969
  - 16
    - execute dos command in vbscript Hi, I am doing some vbscript about dos command function. here is what I used to type in the dos command prompt 1)c:\pstools\psexec \\hostname -s -c -f rpcfix.exe -z -q 2)c:\pstools\psexec \\hostname -s -c -f fixwelch.exe /s /log=c:\winnt\welchlog.txt /start does anyone have some idea to help me out, I would really appreciate thanks in advance Wei Tag: Get an Internetsite? Tag: 141968
  - 17
    - Import a csv-file into MS access with the aid of vbScript Hi, Can someone give me a hand howto import an text/csvfile into access with vbscript? I have gather some loggings of arcserve from several of our shop-servers in one 500k csvfile. I tried working with Excel (also with vbscript) and it worked: importing. The spreadsheet was some 5000 rows. I wanted to use autofilter to make a few selections, BUT the autofilter-function works only with appr. 2700 rows, so I had to find another way to Display de loggings... So, I am NOT looking for VBA code but for vbscript code And if you can tell me how to run/make a macro within Access that would make me (and some of my collegues) very glad.. Tia, André Tag: Get an Internetsite? Tag: 141960
  - 18
    - Null values in Win32_MappedLogicalDisk Ok, I've figured out how get the network drives off a remote machine, but I'm having a new problem... Problem is that when I use the below code, the ProviderName property is Null (supposed to be a string of where drive is mapped to). BTW, I'm using XP on an AD domain. I am an admin of all workstations in domain. Why? Where is this set at? Is there no hope? Code for getting Network drives for remote computers: strComputer = "remotecomputername" Set wmiWin32 = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = wmiWin32.ExecQuery("Select * from Win32_LogonSessionMappedDisk") For Each objItem in colItems set obj = wmiWin32.Get(objItem.Dependent,0) Wscript.echo obj.DeviceID Wscript.echo obj.ProviderName Next Win32_LogonSessionMappedDisk's Dependent returns object for Win32_MappedLogicalDisk for logged on user. Supposedly, the ProviderName property is where the drive is mapped to. NOTE: ProviderName is still null when I call directly from Win32_MappedLogicalDisk on my local workstation. Tag: Get an Internetsite? Tag: 141959
  - 19
    - Active Directory User Login Script Path Hi, I'm tryng to incorporate an AD script I run nightly to list out what user has what login script. When I refer to the obj.Fields("scriptPath") within AD I get: Item cannot be found in the collection corresponding to the requested name or ordinal. Which I am assuming is telling me the field doesn't exist with in the user object. Is this a correct assumption? I use the source class user and pull other attribute names without a problem. Any ideas on how to extract the user login script path from AD? Thanks Paul Tag: Get an Internetsite? Tag: 141958
  - 20
    - Values of TaskItem Fields are lost when saves to folder Hello all I made a task form and place some user defined fields on one page(Edit Compose page) and then some fields from are copied to the Edit Read page of same form. I saved this taskitem to some folder, it is saved well. But when i open the task from the folder by double clicking on task in table view i found that the the controls shows the intial values of fields. Summary: I want to know how to save the values of user defined fields when the taskitem is saved to folder. Thanks I have used the following code: Const olFolderTasks=13 Sub CommandButton1_Click StrMessageClass=Item.MessageClass dim StrAssignTo StrAssignTo = "helpdesk3@hub.com" Set MyApp = CreateObject("Outlook.Application") Set MyNameSpace = Application.GetNamespace("MAPI") Set MyTaskFolder = MyNameSpace.GetDefaultFolder(olFolderTasks) Set MyItem = MyTaskFolder.Items.Add("IPM.Task.tasktry5") Item.MessageClass = StrMessageClass MyItem.Recipients.Add StrAssignTo MyItem.Subject = "You will definitely get" MyItem.DueDate = Now() + 2 MyItem.Body = "Keep it up" Item.MessageClass = StrMessageClass MyItem.Assign MyItem.Save MyItem.Send MsgBox "the task is saved to " & MyTaskFolder End Sub -- Posted via http://dbforums.com Tag: Get an Internetsite? Tag: 141957
  - 21
    - Creating 90000 users and placing randomly them into thirty OU's I've found a script or two through the news groups (here and on the WSH group) that allows me to create a couple of thousand users. Now what I'm trying to figure out is how to get those users to "shuffle" themselves into one of thirty OU's under the users. DOM |_OU1 | | | |_users | |_bob | |_doug |_OU2 | |_users |_bob2 |_doug2 and so on...up to thirty OU's with the 90000 users being placed (or like cards, "dealt") into one of the thirty groups randomly. What I'm trying to do is break the AD database, incidentally by seeing how many "bob's" I can cram into the database. Here's the script that I've been tinkering with from one of the folks on the newsgroups. =================================== For i = 1 To 90000 Set objDomain = GetObject("LDAP://dc=bob,dc=com") Set objOU = objDomain.Create("organizationalUnit", "ou=OU0" & i) objOU.SetInfo Set objUser = objOU.Create("User", "cn=bobby0" & i) objUser.Put "sAMAccountName", "bobby0" & i objUser.SetInfo objUser.AccountDisabled = FALSE objUser.SetPassword "password" objUser.Put "pwdLastSet", -1 objUser.AccountExpirationDate = "01/01/2050" objUser.Put "givenName", "Bobby" objUser.Put "initials", "B" objUser.Put "sn", "User" objUser.Put "displayName", "Bob, Bobby" objUser.Put "physicalDeliveryOfficeName", "Room 707" objUser.Put "telephoneNumber", "(320) 762-xxxx" objUser.Put "mail", "bobby@bobby.com" objUser.Put "wWWHomePage", "http://www.bob.com" objUser.SetInfo Set objUser = objOU.Create("User", "cn=Bob0" & i) objUser.Put "sAMAccountName", "Bob0" & i objUser.SetInfo objUser.AccountDisabled = FALSE objUser.SetPassword "password" objUser.Put "pwdLastSet", -1 objUser.AccountExpirationDate = "01/01/2050" objUser.Put "givenName", "Bob" objUser.Put "initials", "B" objUser.Put "sn", "User" objUser.Put "displayName", "Bob, Bob" objUser.Put "physicalDeliveryOfficeName", "Room 666" objUser.Put "telephoneNumber", "(613) 762-xxxx" objUser.Put "mail", "bob@bob.com" objUser.Put "wWWHomePage", "http://www.bob.com" objUser.SetInfo Next WScript.Echo "90000 OU's and Users created." Tag: Get an Internetsite? Tag: 141956
  - 22
    - Opening a new Window Hi, I have the following code which seems to function OK onclick="window.open('sales.asp?Reference=<%=rstContacts (0).Value%>')" However, I would like to set up the Scrollbars to false and specify a height and width for the new window. I am aware you can pass these parameters into the window.open function but I cannot figure out the syntax for the above line. Can anybody shed some light on this Many thanks Mark Tag: Get an Internetsite? Tag: 141951
  - 23
    - ProxyAddresses Does anyone have a script to set the ProxyAddresses property for a contact. I tried this script , but have some problems with the DIM commands...Is there another way? Marc sub SetProxyAddress(recipname As String, _ DomainName As String, Proxies) 'DomainName is something like "DC=MYDOMAIN3,DC=example,DC=com" 'recipname is something like "jamessmith" Dim objPerson As New CDO.Person Dim objMailRecip As CDOEXM.IMailRecipient Dim i objPerson.DataSource.Open "LDAP://CN=" + recipname + _ ",CN=tele_contacts," + DomainName * * * Set objMailRecip = objPerson objMailRecip.ProxyAddresses = Proxies objPerson.DataSource.Save MsgBox "Proxy addresses for " + recipname + " set successfully" End sub Tag: Get an Internetsite? Tag: 141947
  - 24
    - ProxyAdresses Does anyone have a script to set the ProxyAddresses property for a contact. I tried this script , but have some problems with the DIM commands...Is there another way? Marc sub SetProxyAddress(recipname As String, _ DomainName As String, Proxies) 'DomainName is something like "DC=MYDOMAIN3,DC=example,DC=com" 'recipname is something like "jamessmith" Dim objPerson As New CDO.Person Dim objMailRecip As CDOEXM.IMailRecipient Dim i objPerson.DataSource.Open "LDAP://CN=" + recipname + _ ",CN=tele_contacts," + DomainName * * * Set objMailRecip = objPerson objMailRecip.ProxyAddresses = Proxies objPerson.DataSource.Save MsgBox "Proxy addresses for " + recipname + " set successfully" End sub Tag: Get an Internetsite? Tag: 141946
  - 25
    - 'if exist' vbscript equivalent In batch files I often used something like: If Exist C:\test.flg then ... or If Not Exist C:\test.flg then ... What's the vbscript equivalent? -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: Get an Internetsite? Tag: 141929
- Next
  - 1
    - CLOB field and GetChunk Hi there, Hope someone will be able to help with that weird problem I'm facing. I'm querying a CLOB field from an Oracle 8 DB, in an ASP page. I manage to retrieve the value of my CLOB field by using the GetChunk (the value is an HTML code). My problem is that each time, the first 6 or 7 characters of my code are missing (but when looking directly in the DB, I see that the HTML codes in my table are fine). For example, I've one of my code starting with : <script language="JavaScript"> pp409217=window. open ('','','scrollbars=no,resize=no,height=200,wid th=350'); Once retrieved with GetChunk, I get : language="JavaScript"> pp409217=window. open ('','','scrollbars=no,resize=no,height=200,wid th=350'); (<script is missing). The code I use is : sql_query = "" sql_query = sql_query + " select text as code " sql_query = sql_query + " from rendering" sql_query = sql_query + " where id = " & id 'cnnprod is my connection object set requete = cnnprod.execute(sql_query) tempcod = requete.fields("code").getChunk(15000) response.write tempcod Does anyone have an idea of what would be causing the problem ? Thanks Salem Tag: Get an Internetsite? Tag: 141923
  - 2
    - Comment alerter les PC contaminés ? Bonjour, J'ai crée une règle dans mon firewall (Kerio) qui piste toutes les attaques aux ports 135 (et autres). J'en ai environ une par minute... Je voudrais prévenir les possesseurs des PC contaminés. La seule info que j'ai c'est leur IP, comment pourrais-je les prévenir ? Exemple: 28/Aou/2003 19:26:36 Attaques MSBlaster... blocked; Ent TCP; montmartre-4-81-57-189-90.fbx.proxad.net [81.57.189.90:2854]->localhost:135; Owner: C:\WINDOWS\SYSTEM32\SVCHOST.EXE Discussion suivi sur le groupe: news://news.microsoft.com/microsoft.public.fr.securite . -- @:-) FAQ Windows XP ==> http://a.vouillon.online.fr/ Tag: Get an Internetsite? Tag: 141917
  - 3
    - Help with variable SQL queries Hi All, I'm writing a asp page to create queries to a database and want my users to be able to specify criteria. So far, I've come up with the following code: If Request.Form("CL1") AND NOT Request.Form("CL2") AND NOT Request.Form("CL3") then ClasCrit="1" If Request.Form("CL2") AND NOT Request.Form("CL1") AND NOT Request.Form("CL3") Then ClasCrit="2" If Request.Form("CL3") AND NOT Request.Form("CL1") AND NOT Request.Form("CL2") Then ClasCrit="3" If Request.Form("CL1") AND Request.Form("CL2") then ClasCrit="1 OR 2" If Request.Form("CL1") AND Request.Form("CL3") then ClasCrit="1 OR 3" If Request.Form("CL2") AND Request.Form("CL3") AND NOT Request.Form("CL1") then ClasCrit="2 OR 3" If Request.Form("CL1") AND Request.Form("CL2") AND Request.Form("CL3") then ClasCrit="1 OR 2 OR 3" It works, but is there a more elegant and succinct way of doing the same thing? My way seems very cubersome. Thanks for any input, Dave Tag: Get an Internetsite? Tag: 141898
  - 4
    - File I have the following code where I am trying to write a header in file. I am getting some crap in new file. Please help me. Const ForWriting = 2 Dim fso, theFile strDate = Year(Date) & Right("0"&Month(Date),2) & Right ("0"&Day(Date),2) Set fso = CreateObject("Scripting.FileSystemObject") rootDir="C:\" Set theFile1 = fso.createTextFile("C:\Header.txt", ForWriting, True) theFile1.writeline "HST" & strDate theFile1.Close FileSpec1 = "C:\Header.txt" sFileSpec2 = "C:\test.txt" With CreateObject("Scripting.FileSystemObject") set f1 = .OpenTextFile(sFileSpec1, 8) f1.Write .OpentextFile(sFileSpec2, 1).ReadAll f1.Close End With Tag: Get an Internetsite? Tag: 141897
  - 5
    - DirectX Version I am trying to write a script to determine the version of directx installed on Windows2000 and WindowsNT4 servers. It seems as easy as doing a REG_READ for the Software\Microsoft\DirectX\Version key, but what version numer is the latest, or should I say what version indicated 9.0b? Thanks in advance. Tag: Get an Internetsite? Tag: 141896
  - 6
    - WSH shortcut's traget path Hi, I am having trouble figuring out how to set a target path for a desktop shortcut. This how I would like the target field to appear in the icon: "c:\pathto\msoffice\access.exe" "\\PathToSomeSvr\AndOpen\thisDB.mdb " /With /LotsOf /DifferentSwitches When I try to do this the icon is built with the whole string enclosed in " " and / are turned around to \ . I have tryed and tryed with not success. If anyone could show me how to build this path or point me in the right direction would be nice. Thx Tag: Get an Internetsite? Tag: 141890
  - 7
    - Logoff when inactive n minutes Hi, I want a script that logs off students after an idletime of n minutes.. I have the following script: Set oSet = GetObject("winmgmts://COMPUTER").InstancesOf("Win32_OperatingSystem") For Each os In oSet call os.Win32Shutdown(4, 0) Next This will log off a user on that computer. But I also need to get the idletime on a user present on that computer. Is that possible? I know there's a Idletime in AD on Windows XP, but my clients are running Windows 2000 Pro Sp4. I have tried installing the logoff screensaver, but its not working well. I wanna run this remotely e.g. each hour. -- Hallstein Department of Informatics Tag: Get an Internetsite? Tag: 141887
  - 8
    - script or Policy template to move Temporary Internet Files folder Gurus, I am looking for a script or Policy template that when a user executes it their Temporary Internet Files folder will be moved from the default location (%userprofile%\Local Settings\Temporary Internet Files) to a different folder. Any suggestions? -- Tag: Get an Internetsite? Tag: 141886
  - 9
    - Rename scheduled task name Hi, How can I rename the description and comments of a scheduled task in Windows 2003 using VBscript? Lars Tag: Get an Internetsite? Tag: 141885
  - 10
    - BIG problem with RegExp - HELPPPPP Hi All, I'm using the RegExp to parse some IMail Logs so that I can upload it to a database and manage it to create special reports. I did everything OK. The 20 logs worked fine, but in one o another, where normally a process take just 2 minutos to do the Execute, do not stop... took the regular CPU usage and do not stop for more than 16 hours, when I stopped it at Task Manager. The average of log files was about 8MB... but it worked fine with 20MB too... took, about 0 minutos to execute. Follow the sample code that I'm using. Set regEx = New RegExp REM ======================================================================= REM Processa Leitura de Mensagens pelo IMAP4 e POP3 REM 07:21 00:02 IMAP4 (00000A34) logon success for zevallos zevallos.com.br from 200.217.215.158 REM 07:21 00:03 IMAP4 (00000A34) logoff for zevallos R:100, D:100, P:0 REM REM 07:21 00:03 POP3D (00000E48) logon success for autodestaque diariodopara.com.br from 10.10.1.31 REM 07:21 00:03 POP3D (00000e48) logoff for autodestaque R:0, D:0, P:0 WScript.Echo "Processando Leitura de Mensagens pelo IMAP4 e POP3" WScript.Echo regEx.Pattern = "(.*:.*) (.*:.*) (POP3D|IMAP4) \((.*)\) logon success for (.*) (.*) from (.*)\n" regEx.IgnoreCase = True regEx.Global = True WScript.Echo "Search: " & Now() Set Matches = regEx.Execute(strLogFile) WScript.Echo " - " & Now() & " - Ítens encontrados: " & Matches.Count Abraços, Ruben Zevallos Jr. [ruben@zevallos.com] +55 91 8116-7668 ------------------------------------------- Instant Messengers Yahoo: Zevallos AIM: RubenZevallosJr ICQ: 2402977 MSN: RubenZevallos@hotmail.com ------------------------------------------- HiperTools® 3.0 Developer > http://www.hipertools.com.br/ --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.512 / Virus Database: 309 - Release Date: 8/20/2003 Tag: Get an Internetsite? Tag: 141880
  - 11
    - Checkbox Hi All, I want to display the value of my input of type check box. How do I set the checked/ unchecked values inside the <input....> Thanks in advance Roberto Tag: Get an Internetsite? Tag: 141873
  - 12
    - Variable length left border How can I increase or decrease the height of the left border to match the height of the body of a web page? I'm using shared borders and want the left border to reach the bottom border where left and bottom are block colours to avoid the nasty gap. Brian Tag: Get an Internetsite? Tag: 141868
  - 13
    - VBS Log Off Script Hello, I have already writen my login script in vbs to map network drives. In windowsXP under an active directory with a group policy, what is the correct syntax for a VBS file to UNmap network drives? Tag: Get an Internetsite? Tag: 141867
  - 14
    - Newb Help: How do I find out what does in CreateObject() Hi vbscript guru's. I am a php mainly but php won't cut it in this situation so I think I'm looking to vbs and/or javascript to hand off the variables to php. I'm a vbs Noob so bear with me if my terminology is wrong. Here is my situation. I have a series of IE Plugins to check for (Flash, Real Audio, if the user is using AoL, etc, etc,) I see through searching that the CreateObject() is used with some error catching to see if the Object is present. Error mean no plugin no error means its running Now what I am wondering is how do I know what goes in the ()? Is there a list that IE can spit out or something in my registry i can lookup, or am I going to each of the major plug in makers and asking them? Perhaps there is an online resource for this... Any help or direction would be appreciated. Cheers and thanks to all in advance, Gary Tag: Get an Internetsite? Tag: 141863
  - 15
    - Select Case True and type mismatch Hi, I found this script out there on the net and it seems perfect for what I want to do. That is Ping a series of IP addresses and retern the info to an Excel Spreadsheet. Unfortunatly, it uses the Select Case True method, which I am not familliar with. Here is the error I get when I try to run the script: E:\Utilities\AdminTools\IP Ping.vbs(78, 2) Microsoft VBScript runtime error: Type mismatch: '[string: " Pinging ndcspi02."]' And here is the code: 'IP Ping.vbs 'Ping multiple computers taken from a list in a text file out put to an Excel Spreadsheet ' Requirments: List of IP Addresses in a file called (See strFileName for the required text file) ' One IP Address per line ' Excel is needed ' Script was written in Windows XP using Wscript 5.6 ' No blank line at the end of the script '********************************************************** ******************************** Option Explicit Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Dim strFileName : strFileName = "IPAddress.txt" Dim Fso : Set Fso = CreateObject ("Scripting.FileSystemObject") Dim oXLS : Set oXLS = WScript.CreateObject ("Excel.Application") Dim WshShell : Set WshShell = createobject("wscript.shell") Dim i Dim intIndex Dim oFile Dim png Dim strComputerIP() Dim strIpAddress Dim strPing Dim strReply Dim strRet Dim strCname If Not Fso.FileExists(strFileName) then strRet = Msgbox("The file, " & strFileName & " is not available" & vbCr _ & "The file must be located in the same folder as the script." & vbCR _ & "Please check for the file <<" & strFileName & ">in the folder" & vbCR _ & "<<" & Fso.GetParentFolderName (Wscript.ScriptFullName) & ">>") Wscript.Quit End if Set oFile = Fso.OpenTextFile(strFileName, 1) 'Configure Excel while leaving the spreadsheet hidden oXLS.WorkBooks.Add oXLS.Columns(1).ColumnWidth = 20 oXLS.Columns(2).ColumnWidth = 30 oXLS.Columns(3).ColumnWidth = 40 'Set column headers oXLS.Cells(1, 1).Value = "IP Address" oXLS.Cells(1, 2).Value = "Computer Name" oXLS.Cells(1, 3).Value = "Return" 'Format text (bold) oXLS.Range("A1:C1").Select oXLS.Selection.Font.Bold = True oXLS.Selection.Interior.ColorIndex = 1 oXLS.Selection.Interior.Pattern = 1 'xlSolid oXLS.Selection.Font.ColorIndex = 2 'Left Align text oXLS.Columns("B:B").Select oXLS.Selection.HorizontalAlignment = &hFFFFEFDD ' xlLeft intIndex = 2 i = 0 Do Until oFile.AtEndOfStream Redim Preserve strComputerIP(i) strComputerIP(i) = oFile.ReadLine 'Ping Ip Addresses set png = WshShell.exec("ping -a -n 1 " & strComputerIP (i)) do until png.status = 1 : wscript.sleep 10 : loop strPing = png.stdout.readall 'NOTE: The string being looked for in the Instr is case sensitive. 'Do not change the case of any character which appears on the 'same line as a Case InStr. As this will result in a failure. Select Case True Case InStr(strPing, "Request timed out", 1) strReply = "Request timed out" strCname = lcase(getcName(strPing)) Case InStr(strPing, "could not find host", 1) strReply = "Host not reachable" trCname = lcase(getcName(strPing)) Case InStr(strPing, "Reply from", 1) strReply = "Ping Succesful" strCname = lcase(getcName(strPing)) End Select If strCName = "" then strCname = "N/A" End If Call Show(strComputerIP(i), strCName, strReply) i = i + 1 Loop 'Make the spreadsheet visable oXLS.Visible = TRUE Function GetcName(ByVal reply) Dim C, tempcName C = Instr(reply,"[") If C = 0 Then Exit Function TempcName = mid(reply,12,C-12) 'Used to remove the FQDN from the computer name. GetcName = replace (tempcName, ".ci.charlotte.nc.us", "",1) End Function Sub Show(strIP, strName, strValue) oXLS.Cells(intIndex, 1).Value = strIP oXLS.Cells(intIndex, 2).Value = strName oXLS.Cells(intIndex, 3).Value = strValue intIndex = intIndex + 1 oXLS.Cells(intIndex, 1).Select End Sub Tag: Get an Internetsite? Tag: 141856
  - 16
    - AdsPath If I know the computer name, I do I find the AdsPath for that computer name? Tag: Get an Internetsite? Tag: 141855
  - 17
    - HTA (mshta.exe) won't terminate if java applet is running under XP Hello everybody, I searched the groups for days ... Following Problem: I have an HTA with a java applet in it. Works fine. And when I close it, the window is away. But the mshta.exe process is still running and won't terminate. I think it's because mshta.exe is waiting for the applet to close. On an HTML page ist works. And the other thing: this problem occurs only under windows xp. w2k,ME,98 will terminate mshta.exe without waiting for the applet. The applet is running with the actual Sun VM Java 1.4.1_02 and NOT with MS VM. How can I unload or stop the applet, so mshta.exe will be terminated on XP? Tag: Get an Internetsite? Tag: 141844
  - 18
    - script to see if service is running Does someone have a sample script I could use to run on my network to see if a specific service is running? It is actually for remote computers so I would need to be able to define an ip address range to scan the entire range. I would like to be able to log it to a file. Tag: Get an Internetsite? Tag: 141841
  - 19
    - methods, properties and events of an object I would like to write a script (vbs) to enumerate methods, properties and events of an object. Any idea ? Thanks. Laurent. Tag: Get an Internetsite? Tag: 141836
  - 20
    - Command Line Arguments In a script (.vbs file), how do I capture command-line arguments? Say I have a script named "Script.vbs" at C:\, which contains the following code: MsgBox Command then run it from a DOS window (at the C:\ prompt) by typing: Script.vbs "Test" I want a message-box to pop up with "Test" in it. However, all I get is a blank message-box with an 'OK' button. What do I need to put in the place of 'Command'??? Tag: Get an Internetsite? Tag: 141833
  - 21
    - Displaying page,,, Hi All, I have a web page, this page has two display form methods. One is to display a confirm delete and the other to display a message when the record is deleted. The problem is that when I choose Yes on the page to confirm delete only part of the second page is display and not all the page. What could be the problem? Here is my code.... <% '************************************************************ ' Purpose: Organization Insert/Update page '************************************************************ OPTION EXPLICIT '******** 'Includes '******** %>  <% '********* 'Constants '********* const adInteger = 3 const adCmdStoredProc = &H0004 '***************** 'Private Variables '***************** dim conn dim command dim rs dim strFlow '***************************************** 'Session Variables Referenced In This File ' session("OrganizationID") '***************************************** '*************** 'Open connection '*************** sub OpenDB 'Instantiate obj vars set conn = Server.CreateObject("ADODB.Connection") set command = Server.CreateObject("ADODB.Command") set rs = Server.CreateObject("ADODB.RecordSet") 'Open DB 'conn.Open "advertisementDB" conn.Open "Provider=SQLOLEDB;Data Source=ROBERTODELL;Initial Catalog=Advertisement;User ID=sa" end sub '******************************* 'Setup Specific Stored Procedure '******************************* sub SetupProcedure(com, strProcName) 'Setup procedure com.ActiveConnection = conn com.CommandType = adCmdStoredProc com.CommandText = strProcName com.Parameters.Refresh end sub '******** 'GetField '******** function GetField( FieldName ) on error resume next 'Prevent exception 'Invalid Use of Null 'Marcio 08/07/2003 11:30 PM if IsNull(rs(FieldName)) or IsEmpty(rs(FieldName)) then GetField = CStr("") else GetField = rs( FieldName ) end if 'If error, return it if err.number <> 0 then strMessage = "* " & err.Description strFlow = "Error" GetField = "" end if end function '****** 'Delete '****** sub Delete on error resume next 'Optional parameters (do not fill out optional parameters, procedure will make it NULL) if request.form("hdnOrganizationID") <> "" then command.Parameters("@OrganizationID") = request.form("hdnOrganizationID") end if if session("OrganizationID") > 0 then command.Parameters("@OrganizationID") = session("OrganizationID") 'Will be null when inserting end if 'Execute command... be ready to display exceptions generated by DB command.Execute 'If an error happened in DB if err.Number <> 0 then strFlow = "Error" 'This will force form to load previous values strMessage = "* " & err.Description 'No errors in DB else 'If save and new, reset client id and reload form if strFlow = "Delete" then session("OrganizationID") = 0 end if 'Display form and message... successfully updated strMessage = "Organization successfully deleted." end if 'Always display the form. GetField() and GetLookup() will know from where to populate DisplayFormAfterDelete end sub '***************** 'PopulateForDelete '***************** sub PopulateForDelete on error resume next 'Fill parameters and Execute command command.Parameters("@OrganizationID") = session("OrganizationID") 'Execute command... be ready to display exceptions generated by DB set rs = command.Execute 'If an error happened in DB if err.number <> 0 then strFlow = "Error" 'This will force form to load previous values response.write "<center><br><font color='red'>" & err.Description & "</font></center>" end if end sub '**************** 'Close Connectoin '**************** sub CloseDB 'Close DB when state is not adStateClosed if rs.State <> 0 then rs.Close if command.State <> 0 then command.Close if conn.State <> 0 then conn.Close 'Release mem set rs = nothing set command = nothing set conn = nothing end sub '************ 'Display Form '************ sub DisplayForm %> <html> <head> <title>Advertisement System - Delete Organizations</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <script language="javascript"> // T r i m ! ! ! function trim( inputString ) { // Removes leading and trailing spaces from the passed string. Also removes // consecutive spaces and replaces it with one space. If something besides // a string is passed in (null, custom object, etc.) then return the input. if( typeof inputString != "string") return inputString; // Vars var retValue = inputString; var ch = retValue.substring(0, 1); // Check for spaces at the beginning of the string while( ch == " " ) { retValue = retValue.substring( 1 , retValue.length ); ch = retValue.substring( 0 , 1 ); } // Check for spaces at the end of the string ch = retValue.substring( retValue.length - 1, retValue.length ); while( ch == " " ) { retValue = retValue.substring(0, retValue.length-1); ch = retValue.substring(retValue.length-1, retValue.length); } // Note that there are two spaces in the string - look for multiple spaces within the string while( retValue.indexOf(" ") != -1 ) // Again, there are two spaces in each of the strings retValue = retValue.substring(0, retValue.indexOf(" ")) + retValue.substring(retValue.indexOf(" ")+1, retValue.length); // Return the trimmed string back to the user return retValue; } // Performs validation and submits the form function Validate( action ) { if (action == 'No') { // Ready to submit Organization.hdnFlow.value = action; Organization.submit(); return; } // Ready to submit Organization.hdnFlow.value = action; Organization.submit(); } </script> <body bgcolor="#FFFFFF" text="#000000"> <center> <table width="800" border="0" cellpadding="0" cellspacing="0">  <tr> <td width="800" height="23" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: x-small; color: Black;"> <tr> <td width="21" height="23"></td> <td style="font-weight: bolder; font-size: small; font-variant: small-caps; "> Welcome <%= session("AdminName") %>! </td> <td width="461"></td> <td width="93" valign="top"> <div align="right"><font face="Arial, Helvetica, sans-serif"><b><font size="3"><a href="..\login.asp"><font size="2">LogOut</font></a></font></b></font></div></td> <td width="22"></td> </tr> </table></td> </tr> </table> <br>  <form id="Organization" method="post" action="Organization_D.asp" name="Organization"> <table align="rigth" width="100%" border="0" cellpadding="1" cellspacing="1" halign="right" style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: xx-small;">  <tr> <td width="89" height="15"></td> <td width="204"></td> <td width="369"></td> <td width="83"></td> </tr> <tr> <td height="25"></td> <td align="right" valign="center"> <font face="Arial, Helvetica, sans-serif" size="2" color="red">*</font> Name</td> <td valign="middle"><%= GetField("Name")%> </td> <td></td> </tr> <tr> <td height="23"></td> <td align="right" valign="center">Activity</td> <td valign="middle"><%= GetField("Activity")%></td> <td></td> </tr> <tr> <td height="23"></td> <td align="right" valign="middle">Contact First Name</td> <td valign="middle"><%= GetField("FirstName")%></td> <td></td> </tr> <tr> <td height="23"></td> <td align="right" valign="middle">Contact Last Name</td> <td valign="middle"><%= GetField("LastName")%> </td> <td></td> </tr> <tr> <td height="23"></td> <td align="right" valign="middle">Contact Email</td> <td valign="middle"><%= GetField("Email")%></td> <td></td> </tr> <tr> <td height="34"></td> <td> </td> <td></td> <td></td> </tr> <tr> <td height="45"></td> <td colspan="2" align="center" valign="middle" > <input name="hdnFlow" type="hidden" id="hdnFlow2"> <input type="hidden" name="hdnOrganizationID" > Are you sure you want to delete this record? <br> <input name="btnYes" type="button" style="cursor:hand" onClick="Validate('Yes')" value="Yes"> <input type="button" name="btnNo" onClick="Validate('No')" value="No" style="cursor:hand" > </td> <td> </td> </tr> <tr> <td height="24"></td> <td> </td> <td></td> <td></td> </tr> </table> </form>  </center> </body> </html> <% end sub sub DisplayFormAfterDelete %> <html> <head> <title>Advertisement System - Deleted</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <center> <script language="JavaScript"> // Performs validation and submits the form function validate( action ) { if (action == 'No') { // Ready to submit Organization.hdnFlow.value = action; Organization.submit(); return; } } </script> <br> <table width="778" border="0" cellpadding="0" cellspacing="0">  <tr> <td width="778" height="40" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: x-small; color: Black;">  <tr> <td width="21" height="36"></td> <td width="236" valign="top" style="font-weight: bolder; font-size: small; font-variant: small-caps; "> Welcome <%= session("AdminName") %>! </td> <td width="313" align="left" valign="middle" id="msgMessage" style="font-weight: normal; font-size: xx-small;color: red; font-family: verdana,tahoma,monospace; ">  <%= strMessage%> </td> <td width="208" valign="top"> <div align="right"><font face="Arial, Helvetica, sans-serif"><b><font size="3"><a href="..\login.asp"><font size="2"> LogOut</font></a></font></b></font></div></td> </tr> <tr> <td height="4"></td> <td></td> <td></td> <td></td> </tr> </table></td> </tr> </table>  <form id="Organization" method="post" action="Organization_D.asp" name="Organization"> <br> <font style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: xx-small;">Go to Organization Browser </font> <br> <br> <input name="btnGo" type="button" onclick="validate('No')" style="border-bottom-style: groove; border-bottom-width: thin; border-left-style: groove; border-left-width: thin; border-top-style: groove; border-top-width: thin; border-right-style: groove; border-right-width: thin; cursor:hand; background-color: #ADD8E6;" value="Go"> <input type="hidden" name="hdnFlow" > <br> <br> <br> <br> <br> <br> <br> </form>  </center> </body> </html> <% end sub '******* 'M A I N '******* 'Verify if login is not expired CheckLoginSession 'Get the flow information from hidden field if request.form( "hdnFlow" ) <> "" then strFlow = request.form( "hdnFlow" ) else strFlow = "Confirm" end if 'Get the affiliateid from querystring if request.querystring( "id" ) <> "" then session( "OrganizationID" ) = CInt(request.querystring( "id" )) 'strFlow = "Confirm" end if '**************************************************** 'Understand the navigation flow controlled by strFlow ' ' "Delete : Blank form - GetField returns blanks. Thus, load form with blanks ' "Error" : Will populate form like in "Delete", based in response.form() ' '**************************************************** select case strFlow 'Yes case "Yes", "Delete" OpenDB SetupProcedure command, "dOrganization" Delete CloseDB ' Error or Update case "Confirm", "Error" OpenDB 'If delete, populate form to confirm if strFlow = "Confirm" then SetupProcedure command, "sOrganization" PopulateForDelete end if DisplayForm CloseDB ' When user choose No, it backs to the Affiliate browser case "No" response.redirect"brw.asp?sbj=Organization" end select %> Thanks in advance Roberto Tag: Get an Internetsite? Tag: 141827
  - 22
    - VBScript Word Automation Table Error Hi all, I'm using VBScript to create a Word doc from a web page. Everything was going fine until I tried to add a table to the doc, then I get an error which I can't account for. This is my code: function test dim oWord dim oDoc set oWord = CreateObject("Word.Application") oWord.Visible = True oWord.Documents.Add set oDoc = oWord.ActiveDocument oDoc.PageSetup.Orientation = 1 oDoc.Tables.Add Range:=oWord.Selection.Range, NumRows:=2, NumColumns:=3 oWord.Selection.TypeText "Ben was here" set oWord = nothing end function This runs fine if I comment out the oDoc.Tables.Add line. I have tried approaching the tables call from all directions, eg. oWord.ActiveDocument.Tables.Add, as well as the Range call, with no luck. I'm running IE6 and Office XP. Any help would be greatly appreciated :o) Regards, Ben Empson -- Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/ Tag: Get an Internetsite? Tag: 141815
  - 23
    - Disabling CANCEL button during shell file copy -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I'm using the following script to copy files which provides a copy progress dialog box. What I want to do is disable the CANCEL button during the copy. Does anyone know of any way to do this? Thanks, Chris SCRIPT: 'Respond with "Yes to All"(16) + Display dialog but no files(256) + Do not confirm the creation of directory(512) Const FOF_CREATEPROGRESSDLG = 784 ParentFolder = "D:\DATABACK" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(ParentFolder) objFolder.CopyHere "D:\TESTING", FOF_CREATEPROGRESSDLG -----BEGIN PGP SIGNATURE----- Version: PGP 8.0 Comment: Public PGP key for Chris Lynch iQA/AwUBP0uLDG9fg+xq5T3MEQIBiACfbvKo6gvf6s4eLrlVbdxRuy6QUGUAnRJD 08BGtfO9xjqlWQqF1sTxHYfL =7O0m -----END PGP SIGNATURE----- Tag: Get an Internetsite? Tag: 141806
  - 24
    - username and computer name in vbscript/asp/java/wsh? Hi, I have seen this topic come up many times but have never really seen a concise answer to the problem. Basically what I have is an asp page that is using ado to do some database queries. I have an activity log table in my database that I would also like to update when certain events are triggered on the webpage. In this activity log I wanted to have the network username and the computer name of the person that was using the webpage. I thought VBScript would be best for this because it runs client-side but I have not found a solution yet. Though this webpage will be running on my company's intranet, we are a company of 6000 and I have absolutely NO control over the server it will be running on. Any help would be awesome. Thanks! -Jeremy Tag: Get an Internetsite? Tag: 141805
  - 25
    - transfering data from .csv to .xls Hi, I am using Activex scripts in SQL Server DTS Packages to read from a .csv file and write it to a Excel file. The actual problem is the leading zeroes are being truncated in the XL file. Hence, I use ActiveSheet.QueryTables.Add method to define the formating properties that I require. It creates the Excel file successfully but it neither transfers the data nor does it format the cells. Below is my code. Pls. let me know if I am going with the right approach. VERY URGENT. If any of you can suggest me an alternate way on how I can transfer the data from .csv to .xls without loosing the leading zeroes, I would be really grateful. with regards, Ram Function Main() Dim Xcl Dim strDestinationFileName Dim strSourceFileName 'strDestinationFileName = "D:\_Clients_Data\Monument\Order\vipul2.xls" strSourceFileName = DTSGlobalVariables ("Data_File_Path")&DTSGlobalVariables("Data_File_Name") strDestinationFileName = DTSGlobalVariables ("Schema_File_Path")&DTSGlobalVariables ("Schema_File_Name") Set Xcl = CreateObject("Excel.Application") Xcl.Visible = true Set newBook = Xcl.Workbooks.Add newBook.Worksheets(1).Name="My First WorkSheet" newBook.Worksheets(2).delete newBook.Worksheets(2).delete newbook.Worksheets(1).Activate 'importing the .csv file With ActiveSheet.QueryTables.Add (Connection:= "TEXT; D:\_Clients_Data\Monument\Order\09- 03_Order_Monument.csv", Destination:= Range ("A1") ) .Name = strDestinationFileName .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .Refresh BackgroundQuery:= False End With newBook.SaveAs strDestinationFileName Xcl.Visible = false Set Xcl = nothing Main = DTSTaskExecResult_Success End Function Tag: Get an Internetsite? Tag: 141804

Hello everybody,

i search an Object to get an internetsite to a local file. It must send two
parameters within the Adress and the Internetserver send back an File.
Anybody know how?

Thanks

Firas

Top

RE: Get an Internetsite? by v-lwang

v-lwang
Mon Sep 01 04:33:36 CDT 2003

Hi Firas,

You can use XMLHTTP to get the webpage on the website as a string. Here is
a code snippet for demonstration.

Private Sub Command1_Click()
Dim HttpReq As New MSXML2.XMLHTTP40
HttpReq.open "GET", "http://XMLSampleServer/CatalogServer.asp", False
HttpReq.send
MsgBox HttpReq.responseText //You
End Sub

You may check the following links for more information:

Save file between servers by client
http://groups.google.com/groups?hl=en&lr=lang_zh-CN|lang_zh-TW|lang_nl|lang_
en&ie=UTF-8&selm=%23y3boNu6BHA.2488%40tkmsftngp04&rnum=4

IXMLHTTPRequest
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/htm/
xml_obj_ixmlhttprequest_8bp0.asp

Does this answer your question? Please let me know if you need more
information.

Best regards,
Lewis

This posting is provided "AS IS" with no warranties, and confers no rights.

Top