Skript per Tastendruck beenden

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
    - 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: Skript per Tastendruck beenden Tag: 138038
  - 2
    - 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: Skript per Tastendruck beenden Tag: 138037
  - 3
    - 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: Skript per Tastendruck beenden Tag: 138026
  - 4
    - 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: Skript per Tastendruck beenden Tag: 138022
  - 5
    - 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: Skript per Tastendruck beenden Tag: 138021
  - 6
    - 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: Skript per Tastendruck beenden Tag: 138020
  - 7
    - 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: Skript per Tastendruck beenden Tag: 138017
  - 8
    - 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: Skript per Tastendruck beenden Tag: 138011
  - 9
    - 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: Skript per Tastendruck beenden Tag: 137989
  - 10
    - 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: Skript per Tastendruck beenden Tag: 137984
  - 11
    - 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: Skript per Tastendruck beenden Tag: 137980
  - 12
    - 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: Skript per Tastendruck beenden Tag: 137976
  - 13
    - 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: Skript per Tastendruck beenden Tag: 137969
  - 14
    - 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: Skript per Tastendruck beenden Tag: 137966
  - 15
    - 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: Skript per Tastendruck beenden Tag: 137952
  - 16
    - 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: Skript per Tastendruck beenden Tag: 137947
  - 17
    - 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: Skript per Tastendruck beenden Tag: 137943
  - 18
    - 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: Skript per Tastendruck beenden Tag: 137935
  - 19
    - 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: Skript per Tastendruck beenden Tag: 137931
  - 20
    - 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: Skript per Tastendruck beenden Tag: 137924
  - 21
    - 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: Skript per Tastendruck beenden Tag: 137920
  - 22
    - 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: Skript per Tastendruck beenden Tag: 137917
  - 23
    - 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: Skript per Tastendruck beenden Tag: 137913
  - 24
    - 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: Skript per Tastendruck beenden Tag: 137907
  - 25
    - 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: Skript per Tastendruck beenden Tag: 137905
- Next
  - 1
    - 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: Skript per Tastendruck beenden Tag: 137904
  - 2
    - 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: Skript per Tastendruck beenden Tag: 137901
  - 3
    - 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: Skript per Tastendruck beenden Tag: 137900
  - 4
    - 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: Skript per Tastendruck beenden Tag: 137893
  - 5
    - 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: Skript per Tastendruck beenden Tag: 137885
  - 6
    - * 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: Skript per Tastendruck beenden Tag: 137881
  - 7
    - 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: Skript per Tastendruck beenden Tag: 137872
  - 8
    - 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: Skript per Tastendruck beenden Tag: 137868
  - 9
    - 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: Skript per Tastendruck beenden Tag: 137864
  - 10
    - 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: Skript per Tastendruck beenden Tag: 137863
  - 11
    - 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: Skript per Tastendruck beenden Tag: 137855
  - 12
    - 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: Skript per Tastendruck beenden Tag: 137845
  - 13
    - 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: Skript per Tastendruck beenden Tag: 137835
  - 14
    - 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: Skript per Tastendruck beenden Tag: 137833
  - 15
    - 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: Skript per Tastendruck beenden Tag: 137830
  - 16
    - 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: Skript per Tastendruck beenden Tag: 137827
  - 17
    - SessionVariables - INSERT INTO Command How can I use Session Variables to populate a field using the Insert Into command? troyo@troyo.net Tag: Skript per Tastendruck beenden Tag: 137819
  - 18
    - 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: Skript per Tastendruck beenden Tag: 137815
  - 19
    - 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: Skript per Tastendruck beenden Tag: 137813
  - 20
    - .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: Skript per Tastendruck beenden Tag: 137811
  - 21
    - 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: Skript per Tastendruck beenden Tag: 137808
  - 22
    - 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: Skript per Tastendruck beenden Tag: 137802
  - 23
    - 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: Skript per Tastendruck beenden Tag: 137798
  - 24
    - 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: Skript per Tastendruck beenden Tag: 137797
  - 25
    - Connecting WMI on server in another domain?? Help This is a script that works fine loccaly, but i want to use it on several other server in all different domains. How can i do this? (I tried to send the admin credentials along, but i am doing something wrong. I can't get it to work) So if anyone knows how to adjust this so i can use it, you would make my day less frustrating ;-)) Thanks in advance Patrick --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.493 / Virus Database: 292 - Release Date: 25/06/2003 Tag: Skript per Tastendruck beenden Tag: 137794

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

Top

Re: Skript per Tastendruck beenden by Hadi

Hadi
Thu Jul 10 04:57:21 CDT 2003

Hi Kurt,

I made something like this:

My script looks for a certain file in the same directory like "Script.Stop"
and exits if the file is created. It is not via keyboard but you're able to
exit a script from the outside.

Greetings,
Hadi

"Kurt Wagner" <carpe_diem@surfeu.de> wrote in message
news:919a09cc.0307090034.5c1c8e47@posting.google.com...
> 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

Top