Get Current Directory using CSCRIPT v5.1

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
    - Script or simple proggy Does anyone have a script that will beep or somthing when a service stops (or when any services that are automatic stops)? I would think that this is a simple thing. I don't need a lot of extra stuff just want to monitor some exchange services. Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138072
  - 2
    - What can I use to automate clicking defined buttons in a web page? Say I had a webpage called chriswebpage.com and on that web page I had set WshShell = CreateObject("WScript.Shell") WshShell.Run "http:\\www.chriswebpage.com" WScript.Sleep 100 WshShell.SendKeys "{TAB}" WshShell.SendKeys "{ENTER}" Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138069
  - 3
    - Referencing user-defined fields in outlook Typical ... I lose patience looking for an answer on the web, but as soon as I post the query I come across the information wanted (or some of it) To access a user-defined field I can use the syntax item.Userproperties.find("fieldname") It would still be useful to come upon a list of the standard fileds if anyone knows a reference. Having started in this way - perhaps I'm trying to crack a nut with a sledgehammer... I want to present a central user with a form with tickbox and text box entries - but then I want the 'send' action to reformat this information as text and put it in the message of the email (or body). I assumed that outlook was the best place to create a form as this is purely being created to build a mail message. there's no point in sending the script itself in the email though - is there any way I can get outlook to delete the script in the outbound email. Sorry for the false start there Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138068
  - 4
    - detect printer spooler crashing hello all, hope you all are well. just wondering does anyone know a way using VBScript to detect the print spooler is down. the problem is that when the spooler crashes - it's state remain "running" is there a way to send data[a request] to the spooler , wait , then somehow test output from the spooler to determine if it is really running or not. i don;t know much about spoolers so im not sure if this is possible[should be though] and i don't know what kind of data/request would be ideal to send to it. something along the lines of: 1) send data to spooler. 2) spooler processes info. 3) spooler sends out info [whatever info this is would determine if it was crashed] - ie, if nothing returned and it should therefore spooler down. i know its all a bit vague but if anyone can help i'd be delighted. thanks all. Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138067
  - 5
    - Newbie Question - referencing user-defined fields Dear All You will save me a lot of heartache if you can direct me to a reference which describes how to reference items in an outlook form (particularly user-defined fields). I only want to create a really simple form but I've hit a brick wall in my experimentation. For some reason the Outlook VBScript help isn't installed on my machine at work (I downloaded something from microsoft which pueports to be vbscript help but this doesn't give an outlook info) I've seen similar questions mentioned here but no response (which doesn't bode well) ... perhaps there isn't much outlook expertise around... All I want to do is have a form but then use VBscript to transfer the input from the user-defined fields in to the body of the email prior to transmission. The Functions are pretty much descriptive - but I can't work out how to address the fields on the form I've found that the Subject is referenced as item.Subject (easy enough), that CC is referenced as item.CC (still simple) the message is referenced as item.Body (Mmmm) but how are the user-defined fields referenced and is there a list of all the standard fields and their references. sorry bout this - this is the sort of stuff that I should be able to glean from help material or sample scripts, but I can't seem to find any such material. Thnks Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138065
  - 6
    - Outlook folders Hello, please help. How can I controll if a special folder in my outlook mailbox is a contact folder. Is there any flag I could check? I tried it with the olContact constant which can controll the items of folder, but by special folder (e.g. the calendar) he gives me an error (Code: 800A1000) sth. with. syncro problems. thanks itbarks Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138063
  - 7
    - How to create a NTDS shortcut on myDesktop Hi All, I want to create a shortcut on my desktop of an OragnizationUnit with a logonScript. I try to use the follow code: '********** set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oShellLink = WshShell.CreateShortcut(strDesktop & "\SharedFolder.lnk") oShellLink.TargetPath = "ntds://myDomain.it/myOU" oShellLink.relativePath = "ntds://myDomain.it/myOU" oShellLink.Description = "Shortcut to SharedoFolder" oShellLink.WorkingDirectory = strDesktop oShellLink.Save '********** But it does not create a valid shortcut. Do u have an idea why it does not work?? The only way i find to create the shortcut to the OU is to drag and drop the OU on my desktop, but I must to automate it!!! Please Help me! Sergio Marchi Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138060
  - 8
    - Troubles with Menu Hello All, I'm having trouble with a popup menu that I use a RightClick event. The menu pops fine, but I still get the default RightClick menu from IE. Is there a way to "disable" the menu? I'm not concerned with the person looking at the code, it is so the user can manipulate images. Any help is appreciated! Todd <HTML OnMouseDown="vbscript:DoRightClick"> <HEAD> <TITLE></TITLE> <style>  </style> <script language="VBScript">  </script> </HEAD> <BODY BGCOLOR="silver" TEXT="#000000" LINK="#0000FF" VLINK="#800080"> <form name="ImgPallette"> <div id="ie5menu" class="skin1" onBlur="Call CloseMenu"> <div class="menuitems" id="divOption1" url="" OnMouseOver="ChangeBack(1)" OnMouseOut="ChangeBack(1)">Rotate Right</div> <div class="menuitems" id="divOption2" url="" OnMouseOver="ChangeBack(2)" OnMouseOut="ChangeBack(2)">Rotate Left</div> <hr> <div class="menuitems" id="divOption3" url="" OnMouseOver="ChangeBack(3)" OnMouseOut="ChangeBack(3)">Remove Image</div> <hr> <div class="menuitems" id="divOption7" url="" OnMouseOver="ChangeBack(7)" OnMouseOut="ChangeBack(7)" onClick="Call CloseMenu">Cancel Menu</div> </div> Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138056
  - 9
    - Login Script Help! vbs Writing a logon script to map some drives in VbScript using the WshNetwork command. What i need to also do is a script to disconnect the maped drives after. I've got this code from microsoft:- Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemoveNetworkDrive "E:" But this will only disconnect E drive. I need it too do all drives that are maped. Any ideas on how? Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138044
  - 10
    - How can i download with vbs? Hello, everybody! thank you. Tag: Get Current Directory using CSCRIPT v5.1 Tag: 138043
  - 11
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138039
  - 12
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138038
  - 13
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138037
  - 14
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138026
  - 15
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138022
  - 16
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138021
  - 17
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138020
  - 18
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138017
  - 19
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 138011
  - 20
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137989
  - 21
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137984
  - 22
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137980
  - 23
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137976
  - 24
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137969
  - 25
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137966
- Next
  - 1
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137952
  - 2
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137947
  - 3
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137943
  - 4
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137935
  - 5
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137931
  - 6
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137924
  - 7
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137920
  - 8
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137917
  - 9
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137913
  - 10
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137907
  - 11
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137905
  - 12
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137904
  - 13
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137901
  - 14
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137900
  - 15
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137893
  - 16
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137885
  - 17
    - * 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: Get Current Directory using CSCRIPT v5.1 Tag: 137881
  - 18
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137872
  - 19
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137868
  - 20
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137864
  - 21
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137863
  - 22
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137855
  - 23
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137845
  - 24
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137835
  - 25
    - 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: Get Current Directory using CSCRIPT v5.1 Tag: 137833

Hello,

I am trying to retrieve the current directory using (CSCRIPT v5.1):

Set objShell = WScript.CreateObject("WScript.Shell")
strCurrDir = objShell.CurrentDirectory

I get "object does not support this property or method."

When I use CSCRIPT v5.5 ==> it runs.

I am not going to be able to upgrade the version of CSCRIPT on the system that
will be running this script.

Is there a way to get this information using CSCRIPT v5.1? What is it?

All suggestions will be greatly appreciated.

TIA,
Bill
bill@2burkes.com

Top