How can i download with vbs?

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
    - Skript per Tastendruck beenden Hallo, ich hab ein Problem mit meinem Skript. Aus diversen "Lack of Knowledge" Gründen hab ich mir ein Endlosskript programmiert. Jetzt such ich ne Möglichkeit, dass Skript mit ner Tastenkombination wieder beende...(z.B.: Alt+F6) Hat jemand ne idee?? Dank schon mal Tag: How can i download with vbs? Tag: 138039
  - 2
    - WSH 5.0 equivalents to AppActivate and SendKeys Hi, I'm automating MSINFO32.EXE and while on machines with WSH 5.6 installed things are working as expected, we have some machines with older versions which don't appear to support AppActivate and SendKeys. I can create and instance ("Run") of MSINFO32 but need to know how to "speak" to it. Does anyone know where to find documentation for earlier versions of WSH - the Microsoft site doesn't appear to have anything this old. Upgrading all machines to WSH 5.6 is something I'm trying to avoid - they are spread all round the country. Cheers Stephen Anning Tag: How can i download with vbs? Tag: 138038
  - 3
    - newbie with syntax/script question - vba (long - script incl) thank you in advance. This code is a hodge podge of code I borrowed/rearranged/wrote. If you have suggestions on ways to make it shorter, cleaner, better, please add your comments. I'm attempting to query a webpage, export the page to an Excel spreadsheet, and save. The code uses three input files for now (to account for multiple backup servers and various dns naming conventions and the list of servers to check). Ultimately, the information will be pulled directly out of the SQL database, but being impatient and wanting to learn more about VB, VBA, and VBScript, I've been tinkering. The code works to the point where it attempts the web query (in other words, reads the text files into arrays, opens Excel, names the active sheet). However, I get a "Type mismatch" error for line 146 character 26 at that point. That line is where Excel establishes the connection to the web page. It appears to be telling me that my "expression.Add" line has the wrong modifiers. Am I reading the error incorrectly? Is the format of the query incorrect? What is the correct "type?" <script begin> Option Explicit '--------------------------------------------------- 'original shell used to: 'use 2 input files containing computer names 'compare the lists and output to file the results 'XXXX XXXX 2003 'Originally used to check and create computer groups 'modified to take file input and determine if backups 'are good. input1=list of servers, input2=list of 'backup servers, input3=various dns string endings 'for different corporate intranets within company 'modified by XXX XXX 07/07/03 '--------------------------------------------------- 'Set up Initial key Variables----------------------- redim olist1(1) redim olist2(1) redim olist3(1) dim thefile1,thefile2,thefile3,othefile1,othefile2,othefile3 dim opos,opath1,opath2,opath3 dim oFS,oinputfile1,oinputfile2,oinputfile3,oStr1,oStr2,oStr3 dim linecount1,linecount2,linecount3,oinline1,oinline2,oinline3 dim x,y,z,ExcelSheet,urlStr,objHTTP,ExcelBook dim Connection,Destination,Range '--------------------------------------------------- 'Argument Capture '--------------------------------------------------- if wscript.arguments.count=0 then thefile1=inputbox("Enter the file name including path of the"&_ " file with your servers listed in it : "&vbcrlf&"Example : My"&_ " input file.txt","Input file Name","input1.txt") othefile1=thefile1 if thefile1="" then wscript.quit end if else 'Use the FileName supplied as an argument thefile1=wscript.arguments(0) opos=instrrev(thefile1,"\") opath1=mid(thefile1,1,opos) othefile1=mid(thefile1,opos+1,len(thefile1)) end if if wscript.arguments.count=0 then thefile2=inputbox("Enter the file name including path of the"&_ " file with the backup servers listed in it : "&vbcrlf&"Example :"&_ " Backup servers.txt","Input file Name","input2.txt") othefile2=thefile2 if thefile2="" then wscript.quit end if else 'Use the FileName supplied as an argument thefile2=wscript.arguments(1) opos=instrrev(thefile2,"\") opath2=mid(thefile2,1,opos) othefile2=mid(thefile2,opos+1,len(thefile2)) end if if wscript.arguments.count=0 then thefile3=inputbox("Enter the name of the DNS strings file (include path) :"&vbcrlf&"Example : DNSStrings.txt","Input File Name","input3.txt") othefile3=thefile3 if thefile3="" then wscript.Quit end if else 'Use the default FileName as the argument thefile3=wscript.Arguments(2) opos=instrrev(thefile3,"\") opath3=mid(thefile3,1,opos) othefile3=mid(thefile3,opos+1,len(thefile3)) end if '--------------------------------------------------- 'Open Files for reading and writing '--------------------------------------------------- set oFS = CreateObject("scripting.filesystemobject") if not ofs.fileexists(thefile1) and ofs.fileexists(thefile2) then 'File Not Found Exit Application wscript.echo "Input Files Not Found"&vbcrlf&"END Program!" wscript.quit end if '--------------------------------------------------- 'Read input file into Array (olist1) '--------------------------------------------------- set oInputFile1 = oFS.opentextfile(thefile1,1,False) linecount1=0 Do while not oinputfile1.AtEndOfStream oinline1=oinputfile1.Readline if not oinline1="" then if linecount1>ubound(olist1) then redim preserve olist1(linecount1) end if olist1(linecount1)=oinline1 linecount1=linecount1+1 end if loop oinputfile1.close set oInputFile2 = oFS.opentextfile(thefile2,1,False) linecount2=0 Do while not oinputfile2.AtEndOfStream oinline2=oinputfile2.Readline if not oinline2="" then if linecount2>ubound(olist2) then redim preserve olist2(linecount2) end if olist2(linecount2)=oinline2 linecount2=linecount2+1 end if loop oinputfile2.close set oInputFile3 = oFS.opentextfile(thefile3,1,False) linecount3=0 Do while not oinputfile3.AtEndOfStream oinline3=oinputfile3.Readline if not oinline3="" then if linecount3>ubound(olist3) then redim preserve olist3(linecount3) end if olist3(linecount3)=oinline3 linecount3=linecount3+1 end if loop oinputfile3.close '--------------------------------------------------- 'Main Body '--------------------------------------------------- Set ExcelSheet=CreateObject("Excel.Application") Set ExcelBook=ExcelSheet.Workbooks.Add '"c:\scriptemp\bocada.xls",False,True,False ExcelSheet.Visible = True 'ExcelSheet.Application.Workbooks.Add ExcelBook.Worksheets(1).Activate ExcelSheet.ActiveWorkbook.ActiveSheet.Name="Bocada Report" for x=0 to ubound(olist1) oStr1=olist1(x) if not oStr1="" then for y=0 to ubound(olist2) oStr2=olist2(y) if not oStr2="" then for z=0 to ubound(olist3) oStr3=olist3(z) if not oStr3="" then urlStr="http://servernamexyz/reports/"&oStr2&"-bdt_"&oStr1&"-bdt."&oStr 3&".html" Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET",urlStr,FALSE) objHTTP.Send if not len(objHTTP.ResponseText)<5000 then ExcelSheet.ActiveWorkbook.Worksheets.Add ExcelSheet.ActiveWorkbook.ActiveSheet.Name=oStr1&"."&oStr3 With ExcelSheet.ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection="URL;"& urlStr,Destination=Range("A1")) .Name = oStr2&"-bdt_"&oStr1&"-bdt."&oStr3 .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingAll .WebTables = "4,5" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery=False End With end if end if next end if next end if next ExcelSheet.Application.Save "c:\scriptemp\bocada.xls" ExcelSheet.Quit outputfile.Close '--------------------------------------------------- 'Error Handling '--------------------------------------------------- if not err.number=0 then wscript.echo err.number&vbcrlf&err.description end if 'End of Program------------------------------------- wscript.echo "Process Complete"&vbcrlf&"End Program" <script end> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.vb.syntax Tag: How can i download with vbs? Tag: 138037
  - 4
    - Uncheck folder option "Allow inheritable permissions from parent to propogate..." I creating folders using FileSystemObject and setting rights on the network using as asp page that uses softartisans product "FileManager" with latest version which allow me to create a folder in network and set the network group's right, like ReadOnly, Full Access....., and so on. I found out that there is no functionality of "FileManager" to set "Allow inheritable permissions from parent to propagate to this object" to FALSE under the tab "Security" of the Folder I created with FileManager. Is there any other way that I can uncheck the "allow inheritable permissions from parent.." through my asp page. I cannot use registry to uncheck because I do not want to uncheck to all the folders but I need to uncheck only those folders that I created using my asp page.Any idea ? Thanks a lot in advance for any help. -Nanu Tag: How can i download with vbs? Tag: 138026
  - 5
    - Bind to Active Directory user Hi, I'd like to bind to a user in Active Directory but not by using the display name but by the sAMAccountName attribute. The operation should be done like this.... Set objUser = GetObject _ ("LDAP://cn=Joe Bloggs,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.IsAccountLocked = False objUser.SetInfo ...but I want to bind using the logon id "JBloggs" (obviously this doesn't work) Set objUser = GetObject _ ("LDAP://cn=JBloggs,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.IsAccountLocked = False objUser.SetInfo What is the best way to go about this? thanks for any reply Tag: How can i download with vbs? Tag: 138022
  - 6
    - Provider Error when running a script on a W2K server I have a script that runs a w/s. It FTP's IIS logs from hence W/S runs script that looks for files on ServerA then FTPs them to ServerB. If I try to run the script on ServerC I get a provider error when I do a function that does a search for logs with a modifieddate of -1 . I tried impersonation and that didn't work either. Both W/S and Server are using WSH 5.6. Thanks Tag: How can i download with vbs? Tag: 138021
  - 7
    - Loop a function from an array out of Active Directory I want the code below to loop through the array I created so that I can create an html file for each department. I've tried a few methods, but all result in error 800a03ea (trying to call a function within a function?) As it is below, it works... but only on the first array item. Any help on how I can loop through the remaining array items? If you are feeling really generous, I would also like to automatically populate the array from active directory with DISTINCT departments for all users. This is secondary to what I need above though, but is of interest. Thanks for any assistance, ' Create an HTML table from Active Directory Info. Dim sDepartments sDepartments = Array("department1","department2","department3","department4") Dim i i = 0 Dim oRoot, sDomain Set oRoot = GetObject("LDAP://rootDSE") sDomain = oRoot.Get("defaultNamingContext") SQLStmt = "SELECT displayName, department, telephoneNumber, mail " & _ "FROM 'LDAP://" & sDomain & " ' " & _ "WHERE objectClass='User' AND objectCategory='Person' " & _ "ORDER BY displayName" Set Conn = CreateObject("ADODB.Connection") Conn.Provider = "ADSDSOObject" Conn.Open "ADs Provider" Set rs = Conn.Execute(SQLStmt) Do While Not rs.EOF Or rs.BOF If IsNull(rs.Fields("telephoneNumber").value) Then rs.MoveNext Else If rs.Fields("department").Value = sDepartments(i) then rows = rows & "<tr>" rows = rows & "<td>" & count & "</td>" 'rows = rows & "<td>" & rs.Fields("department").Value & " </td>" rows = rows & "<td>" & rs.Fields("displayName").Value & " </td>" rows = rows & "<td>" & "<a href=mailto:" & rs.Fields("mail").Value & ">" & rs.Fields("mail").Value & "</a> " & " </td>" rows = rows & "<td>" & rs.Fields("telephoneNumber").Value & " </td>" rows = rows & "</tr>" & VBCrLf rs.MoveNext Else rs.MoveNext End if End if Loop CreateFile rows rs.close set rs = nothing conn.close set conn = nothing Sub CreateFile(rows) dim html html = "<html><head><title>Active Directory (" & sDomain & ")</title>" html = html & "<body link='#0000CC' vlink='#0000CC' alink='#0000CC'>" html = html & "<style type='text/css'></style>" html = html & "<body>" html = html & "<table border=1>" html = html & "<tr><th></th><th>Name</th><th>E-Mail Address</th><th>Phone</th></tr>" html = html & rows html = html & "</table>" html = html & "</body></html>" Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("C:\Documents and Settings\admin\Desktop\" & sDepartments(i) & ".htm", True) tf.Write(html) tf.Close set tf = nothing set fso = nothing End Sub Tag: How can i download with vbs? Tag: 138020
  - 8
    - How test ActiveX i DHTML Hi, I have problem. In MSIE in VBScript subroutime I have to test if on my computer (client) is installed ActiveX control. please help me .. Thanks Janusz janusz.szczesniak@wm.com.pl Tag: How can i download with vbs? Tag: 138017
  - 9
    - Too many rad*.tmp files! I have a couple of VBscripts that operate on files inside a certain directory. Over time, I see a bunch of files that look like the below piling up. What are they and how can I prevent it from happening? rad04C16.tmp rad05735.tmp rad06495.tmp rad0EC67.tmp rad16561.tmp rad17EFC.tmp rad18280.tmp rad184D4.tmp rad1D3F1.tmp Tag: How can i download with vbs? Tag: 138011
  - 10
    - How to set session variable? What is the correct syntax to set a session variable such as: Session("Level") = 2 (On an aspx page) Thanks, Mike Tag: How can i download with vbs? Tag: 137989
  - 11
    - Automatic mail Hello, is there anybody can let me know how to create an automatic mailing system to the mass user using ASP/VBSCRIPT ? Thx ness Tag: How can i download with vbs? Tag: 137984
  - 12
    - Importing users from CSV to Active Directory Domain Help please. I have a csv file....something like... Blah, Blah, Blah, User, Blah, User group, Blah, Email, OU's ......etc. I wish to import as much data as possable to a new Win2k Domain. And at the same time add users to the relevent OU's. Where do I start .... Many Thanks Kev Tag: How can i download with vbs? Tag: 137980
  - 13
    - error Hello I am getting the following error message: Microsoft VBScript runtime (0x800A01A8) Object required: '''' /delete_entry.asp, line 17 When I try to delete a record. The following is the code to the delete_entry.asp page. <% Dim adoCon Dim rsDeleteEntry Dim strSQL Dim IngRecordNo IngRecordNo = CLng(Request.QueryString("ID_no")) Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ccalls.mdb") Set reDeleteEntry = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT calltable.* FROM calltable WHERE ID_no=" & IngRecordNo rsDeleteEntry.LockType = 3 rsDeleteEntry.Open strSQL, adoCon rsDeleteEntry.Delete rsDeleteEntry.Close Set ccalls = Nothing Set adoCon = Nothing Response.Redirect "deleteselect.asp" %> Any ideals what I am doing wrong? Thanks Tim ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: How can i download with vbs? Tag: 137976
  - 14
    - Absolute path of web file Anyone know how to determine the absolute path of an .html file? I'm getting a "file not found" error on the following line of code: document.open("Help/Adjustment.htm") Thanks. Tag: How can i download with vbs? Tag: 137969
  - 15
    - CAN YOU PLEASE HELP ME OUT W/ My FORM REFRESH PROBLEM??? Hi guys i'm back again!! i'm having a small problem with refreshing my form after saving data in my database! here's what i'm trying to do: * In my UpdateDB.asp form i display my database records and the user can make changes on whatever record he wants; * after he'll have to save changes by hitting the save button on the form; * when i receive the "save" action, i update the database; set a session variable that i'll use later to true ( Session("UpdateDB")= TRUE) and DISABLE the Save Button. *once i'm done with it i reset my session variable to false ( Session("UpdateDB")= FALSE); and WOULD LIKE to "ENABLE" the save button; but i can't. Everything works just fine but i can't "ENABLE" my save button???? how can i refresh the page and get back the save button ?? i thought that after resetting my session variable to false would help me but i don't know how to use it?? Can you please help me with it??? Thanks! Tag: How can i download with vbs? Tag: 137966
  - 16
    - A Variable vs. Request.Form Question Hello. I have a form where some of the field names are generated based on the name of files. This form is being sent via email, and therefore, an ASP page is handling the mailing, etc. This is going to be hard to explain. This system is for ordering photos where the user can select an image, select the size, and type the quantity. When done, the user will submit the information which is emailed. There are wallet size, 4x5, 5x7, etc. I'm having trouble with a piece of code regarding the variables. I'm using the filesystem object to generate a listing of files in a directory, and then, based on the type of photo, will check to see if a quantity has been entered, and then output the size, with the image name, along with the quantity ordered. So, for example, the form will create a field with a name of "Wallets002.jpg" which is for wallet size of image name 002.jpg. In order for me to test to see if the field has a value in it, I'm first creating a variable that will contain a value that is the same as what was generated by form: 'Create a variable that has the name of the field from the form. strImageName is in a loop using the filesystem object to grab the name of the first file. Prepend it with the size of the photo. strFieldValueWallets = "Wallets" & strImageName 'Check to see of the field is empty If NOT IsEmpty(Request.Form("" & strFieldValueWallets & "")) Then Mailer.BodyText = "Wallet Size of image: " & strImageName Mailer.BodyText = "Quantity: " & Request.Form("" & strFieldValueWallets & "")) End If I then go on to do the same thing, but check for the 4x5 size, then 5x7, etc. Is this kosher? Is the variable strFieldValueWallets created totally separate from the Request.Form("" & strFieldValueWallets & ""))? I can get it to display the value placed in the field, but I can't get it to ignore the field if it has no value in it. (because I'm assuming that the variable is making it think it has a value in it). Hope this makes sense. Thank you for any input! Thanks for listening. Doug Tag: How can i download with vbs? Tag: 137952
  - 17
    - Closing a Security Warning pop up when running HFNETCHK using VBscript Hi all, I am trying to develop an auditing script that will verify the configurations of wintel servers across a data centre estate. I am running into difficulties when executing the HFNETCHK tool from the command line shell script in that the execution of the tool causes a Security Warning dialog box to pop. All i want to do is to incorporate into mmy script some lines that will effectively click yes in the box and allow the rest of the script to continue. Any help is greatly appreciated. C. Tag: How can i download with vbs? Tag: 137947
  - 18
    - Launch .Net app from vbscript asp page Hello and thanks for any help you can give, I have a web page that creates and external file and then runs an encryption process on the file to secure it. Belowe is the code: BodyText={...} set FSO=Server.CreateObject("Scripting.FileSystemObject") set tFile=FSO.OpenTextFile(server.MapPath(".") & "\Orders\" & tFileName,ForWriting,True) tFile.Write BodyText tFile.Close set tFile=nothing set wshobj = createobject("WScript.shell") wshobj.run server.mappath(".") & "\Encrypt.exe " & tFileName,0,true Everything is working upto the launch of the .exe. With furthur digging I have found that it seems to be due to the fact that the encrypting program was written in VB.NET, any other type of program runs fine. Has anyone come accross this, If so, Please Help, Adam Tag: How can i download with vbs? Tag: 137943
  - 19
    - dump one dimension from .GetRows GetRows always returns a two dimensional array. In my case the I sometimes redimension the second dimension and add additional values manually. I may then need to sort it and remove duplicates. Is there a way to redimension the array returned by GetRows and remove the first dimension keeping only the second? Is copying the array values into a new array the only way? I would rather not write a custom sort routine when the first dimension isn't ever used. thanks LJB Tag: How can i download with vbs? Tag: 137935
  - 20
    - Start/Stop service on remote PC via script Can anyone help me out. I'm looking for a script that will start/stop a service on a remote Windows NT/2000/XP machine. TIA -Dan Tag: How can i download with vbs? Tag: 137931
  - 21
    - Accessing a DB with VBS? Anyone here who can please show me with some vbs code how to write, read, change and delete data to/from a database? Thank you. Noel. Tag: How can i download with vbs? Tag: 137924
  - 22
    - LDAP GetObject Error Hello, I'm writting a script that chage attribute on an AD user. On my local workstation it work fine. But i need to run it from a IIS service, and i have an error "-2147463168" every time i do GetObject. Here is a piece of the code : (MyDomain, MyAdminAccount and MyPassword are here for exemple) Set oCon = CreateObject("ADODB.Connection") oCon.Provider = "ADsDSOObject;User ID=MyDomain\MyAdminAccount;Password=MyPassword;" oCon.Open "Active Directory Provider" Set oCmd = CreateObject("ADODB.Command") Set oCmd.ActiveConnection = oCon oCmd.CommandText = "select AdsPath from 'LDAP://" & Domaine & "' where objectClass = 'group' AND cn='Utilisateurs VPN'" Set oRs = oCmd.Execute If Not oRs.EOF Then oRs.MoveFirst End If GroupeVPN = oRs.Fields("AdsPath").Value ' --> Here i get the AdsPath without problem Set objGroup = GetObject (GroupeVPN) ' --> Here i've got that -2147463168 error. Could some one help me with this ? Tag: How can i download with vbs? Tag: 137920
  - 23
    - Reading Email Hi there, I'm working on developing an intranet for my orgnization. I have the exchange server and IIS installed on two diffrent machines. My question is how can make a web page that can read the emails from the exchange server? Thank u all Tag: How can i download with vbs? Tag: 137917
  - 24
    - get distinguished name of current domain Hi folks, I need to determine the distinguised name of the current domain. I am familiar with the code to produce the default naming context, but how do I get the distinguished name ? Using the same code and replacing "DefaultNamingContext" with "DistinguishedName" generates an error that says the property cache could not be loaded (sorry I don't have the code at hand). Someone could shed some light ?? Thanks to all Bar Tag: How can i download with vbs? Tag: 137913
  - 25
    - Repost: Verify Password Complexity Does anyone know how to verify if Password Complexity is enabled on a Windows 2000 Server that is in a workgroup (i.e. Local Security Policy of the server) using vbscript? Tag: How can i download with vbs? Tag: 137907
- Next
  - 1
    - Novice needs HELP with VBScript Code Please help I am looking for any help I can get in converting this into VBScript. Thanks for your assistance! I greatly appreciate it. <html> <title>Convert Ampesands</title> <head> <script language="JavaScript">  </script> </head> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How can i download with vbs? Tag: 137905
  - 2
    - Please Advice - Desperate for Solution I am currently working on converting this to VBScript and don't have any idea on where to start. I have spent countless hours with no resoution It is suppose to be a program that totals the checkboxes selected. Thanks! <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml">   <html> <title>Convert Ampesands</title> <head> <script language="JavaScript">  </script> </head> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How can i download with vbs? Tag: 137904
  - 3
    - Show serial for date in messagebox Hello newsgroup, I need a little gadget that will show me the serial number for a date I enter. I have come up with the code below, but I can not get it to show the serial number that the computer uses for the input date. The date keeps getting converted to the systems (short) date format. In Excel, I can do it by entering a date in a cell that is not date-formatted, but I need a quicker way, to fire from my desktop. Here's the basic code I'm experimenting with: =============================================== Dim time1, time2 result = InputBox("Type a date in the dd-mm-jjjj format and click OK", "Serial number for date", Date, 100, 100) time1 = FormatDateTime(result, 1) time2 = result Response = MsgBox (time2, vbokonly, time1) ================================================ A related problem: I wanted to concatenate a string for the messagebox that shows the result, but I keep coming up with errors that I think say that I cannot use text together wit a set variable or a function. I can do this in Excel VBA without any problem, so I suppose there must be a way. Here's the gist of what I tried (with the above code): Response = MsgBox ("The serial number for " + time1 + " is " + time2 + ".", vbokonly, "Serial number for date") I know I should have taken the course, but please help me out. Have a nice day, -- Eric van Uden at the foot of the 'bridge too far' Tag: How can i download with vbs? Tag: 137901
  - 4
    - VBScript amatuer needs expert advice I having a problem converting a program from javascript need expert advice to point me to a book that can help. This is a very tuff one, and I know would take hours to write please help. This program is suppose to add only selected checkboxes. <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml">   <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title></title> <meta name="description" content="" /> <meta name="keywords" content="" /> <meta name="generator" content="AceHTML 5 Freeware" /> <SCRIPT LANGUAGE="JavaScript"> var form_total=0; function CheckChoice(whichbox) { if (whichbox.checked == false) { form_total -= eval(whichbox.value); } else { form_total += eval(whichbox.value); } document.myform.total.value = '$'+eval(form_total); } function InitForm() { document.myform.total.value='$0'; for (xx=0; xx < document.myform.elements.length; xx++) { if (document.myform.elements[xx].type == 'checkbox') { document.myform.elements[xx].checked = false; } } } </SCRIPT> </head> <body onload="InitForm();" onreset="InitForm();"> <CENTER><font size="7" color="#008000"><b><u>Cubicle Buildout</u></b></CENTER></font><br><br><br> <CENTER><form method="POST" name="myform"> <font size="5" color="#800000">Computer              <font color="#0000ff">$700.25</font> <input type="checkbox" name="Build1" value=700.25 onclick="CheckChoice(this);"><br><br> Monitor          &nbs p;     <font color="#0000ff">$912.00</font> <input type="checkbox" name="Build2" value=912.00 onclick="CheckChoice(this);"><br><br> Phone(Rolm240)   <font color="#0000ff">$118.75</font> <input type="checkbox" name="Build3" value=118.75 onclick="CheckChoice(this);"><br><br> Pod1           & nbsp;        <font color="#0000ff">$1515.25</font> <input type="checkbox" name="Build4" value=1515.25 onclick="CheckChoice(this);"><br><br></font> <br><br><br><br><br><br> <br> <font size=+3> <font color="#008000"><b>Your total is: </b><input type="text" name="total" readonly onFocus="this.blur();"> </font> <br><br> </font> </form> </body> </html> -- Direct access to this group with http://web2news.com http://web2news.com/?microsoft.public.scripting.vbscript Tag: How can i download with vbs? Tag: 137900
  - 5
    - popup.show() no workie! Hi, I ported the following code from MS's documentation, which was written in JScript. It executes without error, but the popup doesn't display. Anyone have any idears? Alex B. <Head> <script language="vbscript"> sub ButtonClick() dim oPopup dim oPopBody set oPopup = window.createPopup set oPopbody = oPopup.document.body oPopBody.innerHTML = "Help for <B>Test</B> page..." 'This line produces nothing, but original JScript works fine! oPopup.show 100,100, 100, 100, document.body 'This works fine msgbox "Hi" end sub </script> </HEAD> <body> <INPUT onclick="ButtonClick()" style="Z-INDEX: 108; LEFT: 41px; WIDTH: 169px; POSITION: absolute; TOP: 280px; HEIGHT: 24px" type="button" value="Help" id="btnHelp"> </body> Tag: How can i download with vbs? Tag: 137893
  - 6
    - Sample, Tips? Hi, Everybody, I am looking for some samples that can put the real-time clock on my web page, I was told that there is a simple VB script will do the trick. Also I am wondering are there web sites will offer some general web developing tips and learning materials? Thanks for any help, Wayne Tag: How can i download with vbs? Tag: 137885
  - 7
    - * Newsgroup doc. and 6949 Tips, Tricks, and Registry Hacks - 07-Jul-2003 14:15.22 * 07-Jul-2003 14:15.22. Please see the Microsoft Newsgroups page at http://communities.microsoft.com/newsgroups/default.asp Visit Windows & .NET Magazine's 6949 tips at http://www.jsiinc.com - press the "Tips & Tricks" button. Jerold Schulman Windows: General MVP JSI, Inc. http://www.jsiinc.com Tag: How can i download with vbs? Tag: 137881
  - 8
    - how to close locked file - network Problem: User opens the file sample.xls on the share \\nts_server_001\share\ and does not close it. He only wants to look the content, not to change it. So this file is locked. Now I want to run a VbScript on NTS_SERVER_001 that changes the content of this xls-file. The problem is, that the user has locked the file so i cannot save it with the same name. Is there a possibility with WMI or an other way to close this file on the server so i can make the changes? Tag: How can i download with vbs? Tag: 137872
  - 9
    - Checking Audit Information Is there a way to set / check the audit policy settings (e.g. Audit Logon events, Audit Privilege use, etc) of a Windows 2000 Server using vbscript? Tag: How can i download with vbs? Tag: 137868
  - 10
    - Running Wscript in HTML I don't have any trouble creating and using a Wscript shell in a web page (with appropriate permissions), but I can't run Wscript functions. For example, this works fine: Set WshShell = CreateObject("WScript.Shell") ret=WshShell.run("e:\wallpaper\scripts\webread.vbs",0,true) But if I try to run "Wscript.sleep 10," I get an error telling me there is no Wscript object. How can I instantiate a Wscript object in a HTML file? Dave Tag: How can i download with vbs? Tag: 137864
  - 11
    - A question about FileSystemObject I'm using the FileSystemObject in a client-side script that is intended to be used in Internet Explorer 5.5 or later only on an intranet. I developed the script on a Win2K machine that has WSH installed on it. I actually did not expect it to work on other computers but was surprised to find out that it did (on 3 machines so far - Win2K and NT4). So, my question is: WHERE is FSO (that is, which DLL)? Is it part of Windows? Or is this working only because Visual Basic is installed on all of the computers I've tried it on so far? Tag: How can i download with vbs? Tag: 137863
  - 12
    - Date Range Hi I have a booking form where people enter a FromDate and a ToDate and select a recurring day like Tuesday. So that data is for instance 7-jul-2003 to 28-jul-2003 and recurring on Tuesday. What I want to be able to do is calculate the dates for the Tuesday's within the FromDate ToDate range and submit them to a database. And even better still be able to calculate 2 days like Tuesday and Friday with in the range. Is this possible ???? Regards Dave Tag: How can i download with vbs? Tag: 137855
  - 13
    - CDONTS attach file is not working right Hi I am using the CDONTS object to create a new email, and I used the attachfile method.. It seems the attach file wont work if the file size more than 100 KB , does anybody know if there is a size limit or certain encoding method need to be applied her? the attached file I am using is in a form of acrobat PDF PS when file is sent it will show on the attachment only with 0 bytes. Or if attachment were in html format I would get gibberish. Thank you Maher Tag: How can i download with vbs? Tag: 137845
  - 14
    - Object required: Session Hi, I'm trying to check on each asp page whether the session("UserId") has expired before it redirects to login page. Here how the process goes. 1. I am able to initialise the session("UserId") after login to the web Set session("UserId") = "ID" 2. However problems occurs for subsequent pages because now the session("UserId") always remains blank. Since I include a checking on each page for session timeout, therefore it always redirect to login page. If Session("UserID") = "" Then Response.Redirect("Login.asp") End if 3. Hence, I try to harcode the session for testing. Set Session("UserID") = "Test" If Session("UserID") = "" Then Response.Redirect("Login.asp") End if However, it prompts an error for the new line I have added. Microsoft VBScript runtime (0x800A01A8) Object required: 'Session' For your information, it works fine on the production server, but problem occurs in the development server (both running Win2K Server SP3, IIS 4.0.2.4022) Please help!! Appreciate any feedbacks. Thanks. Regards Wilson Tag: How can i download with vbs? Tag: 137835
  - 15
    - SMTP event sinks Hello, I don't know if this is the right group but I need help with writing a SMTP event sink to send a copy of a message from/to a particular domain to another address. Any ideas? TIA Tag: How can i download with vbs? Tag: 137833
  - 16
    - validate date Hi, This may be simple question for your all, how can I validate a date variable, like 02/30/2003 is an invalid date? thanks. Atse Tag: How can i download with vbs? Tag: 137830
  - 17
    - automate powerpoint i would like to automate the running of a powerpoint presentation, and when it finishs, i want to quit powerpoint thank you very much Tag: How can i download with vbs? Tag: 137827
  - 18
    - SessionVariables - INSERT INTO Command How can I use Session Variables to populate a field using the Insert Into command? troyo@troyo.net Tag: How can i download with vbs? Tag: 137819
  - 19
    - how do I determine language version of IE programatically? I want to distribute IE 6 SP1 to the few thousand employees in my organization (Windows 98 machines). While most have the Hebrew version of IE 5, some have the English version. My script that distributes the IEAK package automatically was built on the Hebrew version. When I run the script on the English version, it doesn't work. I have since added a package built on the English version of IE6, but obviously I can't install that version automatically on the computers with the Hebrew browsers. I would like to add a section to the script that will programmatically determine the language version (I assume by VB script)and install the proper version. I have found no setting in the registry that points out the language version. The only place I've found note of it is in the advanced version properties of the iexplore.exe file, but I have found no way of pulling out that value with a script. Any ideas on how to make such a script? Alternatively, is there any way to have the IEAK determine on it's own what the current language settings for the browser are on the machine and install the right version by itself? Thanks, Dave Curwin tobyndave@hotmail.com Tag: How can i download with vbs? Tag: 137815
  - 20
    - Sending data to database via radio button choice. Hi all! I was wondering does anyone have any ideas on how I can send info to a SQL database by choosing a radio button. What I want to do is set one radio button to "Max" and one to type "Avg". When a user clicks on a radio button I want the value of whatever button was chosen to be placed inside the "type" field in my database after they hit submit. Also, if anyone knows of the best sites or books I can use about VBScript or ASP please let me know. I'm learning them both right now. Thank you very much! Renie83 Tag: How can i download with vbs? Tag: 137813
  - 21
    - .HTA + InternetExplorer.Application = out of memory I am trying to create an InternetExplorer.Application ActiveX from .hta and getting "out of memory" error. Here is the test code: ---------------------------- <html> <head> <HTA:APPLICATION ID="oMyApp"> <script language="VBScript"> sub initVB() Dim oIE Set oIE = CreateObject("InternetExplorer.Application") End sub window.onload = GetRef("initVB") </script> </head> <body> </body> </html> ---------------------------- It works fine being saved as .htm, but fails as .hta I am using IE 6.0 on XP Pro Thank you for any help! Regards, Anton -- Posted via http://dbforums.com Tag: How can i download with vbs? Tag: 137811
  - 22
    - vb 4 uninstall I installed vb4 in windows xp. SInce I did I have been getting many error messages and explorer errors. I have looked but can't find out how to uninstall vb4. I can't find it in the add remove programs. What do I need to do to uninstall it? Tag: How can i download with vbs? Tag: 137808
  - 23
    - Random Number Hi all, Just wondering if anyone knows a quick way in VB to generate a random number of characters in a a database field? Thanks. -- | jim@pandakunda.com | aLsO nOBiE | Tag: How can i download with vbs? Tag: 137802
  - 24
    - WMI and asp using Win32_Process method I am trying to run WMI scripts from .asp pages. The problem is when trying to use the Win32_Process method to create a remote process, I have to be logged into the client and web server under the same credentials for it to run. Of course, this is defeating the purpose of trying to call the process on the remote server to begin with. This works fine from a local .vbs script, but I am calling it via a web browser on the remote server. Is anybody else trying to do the same thing or have a fix? I am receiving an "error 8" when it fails. Thanks, MHW 'Create process to call Script1001a.vbs Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\cimv2:Win32_Process") errReturn = objWMIService.Create("cscript C:\inetpub\adminzone\Scripts\Common\Script1001a.vbs " & strOS _ & " " & strADSearchPath & " " & strAcctName & " " & strPassword & " " & strAdmin & " " & strPCSupport & " " & strManagers, null, null, intProcessID) Tag: How can i download with vbs? Tag: 137798
  - 25
    - Urgent, How to include web link I am nre in ASP! Please help to resolve the problem. I am trying to retireve the data from the database with a url link. For example, When I retireve the "Microsoft" from the Company Field, it will include the url link for the microsoft. Please tell me what's the appropriate way to do this. I have tried the following but the url link includes the orginal url: ... ... .... urlink= Item.value Response.Write("<a href="&urlink&">" & urllink) It works but when I click the microsoft, the URL address appeared to be "http://www.myserver.com/index.asp#http://www.microsoft. com"instead of "http://www.microsoft.com" pls help and thanks in advance Tag: How can i download with vbs? Tag: 137797

Hello, everybody!

thank you.

Re: How can i download with vbs? by Robert

Robert
Wed Jul 09 05:39:10 CDT 2003

from where are you talking? a web site? a server?

--
My E-mail address is rcohen@yourfears.bbhtx.org. If you
need to e-mail me off list just get rid of "your fears" and
drop me a line.

"habib" <ustun21@hotmail.com> wrote in message
news:uQerhHgRDHA.2196@TK2MSFTNGP11.phx.gbl...
> Hello, everybody!
>
> thank you.
>
>

Top

Re: How can i download with vbs? by habib

habib
Wed Jul 09 06:08:14 CDT 2003

a web site.

"Robert Cohen" <jerrygarcia@gratefuldead.com>, haber iletisinde þunlarý
yazdý:OVwEqagRDHA.2148@TK2MSFTNGP11.phx.gbl...
> from where are you talking? a web site? a server?
>
> --
> My E-mail address is rcohen@yourfears.bbhtx.org. If you
> need to e-mail me off list just get rid of "your fears" and
> drop me a line.
>
>
> "habib" <ustun21@hotmail.com> wrote in message
> news:uQerhHgRDHA.2196@TK2MSFTNGP11.phx.gbl...
> > Hello, everybody!
> >
> > thank you.
> >
> >
>
>

Top