what does <> do

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
    - Sequence number in batch file Hello, I want to add sequence number, 1, 2,3, .... in my output file to identify/sort results by the number. How can I do it in the batch files below? And how can I assign a line read from screen after |findstr to a variable, so I can use the value for the next command? Thanks Wensi I want output like: 1, server1, reply 2, server2, reply ... no, servern, reply. Here are my tries: My example 1: ( problem: how can I add the number) for /f "tokens=1* delims=" %%i in (servers.txt) do ( echo %%i, >> output.txt ping -n 1 %%i |findstr /i "reply from timed out unknown" >> output.txt ) My example 2: (problem: how can I get the number and assign the value to a variable) set intNum = 0 for /f "tokens=1* delims=" %%i in (servers.txt) do ( echo intNum, %%i ping -n 1 %%i |findstr /i "reply from timed out unknown" set intNum = %intNum& +1 ) Tag: what does <> do Tag: 167914
  - 2
    - Sequence number in batch file Hello, I want to add sequence number, 1, 2,3, .... in my output file to identify/sort results by the number. How can I do it in the batch files below? And how can I assign a line read from screen after |findstr to a variable, so I can use the value for the next command? Thanks Wensi I want output like: 1, server1, reply 2, server2, reply ... no, servern, reply. Here are my tries: My example 1: ( problem: how can I add the number) for /f "tokens=1* delims=" %%i in (servers.txt) do ( echo %%i, >> output.txt ping -n 1 %%i |findstr /i "reply from timed out unknown" >> output.txt ) My example 2: (problem: how can I get the number and assign the value to a variable) set intNum = 0 for /f "tokens=1* delims=" %%i in (servers.txt) do ( echo intNum, %%i ping -n 1 %%i |findstr /i "reply from timed out unknown" set intNum = %intNum& +1 ) Tag: what does <> do Tag: 167913
  - 3
    - InStr Readline trim? I have an xml file that I need to read using a script. Here is a snippet of what the file is in notepad: <property name="slotInfo0902" caption="PCI Slot 2" value="Available"/> </structure> </category> <category name="architecture" caption="Architecture"> I need to search for "PCI Slot 2" or whatever slot number it may be, and return Slot number and the value cleanly like "Slot 2 = Available". The problem that I am encountering is that the search string is returned in a different character position everytime I run the script, so I can't do a ObjSFile.Write trim(mid(strPCI, 39, 49) & " = " mid(strPCI,58,67)) Any thoughts? Tag: what does <> do Tag: 167911
  - 4
    - oExec.StdOut after pipe Findstr Hello, Can Exec object read lines from standard out after a pipe in command-line? Below is my script. After I added |findstr in the command-line oExec does not read anything from screen. Any tips? Thanks, Wensi strCommand = "%comspec% /c ping -n 1 " & strComputer & "|findstr /i ""reply timed unknown""" set oExec = Wshshell.Exec (strCommand) Do Until oExec.StdOut.atEndofStream Wscript.Echo oExec.StdOut.Readline & " , " & Ucase(strComputer) Loop Tag: what does <> do Tag: 167908
  - 5
    - Setting an OS environment variable in a script? Hi, I'm trying to rewrite a batch file that I have used for quite some time into a VBScript script. I have ran into a problem though... I have a command that calls Visual Source Safe (VSS) via command line parameters. For VSS to work properly with command lines, one must set an environment variable that holds the user's ID. For example, in the bat file, one would code this as: SET ssuser=billg "C:\Program Files\Microsoft Visual Studio\VSS\win32\ss.exe" get "$/BigProject" -GLc:\CompileBigProject\ -I- If the 'ssuser' environment variable is not set, then when SS.exe is ran, it asks for the user's ID. I have not been able to figure out how to run SS.EXE and pass it the user's ID, other than with an environment variable. So, how would be the best way to code this in a script? Any help would be greatly appreciated. thanks, joe Tag: what does <> do Tag: 167906
  - 6
    - VBscript to automate installation Hi, I'm a programmer;however, new to VBScripting. I need guidence to write a VBscript which does the following: Once a user logs into window (XP/2003), certain user specific programs (define by the admin) starts installing automatically. Any specific example(s) or website(s) references would be greatly appreciated. Also, if there is another alternative??? Thanx in Advance, Latez. Tag: what does <> do Tag: 167901
  - 7
    - Need Help I am looping through a file reading user names and trying to modiy the telephone notes for each account using the below and can't get it to work? Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\dictionary.txt", 1) Do While objFile.AtEndOfStream = False strName = objFile.ReadLine strContainer = "CN=Users,DC=remote,DC=agilent,DC=com" Set objItem = GetObject("LDAP://CN=" & strName & "," & strContainer) End If On Error Resume Next Const ADS_PROPERTY_UPDATE = 2 objUser.Put "info", "Informational Text" objUser.PutEx ADS_PROPERTY_UPDATE, _ "info", Array("Informational Text") objUser.SetInfo Loop Tag: what does <> do Tag: 167900
  - 8
    - Validation script is being bypassed I am trying to test a validation logic in one of the text field I have in a form. The name of the text field is txt_CurrentOutlay. The save button in the form is coded as follows: <input type="submit" value="Save" name="btn_Save" > The name of the form is frmMain The validation logic code is written as : If (Len(document.frmMain.txt_CurrentOutlay.value) = 0) Then MsgBox "You must enter a number for current outlay field." Exit Sub End If Now, if I intentionally, do not put any value to the above field and save, I do not get any message as per the validation scirpt above. I am wondering where am I going wrong here? The txt_CurrentOutlay is tagged to a table field in Access as currency field. Any help is appreciated in advance. Thanks. Tag: what does <> do Tag: 167899
  - 9
    - Automate Excel 2003 addin install I'm trying to script an add-in install for Excel 2003 (source addin = .xla file). I can't seem to find where or if this info is stored in the REG (XP). I know VBS can copy/write the info.... but to where?... . Any ideas ?. Ty Tag: what does <> do Tag: 167897
  - 10
    - Parsing Text File I need to parse a text file so if a tag ( such as, <startlob1> ) is found it cannot be on a line by itself. Here's an example, jimmy^1234^937-555-2222^ ^<startlob1> some text <endlob1>^ ^<startlob2>BOOK TO SPEC/HAND. PLEASE ENSURE PT HAS UTD PLAIN FILMS IF NOT DONE RECENTLY PRIOR TO ORTHO APPT. THANKS. <endlob2>^ ^<startlob3> some text <endlob3> I want to parse this file to look like this: jimmy^1234^937-555-2222^ ^<startlob1>some text <endlob1>^ ^<startlob2>BOOK TO SPEC/HAND. PLEASE ENSURE PT HAS UTD PLAIN FILMS IF NOT DONE RECENTLY PRIOR TO ORTHO APPT. THANKS.<endlob2>^ ^<startlob3>some text<endlob3> In other words, the tags cannot be on a line by themselves. I would appreciate any help. Thanks! -- --dweezil Tag: what does <> do Tag: 167896
  - 11
    - Multiple Secondary WINS Entries I have a script in VBScript that automates the WINS entries (1 Primary and 1 secondary) but has a problem when I try to add more than "1" Secondary WINS entries. Attached is the script and any help will be much appreciated (panjwana@exchange.ml.com). _________________________________________________________________________ On Error Resume Next strComputer = "." strWINSPrimaryServer = "146.125.87.65" strWINSSecondaryServer = "146.125.40.65" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") WScript.Echo VbCrLf & "Host Name: " & strComputer & VbCrLf & _ " Attempting to set WINS primary and secondary servers ..." For Each objNicConfig In colNicConfigs WScript.Echo VbCrLf & _ " Network Adapter " & objNicConfig.Index & VbCrLf & _ " " & objNicConfig.Description intSetWINSServer = objNicConfig.SetWINSServer(strWINSPrimaryServer, _ strWINSSecondaryServer) If intSetWINSServer = 0 Then WScript.Echo " Successfully set WINS servers." ElseIf intSetWINSServer = 1 Then WScript.Echo " Successfully set WINS servers." & _ VbCrLf & " Must reboot." Else WScript.Echo " Unable to set WINS servers." End If Next WScript.Echo VbCrLf & String(80, "-") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs WScript.Echo VbCrLf & _ " Network Adapter " & objNicConfig.Index & VbCrLf & _ " " & objNicConfig.Description WScript.Echo " Primary WINS Server: " & objNicConfig.WINSPrimaryServer WScript.Echo " Secondary WINS Server: " & _ objNicConfig.WINSSecondaryServer Next ____________________________________________________________________________ ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: what does <> do Tag: 167884
  - 12
    - Remove Security Groups How can I run this script against multiple users at one time so it goes through a list of users and removes all the security groups? On Error Resume Next Const ADS_PROPERTY_DELETE = 4 Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D Set objUser = GetObject _ ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") arrMemberOf = objUser.GetEx("memberOf") If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then WScript.Echo "This account is not a member of any security groups." WScript.Quit End If For Each Group in arrMemberOf Set objGroup = GetObject("LDAP://" & Group) objGroup.PutEx ADS_PROPERTY_DELETE, _ "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") objGroup.SetInfo Next Tag: what does <> do Tag: 167880
  - 13
    - I would like to be able to exit out of my loop by pressing a particular key. Hi, Background to the problem. ---------------------- I have nearly new PC that breaks down every now and then and I want to prove to the Tech Support man that there is something wrong with it. If I boot it and leave it in BIOS setup, it runs OK annd will probably run forever. I want to boot the machine in DOS mode run a vbscript to stress it a bit and get its cooler fans running because I think that thats where the problem is. The problem -------------- So I want to run a stupid looping thing with lots on random calc that just goes on and on. And get those chips sizzlin' and them fans spinnin' But I would like to be able to exit out of my loop by pressing a particular key. Can that be done ? TIA Scottie Tag: what does <> do Tag: 167876
  - 14
    - The ConnectionString property has not been initialized Hi, I am fairly new to ASP.NET and have been working on a web form that will allow a user to upload images to a database. I have found a sample web form that I have been trying to get working, and the web form loads up fine but upon submitting the image, it comes with the following error: The ConnectionString property has not been initialized. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.InvalidOperationException: The ConnectionString property has not been initialized. Source Error: Line 129: Try Line 130: Line 131: myConnection.Open() Line 132: Line 133: myCommand.ExecuteNonQuery() I found this script from the following website http://aspalliance.com/articleViewer.aspx?aId=138&pId= Can anyone please help I am completely lost as to how to correct this problem. I am using Visual Studio 2005 beta 1, IIS 6.0, .NET version 2.0.40607 and SQL Server 2000. Any help would be greatly appreciated. Thank, Devante Tag: what does <> do Tag: 167875
  - 15
    - Help needed in VBScript Actually i'm working on windows CE environment there i need to write some asp pages ... my problem is:- I had a automation component registered in my device, i need to call the methods of this from ASP page using VBScript. I'm able to create a object and able to call the methods. Here, some of the methods returning more than one value .... so, how can i get their contents from my ASP page. To return one value i used [out, retval] in my method, where it is throwing one return value that i'm catching in my ASP page, but for more than one value how i can get.... Here is my function signature: STDMETHODIMP CMath::FunctionName(BSTR var1, BSTR var2, SHORT *retrn1, SHORT *retrn2) so, now from VBScript how can i pass reference to this variables and get the contents from the method. -- Software Engineer -- Software Engineer Tag: what does <> do Tag: 167873
  - 16
    - VBscript to save a web page I am looking for a VBscript that will open a pre-defined URL and save the contents to a htm file. Anyone already got it and doesn't mind to share. Thanks Tag: what does <> do Tag: 167865
  - 17
    - Using COM object's enum Hello, I would like to know how to use a COM object's enum in VBScript? For example: Set objCN = CreateObject("ADODB.Connection") 'objCN.CursorLocation = adUseClient Note that "adUseClient" is an enum (ADODB.CursorLocationEnum.adUseClient). Thanks a lot. Sa Tag: what does <> do Tag: 167864
  - 18
    - rename files according to file list in excel Dear, I would like to rename all files in a directory, starting with the first file in that directory. The new name of the file should be the first name vb finds in an excel list starting from Cell A1 to end of list. I have starting with someting like this: Function RENAME() Dim oldName, newName Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("C:\data") For Each file In f.Files Name oldName As newName Next End Function But as you can see I still need the loop through cell A1... Can somebody help me? Thanks Frederik. Tag: what does <> do Tag: 167863
  - 19
    - Me in vbscript ? Hi, I have created a table with this script : <table onmouseover=this.style.background='Gray' language=javascript> How I can change onmouseover event to vbscript ? I use vbscript for my website. Thanks in advance. Tag: what does <> do Tag: 167854
  - 20
    - Populating a pull down list in a .hta from AD I'm working on a user.hta file and I need to populate a pull down of all the users, then with that I can populate all the other information fields and eventually get the hta to use POST to update specific information. Anyone have an example of using some ADSI within an hta ? Mike Tag: what does <> do Tag: 167850
  - 21
    - From field in Outlook blank Hello, I have this script that emails me, but I can't seem to get it to fill in the From field in Outlook. I receive the message, but the From field is blank. When I open the message up, the From field is filled in properly, but when the message is listed in Outlook, the From field is blank. I'm using legitimate users in From field too. I know this sounds confusing, but if you have Outlook, then you'll know what I mean... Here is the script: Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.Sender = """user1"" <user1@company.com>" objMessage.To = "user2@company1.com" objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication." objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.21" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Script runs fine, but I wondering if I'm missing something, or is this the inherent nature of SMTP relaying. Thanks all, Troy Tag: what does <> do Tag: 167848
  - 22
    - Cannot formulate proper script for validation Hi, I got a text box named txt_CurrentOutlay which updates a currency field in a database table. Now I need to do a validation for this field. I would like to force user to submit a currency(numeric) field. If they do not supply numeric field and try to jump to next txt field, it should give a alert message stating "Only numbers are allowed in this field and then forcing 0 to this field. I am curious to know which event this validation takes place. Any article, sample or link to a web site is higly appreciated. Thanks in advance. Tag: what does <> do Tag: 167847
  - 23
    - cmd tool output to variable Hey folks. Thanks for all the help prior. I am now trying to collect the output information from a cmdline tool. pslist I would like to run pslist and put its contents into a variable that I can later write to a file. Can someone help me with this Thanks Tag: what does <> do Tag: 167845
  - 24
    - terminal server How can I get the internet address of the RDP Client when they acess Terminal Server? Tag: what does <> do Tag: 167839
  - 25
    - Perform PGP decryption in VBScript I am trying to find out if it would be possible to perform PGP decryption within VBScript. Any sample codes would be greatly appreciated. Thank you. Tag: what does <> do Tag: 167837
- Next
  - 1
    - Scripting MBSA Is there a way to alter the resutls page that MBSA generates to make the links to the needed patches on a local system or a USB key instead of it pointing to WU? We are trying to patch systems off our network and if we could get MBSA to point to an offilne storage that would be great. Or being able to parse a txt file that MBSACLI generates and then have a script chain the needed patches together would be even better! Regards. Tag: what does <> do Tag: 167833
  - 2
    - Object does not support this property or method "Document.Report" Hi, I have the following vbscript in the <head> of asp page. <SCRIPT LANGUAGE="VBScript"> sub btn_LogOut_OnClick() dim asnwer answer=msgbox("Are you sure you want to exit?. If your session is not locked but sure to save your changes first before exiting.",vbYesNo,"Notice") if answer=vbyes then Document.Report.Submit end if end sub </SCRIPT> I am calling this method from a button click of the same page and the code for that is: <input type="button" value="Log Out (Will not Save)" name="btn_LogOut" > I have no idea why I am gettin the above error. Any help is appreciated. Thanks. Tag: what does <> do Tag: 167831
  - 3
    - Read Text File into Excel Using VBA or VBScript Hi All, I'm a new VBA programmer. I know how to pull an entire text file into an Excel Spreadsheet, but I only want specific information from the text file not the entire text file. What I have is about 25 text files stored in a folder, let's say C:\test. Each file is named by a property address as follows: 209 MAIN ST.txt 213 MAIN ST.txt 111 ELM ST.txt 2356 WOOD AVE.txt On the 11th row of each file is as follows: Property Address:209 MAIN ST On the 31st row of each file is as follows: Total Value:30500 What I would like to do is read each file located in the "C:\test folder and write a record (row) into a single Excel Spreadsheet for each property. I would like the Excel Spreadsheet to look as follows once completed. Note the 1st row below is a header row that needs to be generated by the code. Property Address Total Value 209 MAIN ST 30500 213 MAIN ST 60700 111 ELM ST 20400 2356 WOOD AVE 20900 Can I read a header list (in a spreadsheet, text file, or hard coded in the code) which I would prefer the spreadsheet or text file method, write the header row in A1 then B1. Next read the 25 text files and search based on the header info written above (Property Address & Total Value) and write the appropriate to the single spreadsheet. The 11th row of the First text file value written in cell A2, then read the 31st row of the First text file write the value in cell B2, then loop to the Second text file and values from The 11th row of the Second text file value written in cell A3, then read the 31st row of the Second text file write the value in cell B3, so on and so forth until the last text file is read and the last record is written. I know this is elementary to most, but I'm a beginner programmer and sure could use the help... Can any one help? Thanks in advance. Willie T Tag: what does <> do Tag: 167828
  - 4
    - Script to open word remotely I am trying to run a script across a network to run word on another machine. I can start a process on the remote machine, but I can't get the window to show up. Any ideas? Thank you! -- connerl Tag: what does <> do Tag: 167827
  - 5
    - Get information from an other program Hello, Does anybody know how i can get information with VBscript from a window of an other program. I have a little pice of javascript where it works. But my VB is better than Javascript The javascript is: var Running = 0; var TE = new ActiveXObject("DAT32COM.TERMINALEMULATION"); var V = new ActiveXObject("Viewpoint.ViewpointSrv"); var xmlDoc = new ActiveXObject("Microsoft.XMLDOM") xmlDoc.async="false" function Som(Command) { TE.MakeEntry("<FORMAT>"+Command+"</FORMAT>"); return(TE.ResponseXML); } function Loep() { var Response = Som("QCA"); xmlDoc.loadXML(Response); nodes=xmlDoc.documentElement.childNodes; PCC.innerText=nodes.item(0).text.substring(6,10); In the row above i get the info from digit 6 to 9. Thks, Michel Tag: what does <> do Tag: 167821
  - 6
    - FSO file.type How do you deal with FSO file.type method returning "JPEG Image" on one PC and "DELL Image Expert Picture" on another when the file's extension is jpg? Must I parse the file.name property to be sure of its type? thanks LJB Tag: what does <> do Tag: 167819
  - 7
    - getting type mismatch with array I'm building a treeview page that is generated and expanded as the user opens links from it, and am using an array stored in a session variable to maintain the tree. The problem I've hit is that of how to corectly dim the array variable. the variables are dimed after option explicit, but having dim arrtree there throws a type mismatch at line 116 when the array is empty but not when its populated having dim arrtree() throws same at line 87 when the array is populated, but is fine when its empty obviously trying to have two dim statements in the if-else throws a 'redefined' error. other than removing the option line, how to get round this? this is the part of the code that is doing the work: if intmenuid > 0 then if session("arrtreeflag") > "" then arrtree = session("arrtree")'########line 87 thisid = Request.QueryString("thisid") x = ubound(arrtree,2)+1 arrtree(9,thisid) = 1 sql = "select tagid,rtrim(m1.menuname) from navigate_tags t left join navigate_menus m1 on tagid = m1.menuid where parentid = "&intmenuid&" and menuname is not null order by node" else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 strmessage = "reset" end if else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 intmenuid = 0 end if if strmessage > "" then Response.Write "timeout - tree reset to top<br/>" 'sql = "cn_viewtree_count "&intmenuid&" " Response.Write "" set rs = conn.execute(sql) if not rs.eof then do while not rs.eof Response.Write "" redim preserve arrtree(10,x) ''''##########line 116 arrtree(0,x) = rs(0) ' node id arrtree(1,x) = 0 ' 0 = menu 1 = item if intmenuid > 0 then arrtree(2,x) = intmenuid ' parentid if intmenuid = 0 then arrtree(2,x) = 0 ' parentid arrtree(3,x) = rs(1) ' name Response.Write "" set rs_c = conn.execute("cn_viewtree_child "&rs(0)&" ") arrtree(4,x) = rs_c(0) ' has child 0 false 1 true arrtree(5,x) = 0 ' has been used in tree arrtree(6,x) = level ' tree level arrtree(7,x) = x ' array node arrtree(8,x) = intmenuid'parentnode 'parent array node arrtree(9,x) = 0 ' has been opened Response.Write "adding index["&x&"] id["&arrtree(0,x)&"]par ["&arrtree(2,x)&"]name["&arrtree(3,x)&"]child["&arrtree(4,x)&"]level ["&arrtree(6,x)&"]parentnode["&arrtree(8,x)&"] <br />" x=x+ 1 rs.movenext loop end if 'arrtree(4,x) = 0 ' has child 0 false 1 true set session("arrtree") = nothing session("arrtree") = arrtree set session("arrtreeflag") = nothing session("arrtreeflag") = "current" Tag: what does <> do Tag: 167818
  - 8
    - how to read the correct Excel data area I exported a Access table to Excel sheet, then added some more data records, on the sheet. When I re-read this sheet with VBS with DAO, like; Set DB = DBE.Workspaces(0).OpenDatabase(xlsFile,False,False,"Excel 8.0;") Set RS = DB.OpenRecordset(sheetName). With RS Do While Not .EOF ----- ----- All added data records can not be read and stopped always previous end point. Is any place still have the size of data sheet? If so, how to correct and let VBS read the correct , expanded, data area? Thanks in advance, M.M -- ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: what does <> do Tag: 167812
  - 9
    - ASP Pages accessing databse issue I am attempting to retrieve a value from a database and populate a textbox on my html form. This code appears to run fine without error but i do not get any value in my textbox. Im very new to ASP and im having to change an existing system. If i do not put my vbscript code at the bottom of the screen then my page will not render correctly. Can anyone please help me ??? Are there any major flaws with my code ??? should my script be before my textbox ???? by the way im only hardcoding input values for test purposes. <%@ Language=vbscript LCID=2057%> <HTML> <HEAD> <title>IDD Document</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout" bgcolor="#ffdcff"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" style="Z-INDEX: 102; LEFT: 0px; POSITION: absolute; TOP: 0px" cellSpacing="0"cellPadding="0" width="100%" border="0" height="100%"> <TBODY> <TR> <TD style="HEIGHT: 42px" vAlign="top"> <BR> <INPUT id="btn_BackToMenu" type="button" value="Close Window" onclick="window.close()" runat="server"></TD> ******************************************************************* *******************TEXT BOX I WANT TO POPULATE********************* <input type="text" name="T1" size="20" value="<%= strtext%>" ******************************************************************* ******************************************************************* </TR> <TR> <TD><iframe name="myIframe" height="100%" width="100%" frameborder=no src="documents/IDD.pdf" </TR> </td></form> </TABLE> </form> </body></IFRAME></TR></TBODY></TABLE></FORM> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** <% Dim oRS, strSQL, txt_ClientCode, strtext txt_ClientCode = "AA3" If len(txt_ClientCode)>0 Then 'strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode = '" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then strtext = oRS("ClientCode") Response.Write(strtext) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If %> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** </BODY> </HTML> Tag: what does <> do Tag: 167810
  - 10
    - populating AD fields from pick list I want to scroll through my USERS container and for each user, I want to be able to manually select from a list and return a code that is inserted into a field in AD for that user... Idealy once selected that field could be removed from the list. This is a one time deal so does not have to be fancy. I have my list of names/codes in Excel. Carl Tag: what does <> do Tag: 167808
  - 11
    - how to create directories? I am unsure as to how to do this without creating a long winded script. I want check to see if a directory or 2 directories exist and if they don't then create them. ie: dir1 \ dir2 \ dir 3 \dir 4 \ dir 5 So dir1 exists but 4 & 5 don't and neither do 2 + 3. The only way to do this that i have found is to create a separate variable for each directory and then create each separately oDir1 = c:\dirA\dirB oDir2 = dirC oDir3 = dirD mDir = oDir1 + oDimM mDir = MDir + oDir3 (just a sample) Is there a better way of doing this? jp Tag: what does <> do Tag: 167806
  - 12
    - vbscript error accessing database client or server ?? I am trying to run the following vbscript code (see SCRIPT CODE below) using an onclick event on a button(see BUTTON CODE below). I am getting the "error: object expected" at the button code line. Is there a fundamental problem with my script , i.e. trying to run a server side script using a button or is there merely a coding error??? I was hoping to run this code automatically when the page loads pulling in the txt_ClientCode value from a cookie but when i used the line txt_ClientCode = request.cookie("ClientCode") and ran the code as client side script i got an error on the word request. Can anyone please give me a few explanations as to what is happening and any helpful hints. BUTTON CODE <input name="testname" type=button onclick="TestMsg()" style="width:105px;"> SCRIPT CODE <SCRIPT LANGUAGE=vbscript runat=server> Function TestMsg() Dim oRS, strSQL, txt_ClientCode txt_ClientCode = "G10" If len(txt_ClientCode)>0 Then strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then msgbox(oRS("ClientCode")) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If end function </SCRIPT> Thanks Tag: what does <> do Tag: 167805
  - 13
    - Re: Communicating Between VB6 and a HTML Document Happy New Year Winguy: You have written the code to set the value of a text, but, have you discovered how to set & retrieve the values of Check boxes, and Select Options? Thanks. From: WinGuy (no_spam@nomail.bot) Subject: Communicating Between VB6 and a HTML Document View this article only Newsgroups: microsoft.public.scripting.vbscript Date: 2004-12-28 12:26:03 PST I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html,Read the rest of this message... (43 more lines) Post a follow-up to this message Tag: what does <> do Tag: 167801
  - 14
    - ActiveX Calendar Control On FrontPage 2003 Hi there, I inserted a Calendar Control 10.0 into my FrontPage 2003. I can display it however, I was unable to retrive my selected date value. I don't see a property called Value when I use the "." operator. If I use the sample code from article 299691, I got an Error: Object required: 'Calendar1' Did I use an incorrect version of Calendar Control on FrontPage 2003? Any idea? Thanks. Abel Chan Tag: what does <> do Tag: 167800
  - 15
    - Error in loading DLL. '800a0030' Hi folks, I have been trying to solve an ERROR during some days with no result. I would appreciate if any of you could help me with this issue. This is the error message produced by the ASP page: Microsoft VBScript runtime error '800a0030' Error in loading DLL: 'Datos.SetObjProceso' /Prueba.asp, line 4 And this is the ASP code: ASP Page (Prueba.asp) ------------------------------- Set Proceso= Server.CreateObject("Procesosdll.Proceso") Set Datos= Server.CreateObject("Procesosdll.Datos") Set Proceso.SetObjDatos = Datos Set Datos.SetObjProceso = Proceso <----- The error happens to be here ------------------------------- None of the posible reasons apply to this case: - Use of collections: There is not collections in the 2 objects. - Sending e-mails: There are no emails sent from this component. - Return recordsets: I don´t return them. - Return types defined by the user (UDT): As you could see in the code, this practice is not used. The most extrange thing is that the previous code line to the error (Set Proceso.SetObjDatos = Datos), which is very similar, does not produce the ERROR. The component Procesosdll have 2 objects: Datos and Proceso. These are the properties related to the error (the others are working fine): Object Datos ------------------------------- Private mvarObjProceso As Proceso Public Property Set SetObjProceso(ByVal obj As Proceso) Set mvarObjProceso = obj End Property ------------------------------- Object Proceso ------------------------------- Private mvarObjDatos As Datos Public Property Set SetObjDatos(ByVal obj As Datos) Set mvarObjDatos = obj End Property ------------------------------- It is also very weird that in the development environment everything is working fine and, on the other hand, in the production env. this misterious error is being happing. Development environment detail ------------------------------- Windows NT 4.0 + SP 6 IIS 2.0 VB 6.0 ------------------------------- Production environment detail ------------------------------- Windows 2003 Server IIS 6.0 ------------------------------- Unfortunately I cannot have the same configuration (OS+IIS) in both environments as they belong to different companies shared to different users. Any help would be really appreciated. Thanks in advanced and regards. Sergio Galindo. Tag: what does <> do Tag: 167799
  - 16
    - using variable in Where clause I am trying to create a script that will kill a process based on the process name which is passed to the script as a cli argument. The following code snippet works fine if the process name is hardcoded in the script, but I can't assign the process name to a variable and use that in the ExecQuery command. Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'AIM.EXE'") I would rather use WHERE Name= variable Tag: what does <> do Tag: 167789
  - 17
    - class property Let -v- Set Anyone have an example that could illustrate where/when a Class Property â??Setâ?? is used as opposed to a â??Letâ?? (or visa-versa)? All I have found so far is ... "Property Setâ??s used when you need to use a procedural property to pass an object for use by the class, rather than just a standard variable" â?¦ which I read as you need a 'Set' when you are going to pass an object reference (such as a FSO file) to a procedure in the class object. For example a MyClass.MyFile=oFSO.GetFile("test.txt") would use a Set, but a MyClass.MyFileName = "test.txt" would use a Let. Cheers -- Alun Boyd (UK) Tag: what does <> do Tag: 167783
  - 18
    - Problem with the WHERE clause in an SQL Script. The Field HUPDEMP can be a valid Employee Code or a Constant. The Constant will always be SSS. I am having trouble with the constant script on the following statement. Where is my syntax error? rsTEXAS.Open "SELECT * FROM HSCHOOL ORDER BY HCLBKDT, HSchool WHERE HUPDEMP = '" & EmpCode & "' or HUPDEMP = 'SSS'", cnnct, 3, 3 Thanx in Advance Len Tag: what does <> do Tag: 167782
  - 19
    - parse output data Hello all, Please excuse this newbie question, but I am trying to hack a previously made script to do my bidding, and unfortinatly I am not very good with VB / ASP The script works put I want to parse the data down to the first line or so and I can not for the life of me figure out how. Here is the script <% ' Create an instance of the object. Set whois = Server.CreateObject("GSWhois.Whois") ' Attempt to connect to a "whois" server... if (whois.Connect("whois.arin.net") = "OK") Then 'using IP TO TEST will replace with variable <%strIP%> once inserted into page output = whois.Query("115.23.98.2") Response.Write Output Else Response.Write("Unable to connect to whois server") end If whois.Close Set whois = Nothing %> and here is the output OrgName: Internet Assigned Numbers Authority OrgID: IANA Address: 4676 Admiralty Way, Suite 330 City: Marina del Rey StateProv: CA PostalCode: 90292-6695 Country: US NetRange: 96.0.0.0 - 126.255.255.255 CIDR: 96.0.0.0/4, 112.0.0.0/5, 120.0.0.0/6, 124.0.0.0/7, 126.0.0.0/8 NetName: RESERVED-8 NetHandle: NET-96-0-0-0-1 Parent: NetType: IANA Reserved Comment: RegDate: Updated: 2002-09-12 OrgAbuseHandle: IANA-IP-ARIN OrgAbuseName: Internet Corporation for Assigned Names and Number OrgAbusePhone: +1-310-301-5820 OrgAbuseEmail: abuse@iana.org OrgTechHandle: IANA-IP-ARIN OrgTechName: Internet Corporation for Assigned Names and Number OrgTechPhone: +1-310-301-5820 OrgTechEmail: abuse@iana.org # ARIN WHOIS database, last updated 2005-01-03 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database. I really only want the first part of the data can someone help me with this please? TIA DP Tag: what does <> do Tag: 167781
  - 20
    - connecting to pcs and a different path on each connection I need to connect to about 80 different pcs. I have that working but on each pc that I connect to I need to specify a different path. ie c:\documents and settings\bob or \larry or \susan I am talking about %username% = bob,larry, and susan but Im not sure how I can do that. there is not connection between the computername and username. I am in a 2003 ad domain but Im not sure how I can link the two. Each computer has 2-3 different users on them but should only have 1-2 possibly 3 that have been used to logon to the domain. Can anyone help me with the path problem Thanks Ryan Tag: what does <> do Tag: 167780
  - 21
    - get total size of a folder (all objects in it) on a remote computer How can I get the total size of a folder (all objects in it) on a remote computer? I have been looking for an example but having no luck. -thanks! Tag: what does <> do Tag: 167778
  - 22
    - Uploading a File from a Form as Stream I am working on a Library Administration web page. The page provides the capability to add, edit, replace, suspend/activate, and delete documents from the site Library. The user selects a function and the form is dynamically produced using XML and the .innerHTML functionality. My problem is I need to be able to allow the upload of a file without actually submitting the form. All functionality of this admin interface is based on using the CreateObject("MSXML2.XMLHTTP") functionality, sending XML back and forth from client to server so the page does not have to reload. Any suggestions on how to upload a file to the server from this page using VBScript and a stream? Thanks in advance to anyone who can figure it out. Jim Tag: what does <> do Tag: 167774
  - 23
    - Exchange 2003 mailbox creation I've made a script to create a single user in Windows 2003 AD, with homedir and mailbox, I can create the user and the homedir but NOT the mailbox. Everything works but the mailbox creation. I run the script from the DC, it altso runs the exchange 2003! Why doesn't this work???????? ---------------- code snip ------------------------ Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.SetInfo user.GetInfo user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName & "@DOMAIN.COM" user.AccountDisabled = False user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr user.put "l", sBy user.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName user.Put "homeDrive", "Q:" user.put "scriptPath", "logon.vbs" 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True user.SetInfo user.SetPassword "12345" MBXStoreDN = "CN=Mailbox Store (SERVER),CN=First Storage Group,CN=InformationStore,CN=SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAIN,DC=COM" Set exchUser = user ExchUser.CreateMailbox MBXStoreDN ExchUser.SetInfo ----------------------- code snip -------------------------- Regards Ole Rasmussen Tag: what does <> do Tag: 167770
  - 24
    - Proxy Settings Hello There! Is there a possibility to read out the proxy settings from a remote computer and maybe change them via a script? I think about WMI objects or something. Maybe even over remote access to the registry? cu StefanP Tag: what does <> do Tag: 167769
  - 25
    - checking log file Hello everyone, I have a logfile that is updated every 5 minutes. What I'd like to do is have a vbscript monitor this file and if the last date modified is greater than 30 minutes from the current time, send an email to me. Anyone have any idea of doing this? I'm struggling with the way to subtact minutes from the timestamp of the log file. Thanks! Moogeboo Tag: what does <> do Tag: 167763

Sorry I know this is a lame question but what does <> test for

if something <> 0 then
writeline

is that not 0
or
not equal to 0 ?

Thanks
any links helpfull as well
Thanks

Top

Re: what does <> do by Steven

Steven
Thu Jan 06 17:10:06 CST 2005

not equal to.......

--

Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Benji" <gy1@radiant.net> wrote in message
news:10trh1ccaffq7ba@corp.supernews.com...
> Sorry I know this is a lame question but what does <> test for
>
> if something <> 0 then
> writeline
>
> is that not 0
> or
> not equal to 0 ?
>
> Thanks
> any links helpfull as well
> Thanks
>
>

Top

Re: what does <> do by Benji

Benji
Mon Jan 10 13:52:16 CST 2005

thought so thanks

Ryan
"Steven Burn" <somewhere@in-time.invalid> wrote in message
news:uqkRGUE9EHA.3820@TK2MSFTNGP11.phx.gbl...
> not equal to.......
>
> --
>
> Regards
>
> Steven Burn
> Ur I.T. Mate Group
> www.it-mate.co.uk
>
> Keeping it FREE!
>
> "Benji" <gy1@radiant.net> wrote in message
> news:10trh1ccaffq7ba@corp.supernews.com...
>> Sorry I know this is a lame question but what does <> test for
>>
>> if something <> 0 then
>> writeline
>>
>> is that not 0
>> or
>> not equal to 0 ?
>>
>> Thanks
>> any links helpfull as well
>> Thanks
>>
>>
>
>

Top