XML DOM/Parser for VBScript?

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
    - navigate to open a new URL Is there a way to use navigate command to open a new URL(ie., a new page)? Thanks. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: XML DOM/Parser for VBScript? Tag: 150333
  - 2
    - date settings There is a way in order to set the system date setting (Control Panel/International settings) from "gg/MM/aa" to "gg/MM/aaaa" via vbs file? Thanks Sandro Tag: XML DOM/Parser for VBScript? Tag: 150332
  - 3
    - Panel style I have panel on my page: <asp:Panel Runat="server" Visible="False" style="Z-INDEX: 101; LEFT: 400px; POSITION: absolute; TOP: 150px" ID="pnlTimeSpot"> When this panel is visible, it has fixed position. How can I move this panel on the page with mouse? Like if you open new window. I don't want to have the fixed position on the page. Probably something with the style attribute? Thank you, Simon Tag: XML DOM/Parser for VBScript? Tag: 150330
  - 4
    - environment variables hi, could anyone tell me how to read the USERNAME variable from a local machine. I want to read the currently logged on username, and from there use that name in the script. ben Tag: XML DOM/Parser for VBScript? Tag: 150324
  - 5
    - Problem with shell I have a code. When i run this command from command prompt, it works. But when i run it from a script, it doesn't works. Where i made an error? Here is my code: Option Explicit Const SYSTEM = "C:\Windows\System32\Portqry.exe" Const TEMP = "C:\1.txt" Const PORTNUMBER = 25 Const ForReading = 1 Dim WshArguments, fso, WshShell Dim plik Dim dlugosc Dim linia Dim dziala Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") 'If fso.FileExists(TEMP) Then ' fso.DeleteFile (TEMP) 'End if WshShell.Run SYSTEM + " -n myserver -e " + CStr(PORTNUMBER) + " -l " + "c:\1.txt", True Wscript.Sleep 2000 Set plik = fso.OpenTextFile (TEMP, ForReading) While Not plik.AtEndOfStream linia = plik.ReadLine If Mid(linia, 1, 8) = "TCP port" Then dlugosc = Len(linia) If Mid(linia, dlugosc - 12, 13) = "NOT LISTENING" Then dziala = False Else dziala = True End if End if Wend plik.close 'If fso.FileExists(TEMP) Then ' fso.DeleteFile (TEMP) 'End if If dziala Then MsgBox "Port " + CStr(PORTNUMBER) + " open" Else MsgBox "Port " + CStr(PORTNUMBER) + " close" End if Tag: XML DOM/Parser for VBScript? Tag: 150322
  - 6
    - Can I get around this problem? Hi there, Most of the scripts I have written have been for use by administrators on servers, so they are designed to run with full permissions. I have recently had to write a script to be run on the desktops across our organisation. The script works well when I test it on machines I have built but I have a problem with the production machines. I have designed the script to run under cscript and output data to the console window. The problem is that when I run the script (using a non administrator account) it always fires up under wscript, even though I specifically told it to run using cscript ie: cscript myscript.vbs. I have tried using the switch to set the default script runtime but on W2K and XP machines this produces an insufficient permissions error. Is this normal? Is it meant to run to decide of it's own accord which script engine to run under? I can not see any logic to having both wscript and cscript available but only allow the script to run under one of them if not an admin. And I personally think running a script with output to a console window is far preferable to those annoying popup messageboxes which plague the internet. The problem this causes is that my nicely formatted output designed to be shown in a console window instead bombards the user with popup messageboxes which shows the text line by line.... which is really crap. As the network here is in a shocking state (thankfully I had nothing to do with this - I just have to clean up the mess) I am not able to change the default script engine of all machine en masse via say login scripts. These clowns decided, when designing the network, that it was smarter to run login scripts locally on each machine. As you can guess this is sheer stupidity and created an administrative nightmare. But thats another story. Anyway, am I missing something? Should I not be able to run a script using the engine I specify when I call the script? Or am I going to have to modify the script to display everything as godawful popup boxes with the accompanying beeping noise? This needs to be run on 18000+ machines... just the beeping alone could cause an earthquake.... Seriosuly though, what's the deal? I have found nothing on MSDN that states this is by design or suggest any solutions. Cheers Tag: XML DOM/Parser for VBScript? Tag: 150307
  - 7
    - Character issues! On my homepage I have a guestbook. Just before christmas someone wrote a message in my=20 guestbook. My guestbook pretty much look like this page=20 when you post a new message.=20 So what happend is that the message added in my guestbook=20 ended with =A4=A4=A4. Normally after app 40 characters it=20 changes lines, just like this page (Post a new message).=20 With this =A4=A4=A4 it doesn=B4t change lines. It just writes it=20 in one long line.=20 Does anyone know how to solve this problem or is this a=20 html problem? Tag: XML DOM/Parser for VBScript? Tag: 150301
  - 8
    - Printing HTML files via *.wsf I have directories full of *.htm & *.html files, which I want to print via MSIE (v6.0). The code that I have muddled thru currently will open MSIE, displays the correct number of files in the directory that I have dropped on the *.wsf, and then closes. However, it does not print. My code is: <package> <job> <script language="vbscript"> dim fso, fldr, fldrs, fltag, mergelist,fc, nfc, x set fso = createobject("scripting.filesystemobject") set ie = createobject("internetexplorer.application") set oWsh = createobject("wscript.shell") set oArgs = wscript.arguments fileerror = 0 on error resume next if oArgs.count = 1 then set fldrs = fso.getfolder(oArgs(0)) set fc = fldrs.files ie.Visible = true wscript.echo cstr(fc.count) + " files found." for each fl in fc on error resume next if instr(ucase(fl.name), ".HTM") > 0 or instr(ucase(fl.name), ".HTML") > 0 then documents.open oArgs(0) + "\" + fl.name if documents.count > 0 then With documents.PageSetup End With with documents.PrintOptions .outputtype = 1 .printcolortype = 2 .printinbackground = false end with documents.PrintOut end if documents.close end if next end if ie.quit set ie = nothing wscript.echo cstr(fileerror) + " errors." </script> </job> </package> I have no clue how to proceed. I get a LOT of *.htm & *.html files that I need to print! I'm used to Excel's VB, but this is a different ball of wax altogether. Thanks for any assistance y'all can provide! Tag: XML DOM/Parser for VBScript? Tag: 150298
  - 9
    - Remove user from LOCAL group Hello, I need to be able to remove users from the LOCAL Administrators group. I have found samples of removing users from domain groups - I have to be able to remove users from the LOCAL Administrators group. All suggestions are greatfully accepted. TIA, Bill Burke bill@2burkes.com Tag: XML DOM/Parser for VBScript? Tag: 150295
  - 10
    - get some value of a URL The following is my problem VB script. How to get the value of facility(ie. USA) in a URL like http://myscript?facility=USA?? Thanks!!! <SCRIPT language="vbscript">  </script> *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: XML DOM/Parser for VBScript? Tag: 150293
  - 11
    - Need scripting help PLEASE Here is what I need to do: I have a text file which contains a few hundred lines and is delimited with commas. Each line contains computer name, domain, user name, date, time, etc. I need to look for a certain text string (like "service not running") that will also appear in some of the lines in the file and output the computer name that has this entry to another text file. The computer name appears at the beginning of the line but won't be the same length for all entries, if that helps. Every computer name is followed by a equals sign (=) and then the domain name, also if that helps. Can anyone get me started? I'm sure this isn't too difficult but I'm new to this VB stuff. Thanks and happy new year Brett Tag: XML DOM/Parser for VBScript? Tag: 150289
  - 12
    - Making a script pause for completing of external install I have a need to write a script that will perform 4 steps (make directory, copy files, run an installation program, change registry settings.) I would like the 4th step to not execute until the third step, Run an installation program, has completed. The installation program is a small VB app that was made by a company now out of business. We still need to use this installation and then change some registy entries after the installation has completed. Is there any way that this can be accomplished. In the old days, using a batch file would work because you could give a command to wait until control came back to the batch file. Is there any line of code that would be similar to this to use with VB scripting? Thanks in advance Gordon Cashmore Tag: XML DOM/Parser for VBScript? Tag: 150285
  - 13
    - (null): 0x80005000 I copied the below script straight from the Microsoft Scripting Center - and it won't run on my PC. I am a domain admin and a local admin. I get the following error: (null): 0x80005000 Any suggestions? TIA, Bill Burke bill@2burkes.com '**************************************** strComputer = "." Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user") objUser.SetPassword "<newpassword>" objUser.SetInfo '**************************************** Tag: XML DOM/Parser for VBScript? Tag: 150280
  - 14
    - email notification for password expiration Does anyone have a script that would email users a notification before their domain passwords expire? Tag: XML DOM/Parser for VBScript? Tag: 150277
  - 15
    - Very slow queries from ASP Hi I'm seeing a very weird (and new) phenomena on two of my IIS servers. Suddenly, queries are very very slow. The weird part is that if i run the query from Query Analyzer it works great (0 seconds) but if i run it from ASP i get a very slow responce and sometimes even timeout. any idea what is diffrent between ASP & QA? I'm using the next connection test page :  <% Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") sConnectionString = _ "Provider=SQLOLEDB.1;" &_ "Data Source=MySQL;" &_ "Initial Catalog=MyDatabase;" &_ "OLE DB Services=-1;" &_ "Integrated Security=SSPI" Conn.Open sConnectionString strQuery = "EXEC DB.dbo.MySP_that_does_something @UserName='MyUser'" RS.Open strQuery, Conn Response.write RS.Fields(0) Conn.close set Conn = Nothing set RS = Nothing %> Tag: XML DOM/Parser for VBScript? Tag: 150272
  - 16
    - Functionality Lost I have a script that connects to a domain and gets a list of computers. It then processes that list to perform various functions like checking Admin group membership and disabling services. One of my test functions is to determine if a machine is a workstation or not. In October, that code worked fine. But when I went to run it this month, it stopped working. The code is as follows: Function IsWorkstation(CompName) 'On Error Resume Next Dim objRegistry,objRegKey,strProdTypeVal,strProdTypeKey,objWMIRegistry,strProdTy peKeyWMI IsWorkstation = False strProdTypeKey = "\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ProductOptions\" Set objRegistry = CreateObject("RegObj.Registry") If err.Number <> 0 Then wscript.echo CompName & " RegObj.Registry not established. Error:" & err.Number & ":" & err.description : err.clear Set objRegistry = objRegistry.RemoteRegistry(CompName) If err.Number <> 0 Then wscript.echo CompName & " RemoteRegistry not established. Error:" & err.Number & ":" & err.description : err.clear Set objRegKey = objRegistry.RegKeyFromString(strProdTypeKey) If err.Number <> 0 Then wscript.echo CompName & " RegRead not successful. Error:" & err.Number & ":" & err.description : err.clear strProdTypeVal = objRegKey.Values("ProductType").Value 'Here we get the ProductType value If err.Number <> 0 Then wscript.echo CompName & " ObjReg did not work. Trying WMI: Error: " & err.Number & ":" & err.description : err.Clear strProdTypeKeyWMI = "SYSTEM\CurrentControlSet\Control\ProductOptions\" Set objWMIRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & CompName & "\root\default:StdRegProv") If err.Number <> 0 Then wscript.echo CompName & " WMIRegistry Failed with Error: " & err.Number & ":" & err.description : err.Clear objWMIRegistry.GetStringValue HKLM,strProdTypeKeyWMI,"ProductType",strProdTypeVal 'Here we get the ProductType value If err.Number <> 0 Then wscript.echo CompName & " WMIRegistry Read Failed with Error: " & err.Number & ":" & err.description : err.Clear Set objWMIRegistry = nothing End If wscript.echo CompName & " is of type " & strProdTypeVal If strProdTypeVal = "WinNT" Then 'The computer is an NT Workstation, not a Server IsWorkstation = True End If Set objRegKey = nothing Set objRegistry = nothing End Function The RegObj.Registry probably broke because I upgraded my office from XP to 2003. I am not as concerned about that portion of the code as I am about the fall-back method. At the time I wrote the code, we still had a large number of non-Win2K machines so WMI was not an option in all cases. Now, the percentage is very low and the WMI method would be the preferred method. But, for some reason, the WMI is not working anymore. When I execute the above code against a remote machine, I get the following error: Workstationtest.vbs(18, 3) (null): Remote calls are not allowed for this process. This used to work. It appears that some patch has closed the WMI door that would allow me to read the registry. Maybe I have to provide authentication now? Any guidance on this problem would be greatly appreciated. Charles J. Palmer Tag: XML DOM/Parser for VBScript? Tag: 150270
  - 17
    - How can I do this? Is it possible to run this VBS from a command line and use an Array of values in a cycle? ========================================= SitesList = Array("1", "2", "3") For idx = lbound(SitesList) to Ubound(SitesList) MakeWebSite.vbs -p " & SitesList (IX) & "..........ect next ========================================= This is tipically in VBScript format...can I write in DOS and put it in a .BAT file to run? Any help much appreciated. Regards -- Fabrizio Maccarrone -- YAMSSQLU (Yet Another MSSQL User) Tag: XML DOM/Parser for VBScript? Tag: 150267
  - 18
    - Cookies Creation Hi I have a strange problem with cookies. Problem: I have a link in my site navigates to a different Site. Some links will be provided at the other site through which a user navigates to our site. But when i Return my session needs to remain in my Site and user need not to login again. For this I have created two cookies with two values before navigating to other site. When I return I could not able to retrieve those two cookie values at very first time. From next time onwards I am able to retrieve. So, if any one can give some solution why is this happening for the very first time. Or Any possible solution for this scenario greatly helps us. thanks in advance. thanks srinivas moorthy Tag: XML DOM/Parser for VBScript? Tag: 150264
  - 19
    - need acces to external event via vbscript hi all firstable : Hi I use vbscript into a specific application that have its own programing inteface. I wanted to know if it is possible to get the values of variable that have been generated outside vbscript. For example if i run a vbscript trough an Visual basic prog, is it possible to get the variables defined in VB ? secondly Is it a way to monitor activities of a particular process (popup generating, acces to databases ...) : for example if my prog generate an error popup, i need to catch this event and send a mail with vbscripting . Is it possible ? Thanks Guillaume Tag: XML DOM/Parser for VBScript? Tag: 150262
  - 20
    - Get subfolders name based on Count no. Hi there, I am writing the scripts to get subfolders files to send for printing. Inside my codes, I write the codes to allocate half of the subfolders files to Printer One and the other half of subfolders files are allocated to Printer Two. I am using the subfolders.count property and this given me the total number of subfolders that I have in the parent folder. I am able to do for the first half and now I would like to know which is the folder that I should start from to send for Printer Two. For instance, total count of the subfolders have 10, therefore I will send files from subfolder 1 till 5 to Printer 1. And, starts from subfolders no.6 till 10 will send to Printer 2. Now I am stucking at how to continue for Printer 2. I am wondering whether I can use Item(i) sth like.... cnt = objFolders.Subfolders.Count i = 1 If cnt <> 0 Then For Each foldername in objFolders.Subfolders Set objSubfolders = objFs.Getfolder(foldername.path) Set objFiles = objSubfolders.Files 'Sends to Printer 1. For Each filename In objFiles objFs.CopyFile objSubfolders & "\" & filename.name, "\\server\Printer1" Next If i = Round(objFolders.Subfolders.Count/2,0) Then Exit For End If i = i + 1 Next End If I need some advice here, please help. Thanks. Tag: XML DOM/Parser for VBScript? Tag: 150261
  - 21
    - Determining port I need to know, that port 25 on my server is opened. I have a code, but i don't want to use winsock. Anyone have any idea? Here is my code: Dim Sock set Sock = createobject("MSWINSOCK.Winsock") Main Sub Main() ' For i = 19 To 25 Step 1 CheckPort "srv1srv", 25 ' Next End Sub Function CheckPort(RemoteHost, Port) 'On Error Resume Next Sock.RemotePort = Port Sock.RemoteHost = RemoteHost Sock.Connect Dim WshShell set WshShell = WScript.CreateObject("WScript.Shell") Dim Counter Counter = 0 While Sock.State <> 7 And Sock.State <> 8 And Sock.State <> 9 And Counter < 5 'Give it 25 seconds to connect before continuing: Counter = Counter + 1 WScript.Sleep 5000 Wend set WshShell = nothing If Sock.State = 7 Then MsgBox "Port " & Port & " is accepting connections!" ElseIf Counter = 5 Then MsgBox "Request timed out. Check the server your connecting to." Else MsgBox RemoteHost & ":" & Port & " is rejecting connection." End If If Sock.State <> 0 Then Sock.Close End Function Tag: XML DOM/Parser for VBScript? Tag: 150260
  - 22
    - Get the Cookies ;-) '()(Line numb 1): NOTE that this first line must begin with: '() 'Cookie.VBS -- To know the information they got (want), just 'visit a webSite and double click this file named Cookie.VBS 'Author: Benny Pedersen, ( http://2dos.homepage.dk ) 'PS. Try it on a webSite that use cookies, (signon.) dim wso,fso,scr : scr = wScript.scriptFullName set wso = createObject("wScript.shell") set fso = createObject("scripting.fileSystemObject") wso.run "%windir%\notepad.exe " & scr do: loop until wso.appActivate(fso.getFileName(scr)) wso.sendKeys "^{home}{right}+{right 2}^c%{f4}" if (wso.appActivate("Internet Explorer")) then wso.sendKeys"{f4}vbScr:inputBox^v+{left}^xx,""OK"",document.cookie^v~" else msgBox"IE Browser was not open.",,"OOPS:" end if set wso = nothing: set fso = nothing Tag: XML DOM/Parser for VBScript? Tag: 150256
  - 23
    - how to get Unicode char value? Hi, I am writing VBScript for an arbic page, for this I have to know what character value is then I have to replace character with some numeric value. but with following code I can't get UNICODE char value instead i get '?' for e.g for char 'A' i nead value 65 for first arabic char i nead value in script 0627.. Any help will be appriciated ... Dim Found, MyObject, MyCollection Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine, Extend:=wdExtend Set MyCollection = Selection.Words MsgBox "This line has " & MyCollection.Count For Each MyObject In MyCollection ' Iterate through each element. MsgBox MyObject.Text ch = ChrW(MyObject.Characters(1)) Next regards dilbir Tag: XML DOM/Parser for VBScript? Tag: 150255
  - 24
    - UserName from web page I'm new to web programming and need to auto-login users to my VB.NET intranet app. The way I have in mind is to get their user name from environment.username and use that. Problem is that if I try in a Web Form, I generally get "ASPNET" as the username because it executes on the server. How can I get the user's 'UserName' from the client and have it available for my app? Tag: XML DOM/Parser for VBScript? Tag: 150253
  - 25
    - Copy Files to a ZIP compressed folder Hi there, did somebody succeed to copy files (or a complete directory) to a comressed folder (not the NTFS compression) - it is done by the zipfldr.dll. I would like to setup a backup of a certain directory to a memory card (which is not NTFS). What I found is a script to enable and disable the usage of the zipfldr.dll for the system (basically it is the usage of regsrv32) but nothing how to access the methods of the dll. I don't want to use external dll (like the active-x controls from http://www.xstandard.com). thanks for any help! Clemens Tag: XML DOM/Parser for VBScript? Tag: 150247
- Next
  - 1
    - document.referrer When I access document.referrer property it does not return the page form where I came. The same code is working with Opera. I've been trying the code with IE 5.5 and IE 6.0 What's wrong with IE? Tag: XML DOM/Parser for VBScript? Tag: 150246
  - 2
    - trouble w/ htm form in vbs Hi, I'd be grateful for any help. I have a script that CREATES a page in IE. on this page are 4 check boxes a submit and a reset. reset works but I am having a hard time getting submit to work correctly. when submit is clicked it either does nothing or sets IE to a blank page(about:blank) I am trying to use the example below in my script because it does not use the POST or GET method of passing variables to another page. <SCRIPT LANGUAGE="VBSCRIPT">  </SCRIPT> <FORM NAME="Form1"> <B>Choose the areas you are interested in</B> <BR><INPUT TYPE=CHECKBOX NAME="chkIS"> Information systems <BR><INPUT TYPE=CHECKBOX NAME="chkSE"> Systems integration <BR><INPUT TYPE=CHECKBOX NAME="chkSA"> System administration <BR><INPUT TYPE=CHECKBOX NAME="chkMgmt"> Management <BR><INPUT TYPE=BUTTON NAME="Button1" VALUE="Continue"> </FORM> ETC.... . I can find lots of examples of using vbs in htm pages like above... ...But I can't find much on using vbs to create a form in IE. Can I set the VALUE of the submit button to point to a function? How? Tag: XML DOM/Parser for VBScript? Tag: 150241
  - 3
    - Search for files on computer Saw the example script in another thread, but I can't seem to get it to work. It runs but returns nothing. Dim objWMIService Dim colFiles strComputer = "mycomputer" Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile Where filename ='mail.txt'") For each obj in colFiles wscript.echo obj.name 'Returns the full file and path. Next Tag: XML DOM/Parser for VBScript? Tag: 150240
  - 4
    - document outerHTML Hi, Can anyone tell me if it's possible to write over the IE document.html.outerHtml as a unit in script.. Thnx, Maria Tag: XML DOM/Parser for VBScript? Tag: 150235
  - 5
    - Help with Regular Expressions - submatches Hi, this may sound dumb, but i'm just learning. I am running regular expressions to pick out text and want to test for the existence of any submatches within my matches collections. I have tried many ways but just generate errors. Any pointers Regards BP Tag: XML DOM/Parser for VBScript? Tag: 150233
  - 6
    - Help with ASP Webpage I am new to ASP and am getting this error when i try to run the page below. Any assistance would be most welcome. Thanks Nick Truscott ---------------------------- Microsoft VBScript compilation error '800a03ea' Syntax error /njtruscott/check_message.asp, line 30 Else ^ ----------------------------- <% message_from = Replace(Request("from"), "'", "''") message_subject = Replace(Request("subject"), "'", "''") message_body = Replace(Request("message"), "'", "''") message_from = Replace(message_from, "<", "<") message_subject = Replace(message_subject, "<", "<") message_body = Replace(message_body, "<", "<") message_type = Request("message_type") message_parent = Request("parent_id") If Len(message_subject) > 200 Then Response.Write("The subject is too long.") Response.End End If If message_subject = "" Then Response.Write("You have not entered a subject.") Response.End End If If message_body = "" Then Response.Write("You have not entered a message") Response.End End If Set Con = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\---------\db\**********.mdb") & ";" & _ "Persist Security Info=False" Con.Open(sConnection) query = "INSERT INTO messages (message_type, message_from, message_subject, message_body, " If message_type = "thread" Then query = query & "message_forum)" Else query = query & "message_thread)" End If query = query & " VALUES ('" & Ucase(message_type) & "', '" & message_from & "', '" & message_subject & "', '" & message_body & "'" & ", " & message-parent & ")" Con.Execute query Con.Close Set Con = Nothing If message_type = "thread" Then Response.Redirect "view_forum.asp?id="&message_parent Else Response.Redirect "view_message.asp?id="&message_parent End If %> Tag: XML DOM/Parser for VBScript? Tag: 150232
  - 7
    - vbscript-msql2k What is the most efficient way to check sql server available before read/writes to db. In need to notify admin sql server offline/online for 30 servers. Don Tag: XML DOM/Parser for VBScript? Tag: 150230
  - 8
    - ASP Text Box Array Is it possible to make a control array in ASP similiar to a control array in VB? I am trying to show a table that displays several fields for different people. My goal is to try to allow the user to update several fields in the database without have to press an update button after every update. The number of people in the database could be from 1 - 1000. Here is a quick sketch of what I want to do. code:----------------------------------------------------- --------------------------- Name Favorite Color Birthday Mike Smith Blue 10/7/82 Jim Beam Red 9/15/90 --Update Button-- ---------------------------------------------------------- ---------------------- When the update button is pressed I want to be able to update the changes to both Mike and Jim. It just seems repetitive to keep pressing update for each user. I don't think it would be hard if I could make the favorite color and birthday text boxes an array. Is this possible? If not, have any other suggestions? The other thing that I was thinking of is creating the text boxes for each field in a for loop like this: code:----------------------------------------------------- --------------------------- for i = 1 to 2 response.write "<INPUT type="text" name=color" & i & ">" next ---------------------------------------------------------- ---------------------- This would generate a color1 and color2 text box. But the problem I ran into is that I can request these values. Here is the code I tried: code:----------------------------------------------------- --------------------------- for i = 1 to 2 data = "color" & i data = Request(data) response.write "!" & data & "! <BR>" next ---------------------------------------------------------- ---------------------- All that was printed on the screen was two sets of !!. The request wouldn't work when I used a variable instead of a constant. Any suggestions would be greatly appreciated. Thanks for the help. Tag: XML DOM/Parser for VBScript? Tag: 150222
  - 9
    - printing text in vbs I have written text to lpt1 in vbs by writting to the file "LPT1:". What if I want to write to a windows printer that is a USB printer? Also I would really like to make the printer use a specific font or font size. Is there an easy way to do this? In foxpro, I created a DC and used that but I can't do that in vbs. Any Ideas are appreciated. Thanks, Paul Temple Tag: XML DOM/Parser for VBScript? Tag: 150220
  - 10
    - export users in an OU I need help writing a script that will export only users in a specific "OU", any help would be great, thanks!! Tag: XML DOM/Parser for VBScript? Tag: 150217
  - 11
    - permissions errors neosoldierw@icqmail.com power went out at my house, came back up, now i cant view my site, says something about folder permissions not set to read... whats up with that???? ideas send to neosoldierw@icqmail.com Tag: XML DOM/Parser for VBScript? Tag: 150214
  - 12
    - ASP applications with vbscript.encode don't respond. I have IIS 5 running on WinXP Pro at home. I am trying to run a couple of asp applications that use vbscript.encode on most of the asp files. When I hit the web applications, the browser clocks and then times out with a 403 error: Headers not returned. I do not know if the vbscript.encode is the problem, but I can hit other asp applications that do not use encode and they work fine. I can also create a small asp page in the same folder and it responds. These same applications work fine on my hosted site, just not on my home box. Any ideas? or am I looking the wrong direction here? Thanks, Rick... Tag: XML DOM/Parser for VBScript? Tag: 150208
  - 13
    - Translating VBScript to JScript I'm trying to convert a MSDN routine from VBScript to JScript. I've got everything but the last little bit. Of course like most things without that last bit it is useless. The function gets SNMP data from a remote device. I know that for the most part it is working (I sniffed the network) but I haven't figured out the file translation to get usable data. The problem is the for loop. colSystem is an ActiveXObject and which is apparently a container for another ActiveXObject. In VBScript the For Each loop assigns each of the embedded objects to objSystem. My trouble is that I have not been able to figure out the equivelent functionality in JScript. Yes I did try "for in" but that did not work. The original routine in VBScript (http://www.microsoft.com/technet/treeview/default.asp?url=/technet/ScriptCenter/network/scrnet07.asp): ******************** strTargetSnmpDevice = "192.168.0.1" Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator") Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost") Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet") objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice objWmiNamedValueSet.Add "AgentReadCommunityName", "public" Set colSystem = objWmiServices.InstancesOf("SNMP_RFC1213_MIB_system", , _ objWmiNamedValueSet) For Each objSystem In colSystem WScript.Echo "sysContact: " & objSystem.sysContact & vbCrLf & _ "sysDescr: " & objSystem.sysDescr & vbCrLf & _ "sysLocation: " & objSystem.sysLocation & vbCrLf & _ "sysName: " & objSystem.sysName & vbCrLf & _ "sysObjectID: " & objSystem.sysObjectID & vbCrLf & _ "sysServices: " & objSystem.sysServices & vbCrLf & _ "sysUpTime: " & objSystem.sysUpTime Next ******************** My JScript version var strTargetSnmpDevice = "192.168.0.1"; var connectServer = "winmgmts://./root/snmp/localhost"; var strQuery = "Select * from SNMP_RFC1213_MIB_system"; var wmiLocator = new ActiveXObject("WbemScripting.SWbemLocator"); var objWmiNamedValueSet = ActiveXObject("WbemScripting.SWbemNamedValueSet"); var objWmiServices = wmiWmiLocator.ConnectServer("", "root\snmp\localhost") objWmiNamedValueSet.Add ("AgentAddress", strTargetSnmpDevice); objWmiNamedValueSet.Add ("AgentReadCommunityName", "public"); var colSystem = new Enumerator (ActiveXObject(connectServer).ExecQuery(strQuery,null,null,objWmiNamedValueSet)); // Problem Area for (objSystem in colSystem) { WScript.Echo (" sysContact: " + objSystem.sysContact + "\n sysDescr: " + objSystem.sysDescr + "\n sysLocation: " + objSystem.sysLocation + "\n sysName: " + objSystem.sysName + "\n sysObjectID: " + objSystem.sysObjectID + "\n sysServices: " + objSystem.sysServices + "\n sysUpTime: " + objSystem.sysUpTime); } ******************** Tag: XML DOM/Parser for VBScript? Tag: 150206
  - 14
    - Script to convert form to Address Book Contact I am a teacher and would love to find a way to create a form that my students/parents fill out and email me and then have a macro/script take this information and automatically create/update a contact in my Outlook Express Address Book. Please let me know if there is a way to accomplish this. My site is on Comcast, and I cannot dynamically save information to the site. Any other suggestions for quickly saving contact information would be GREATLY appreciated! -- Jeff Ciaccio Dallas, GA (W) 678-494-7863 x-274 (Fax) (W) 678-494-7865 http://home.comcast.net/~ciaccio8515/ Tag: XML DOM/Parser for VBScript? Tag: 150205
  - 15
    - Script name Hi all, Can i get the name of the running script from within the script ? Rikkie Tag: XML DOM/Parser for VBScript? Tag: 150201
  - 16
    - generating charts in vb I'm wondering if anyone has or knows of a vbscript that will generate pie charts and save the image in, say, GIF, BMP or other format? I'm not looking for an ocx or AX dll, or VML displays, just wondering about doing itcompletely in VBScript. If anyone has an idea how or where to look I'd appreciate it. If I figure it out or find something I'll post it. Thanx Fred Tag: XML DOM/Parser for VBScript? Tag: 150195
  - 17
    - Deleting registry value with path I want to delete a registry value that has a path in it, like the following: c:\test\test2 If I try the following: Dim WshShell WshShell.RegDelete "HKLM\Software\Script Test\Key1\c:\test\test2" I get the following error: Unable to remove registry key "HKLM\Software\Script Test\Key1\c:\test\test2". I think this probably because it is seeing the c:\test\test2 as registry keys and not a value. Is there anything else I can do? I do not want to delete the entire registry key. Thanks and Merry Christmas. Mark Tag: XML DOM/Parser for VBScript? Tag: 150192
  - 18
    - copying profile in NT Hi All, Is there any way to copy all the profiles in a NT workstation including that of logged on user.As NT doesn't allow copying of current profile giving a sharing violation.How can this b achieved by scripting. We can achieve this in windows 2000 by run as administrator but i fear that this method doesn't work on NT. all suggestions and inputs are welcomed.. regards gaurav Tag: XML DOM/Parser for VBScript? Tag: 150190
  - 19
    - Prohibit user from ending process Is there a script that will prohibit a user from being able to kill a running process? Any help would be great thanks!! Tag: XML DOM/Parser for VBScript? Tag: 150189
  - 20
    - Get Users Parent container from query This is a multi-part message in MIME format. ------=_NextPart_000_0015_01C3C9FA.7E933750 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Does anyone know how I can include the users parent container from the = following script? The "ou" portion (in BLACK) is where I was trying to = gather that, but it doesn't work. strDNSDomain =3D objRootDSE.Get("defaultNamingContext") strFilter =3D "(&(objectCategory=3Dperson)(objectClass=3Duser))" strQuery =3D "<LDAP://" & strDNSDomain & ">;" & strFilter _ & ";distinguishedName,cn,ou,userPrincipalName,sAMAccountName;subtree" The script below returns exactly what I'm looking for however, I can't = figure out how to incorporate in into the query. I'm trying to populate a spreadsheet with the information that is returned from the "sUserOU" = variable. ' Connect to the LDAP server's root object Set oADsRootDSE =3D GetObject("LDAP://RootDSE") Set oADsSysInfo =3D CreateObject("ADSystemInfo") ' Get distinguished name of the current user sADsUser =3D oADsSysInfo.UserName WScript.Echo "Distinguished name: " & sADsUser ' Get user object sUserPath =3D "LDAP://" & sADsUser Set oADsContainer =3D GetObject(sUserPath) sUserOU =3D oADsContainer.parent WScript.Echo "Users OU: " & sUserOU ' Get full name of the current user sUserNameFull =3D oADsContainer.cn WScript.Echo "Full name: " & sUserNameFull Here is the format that the results are returned. Distinguished name: = CN=3DPRH007,OU=3DAccounts,OU=3DSales,DC=3Dmydomain,DC=3Dnet Users OU: LDAP://OU=3DAccounts,OU=3DSales,DC=3Dmydomain,DC=3Dnet Full name: PRH007 Thanks, Roger ------=_NextPart_000_0015_01C3C9FA.7E933750 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Does anyone know how I can include the = users parent=20 container from the following script?  The "ou" portion (in BLACK) = is where=20 I was trying to gather that, but it doesn't work.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2><STRONG>strDNSDomain = =3D=20 objRootDSE.Get("defaultNamingContext")<BR>strFilter =3D=20 "(&(objectCategory=3Dperson)(objectClass=3Duser))"<BR>strQuery =3D = "<LDAP://"=20 & strDNSDomain & ">;" & strFilter _<BR>  &=20 ";distinguishedName,cn,<FONT=20 color=3D#000000>ou</FONT>,userPrincipalName,sAMAccountName;subtree"</STRO= NG></FONT></DIV> <DIV><STRONG><FONT face=3DArial color=3D#ff0000 = size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial color=3D#000000 = size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2>The script below returns = exactly what I'm=20 looking for however, I can't figure out how to incorporate in into the=20 query.  I'm trying to populate</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2>a spreadsheet with the = information that is=20 returned from the "sUserOU" variable.</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>' Connect to the LDAP = server's root=20 object<BR>Set oADsRootDSE =3D GetObject("</FONT><A = href=3D"ldap://RootDSE"><FONT=20 face=3DArial color=3D#ff0000 size=3D2>LDAP://RootDSE</FONT></A><FONT = face=3DArial=20 color=3D#ff0000 size=3D2>")</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Set oADsSysInfo =3D=20 CreateObject("ADSystemInfo")</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>' Get distinguished = name of the=20 current user<BR>sADsUser =3D oADsSysInfo.UserName<BR>WScript.Echo = "Distinguished=20 name: " & sADsUser</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>' Get user = object<BR>sUserPath =3D=20 "LDAP://" & sADsUser<BR>Set oADsContainer =3D=20 GetObject(sUserPath)</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>sUserOU =3D=20 oADsContainer.parent<BR>WScript.Echo "Users OU: " &=20 <STRONG>sUserOU</STRONG></FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2>' Get full name of the = current=20 user<BR>sUserNameFull =3D oADsContainer.cn<BR>WScript.Echo "Full name: " = &=20 sUserNameFull</FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Here is the format that the = results are=20 returned.</STRONG></FONT></DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT> </DIV> <DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>Distinguished = name:=20 CN=3DPRH007,OU=3DAccounts,OU=3DSales,DC=3Dmydomain,DC=3Dnet<BR>Users OU: = </STRONG></FONT><A href=3D"ldap://t"><STRONG><A=20 href=3D"ldap://OU=3DAccounts,OU=3DSales,DC=3Dmydomain,DC=3Dnet"><FONT = face=3DArial=20 size=3D2>LDAP://</FONT></STRONG></A><STRONG><FONT face=3DArial=20 size=3D2>OU=3DAccounts,OU=3DSales,DC=3Dmydomain,DC=3Dnet</FONT></A><BR><F= ONT face=3DArial=20 color=3D#0000ff size=3D2>Full name: PRH007</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial color=3D#0000ff = size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2>Thanks,</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2>Roger</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial color=3D#0000ff=20 size=3D2></FONT></STRONG> </DIV></BODY></HTML> ------=_NextPart_000_0015_01C3C9FA.7E933750-- Tag: XML DOM/Parser for VBScript? Tag: 150188
  - 21
    - Run minimized (run silently) Hello, Is there a way to force a vbscript to run minimized (run silently)? If so, how? Thanks in advance, Bill bill@2burkes.com Tag: XML DOM/Parser for VBScript? Tag: 150183
  - 22
    - How to get multiple inputs in one input window Hi I am new to scripting and was wondering if anyone can help me. I have been able to use inputbox to get a single input variable whihc I can use in the script but I am wanting to open a single window requesting a few input variables. Is this possible and if so can someone please help Thanks Tag: XML DOM/Parser for VBScript? Tag: 150179
  - 23
    - RemoteScript I'm new to Scripting, I'm having a problem with this script: This is a script cut from the MSDN website and I just cant get it to work. I did some searches and I did enable the registry setting "remote=1" The error I receive: Microsoft VBScript runtime error: ActiveX component can't create object. And sometimes I receive: "(null): Catastrophic failure", even when I try to run the script locally I still receive the same error. I'm really trying to learn this but I have been working on this problem alone for five hours and I dont know what else to try. I am running XP pro and Win2k Pro both with WSH 5.6 Thanks in Advance Frank A, Zanotti fzanotti@panix.com Dim Controller, RemoteScript Set Controller = WScript.CreateObject("WSHController") Set RemoteScript = Controller.CreateScript("test01.vbs", "server01") RemoteScript.Execute Do While RemoteScript.Status <> 2 WScript.Sleep 100 Loop*****Seperate Script*****Test01.vbs:Set objNetwork = CreateObject("WScript.Network")objNetwork.MapNetworkDrive "x:", \\server01\share Tag: XML DOM/Parser for VBScript? Tag: 150175
  - 24
    - Unserialize / Serialize function equivalent to PHP functions i was wondering if anyone had equivalent functions to PHP's Unserialize/serialize functions? i'm trying to convert some PHP code to VBScript .... one portion of the code includes 2-dimensional arrays, which VBScript's functions of Split and Join are not handling very well. from what i can tell, the PHP code takes a 2-dimensional array and "serializes" it to put in a table. one record from this table looks like so: a:3:{s:7:"Content";a:1:{s:2:"Id";i:151;}s:6:"Static";a:4:{s:6:"Exists";i:1;s:2:"Id";i:150;s:3:"Pos";s:3:"top";s:4:"Size";s:2:"92";}s:10:"Navigation";a:1:{s:6:"Exists";i:0;}} somehow i am to "unserialize" this string and put it into a 2 dimensional array. i'm having a time interpreting the string. thats why i'm hoping someone has functions already built that is equivalent to these PHP functions any help will be greatly appreciated. thanks! Tag: XML DOM/Parser for VBScript? Tag: 150170
  - 25
    - DLookup in VBScript Hello, I'm a fairly experienced VB/VBA programmer, but a newbie to VBScript. Currently, I'm converting existing Access dbase forms into data access pages (DAP) for web access. All existing VBA codes have to be converted to VBScript, and I've encountered a problem with the DLookUp method. I get the error: "Type mismatch: 'DLookup'" This is the original code in the Access form varPartName = RTrim(DLookup ("[PART_DESC]", "ICFPM", "[PART_ID]=txtPartID.Value")) txtPartName.Value = varPartName Quickly translated: Find the Part Description from table ICFPM where the Part ID equals txtPartID.Value from the form. Insert the value into txtPartName. Is DLookup not supported in VBScript? If so, what can I use instead? I'm using an unbound DAP form in Access. Thanx, Isbjornen. Tag: XML DOM/Parser for VBScript? Tag: 150167

I need to extract data from XML files w/ several scripts I am writing. Is
there any tool out there that can be accessed from VBScript that will allow
me to either tree or parse the XML data in a way that will make it usable?

Top

Re: XML DOM/Parser for VBScript? by Steve

Steve
Tue Dec 30 09:36:08 CST 2003

Paul Engel wrote:
> I need to extract data from XML files w/ several scripts I am writing. Is
> there any tool out there that can be accessed from VBScript that will allow
> me to either tree or parse the XML data in a way that will make it usable?

MSXML 4.0 SDK
http://msdn.microsoft.com/library/en-us/xmlsdk/htm/sdk_intro_6g53.asp

--
Steve

One of the lessons of history is that nothing is often a good thing to do and
always a clever thing to say. -Will Durant

Top

Re: XML DOM/Parser for VBScript? by Paul

Paul
Tue Dec 30 10:49:46 CST 2003

Thanks. Great documentation. I am installing the download now. Much obliged.

Paul
"Steve Fulton" <cerberus40@hotmail.com> wrote in message
news:uJML0quzDHA.2064@TK2MSFTNGP10.phx.gbl...
> Paul Engel wrote:
> > I need to extract data from XML files w/ several scripts I am writing.
Is
> > there any tool out there that can be accessed from VBScript that will
allow
> > me to either tree or parse the XML data in a way that will make it
usable?
>
> MSXML 4.0 SDK
> http://msdn.microsoft.com/library/en-us/xmlsdk/htm/sdk_intro_6g53.asp
>
> --
> Steve
>
> One of the lessons of history is that nothing is often a good thing to do
and
> always a clever thing to say. -Will Durant
>
>

Top

Re: XML DOM/Parser for VBScript? by Han

Han
Mon Feb 16 10:31:42 CST 2004

Sounds like msxml component. ProgID is msxml2.domdocument.

"Paul Engel" <pengel@source-imaging.com> wrote in message
news:eoKDXbuzDHA.1576@TK2MSFTNGP11.phx.gbl...
> I need to extract data from XML files w/ several scripts I am writing. Is
> there any tool out there that can be accessed from VBScript that will
allow
> me to either tree or parse the XML data in a way that will make it usable?
>
>

Top