get some value of a URL

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
    - 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: get some value of a URL Tag: 150289
  - 2
    - 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: get some value of a URL Tag: 150285
  - 3
    - (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: get some value of a URL Tag: 150280
  - 4
    - email notification for password expiration Does anyone have a script that would email users a notification before their domain passwords expire? Tag: get some value of a URL Tag: 150277
  - 5
    - 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: get some value of a URL Tag: 150272
  - 6
    - 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: get some value of a URL Tag: 150270
  - 7
    - 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: get some value of a URL Tag: 150267
  - 8
    - 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: get some value of a URL Tag: 150264
  - 9
    - 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: get some value of a URL Tag: 150262
  - 10
    - 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: get some value of a URL Tag: 150261
  - 11
    - 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: get some value of a URL Tag: 150260
  - 12
    - 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: get some value of a URL Tag: 150256
  - 13
    - 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: get some value of a URL Tag: 150255
  - 14
    - 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: get some value of a URL Tag: 150253
  - 15
    - 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: get some value of a URL Tag: 150247
  - 16
    - 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: get some value of a URL Tag: 150246
  - 17
    - 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: get some value of a URL Tag: 150241
  - 18
    - 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: get some value of a URL Tag: 150240
  - 19
    - 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: get some value of a URL Tag: 150235
  - 20
    - 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: get some value of a URL Tag: 150233
  - 21
    - 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: get some value of a URL Tag: 150232
  - 22
    - 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: get some value of a URL Tag: 150230
  - 23
    - 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: get some value of a URL Tag: 150222
  - 24
    - 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: get some value of a URL Tag: 150220
  - 25
    - 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: get some value of a URL Tag: 150217
- Next
  - 1
    - 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: get some value of a URL Tag: 150214
  - 2
    - 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: get some value of a URL Tag: 150208
  - 3
    - 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: get some value of a URL Tag: 150206
  - 4
    - 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: get some value of a URL Tag: 150205
  - 5
    - Script name Hi all, Can i get the name of the running script from within the script ? Rikkie Tag: get some value of a URL Tag: 150201
  - 6
    - 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: get some value of a URL Tag: 150195
  - 7
    - 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: get some value of a URL Tag: 150192
  - 8
    - 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: get some value of a URL Tag: 150190
  - 9
    - 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: get some value of a URL Tag: 150189
  - 10
    - 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: get some value of a URL Tag: 150188
  - 11
    - 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: get some value of a URL Tag: 150183
  - 12
    - 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: get some value of a URL Tag: 150179
  - 13
    - 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: get some value of a URL Tag: 150175
  - 14
    - 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: get some value of a URL Tag: 150170
  - 15
    - 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: get some value of a URL Tag: 150167
  - 16
    - Installing fonts programmatically Instead of copying a font to the fonts folder in Windows and editing the registry (which does not always work), try using the "expand" command to place the font in the folder. This seems to cause Windows to recognize and install the font correctly. It works for me! Tag: get some value of a URL Tag: 150164
  - 17
    - RegExp - how to limit number of digits in a date? Hello, I want to check for specific date formats like 1/1/01 or 01/01/01 or 1/1/2001 or 01/01/2001 Here is one thing (of serveral things) I tried RE.Pattern = "[0-9]{1,2}/[0-9]{1,2}/[0-9]{2}" Debug.Print RE.test("0/1/100") This returns true, but the year part is incorrect. If I only have one digit in the year then it returns false. But if I have 2 or more digits, it returns true RE.Pattern = "[0-9]{1,2}/[0-9]{1,2}/[0-9]{2,4}" Debug.Print RE.test("0/1/100") This also returns true for a year with 3 digits. How do I limit/retrict the number of digits? I imagine I would have the same problem with the month and day parts also. Any suggestions appreciated how to restrict/limit the number of digits (for anything). Thanks, Rich Tag: get some value of a URL Tag: 150154
  - 18
    - How can I call functions inside a DLL in VBS Hi, I want to use some routines like in user32.dll A have know the parmeters but don't know how to call In VB6 A use a declare and than use : call routine(par1,par2) Jan Tag: get some value of a URL Tag: 150152
  - 19
    - Need help on AD. Hello, Running: Windows Server 2003 Problem: 730 Users need their Terminal Services User Profile Path changed from one server to another but keeping the same attributes. Example: Domain is tfa.local, OU is Users. It checks the user name and the terminal services profile path, and sees if the path is \\server1\profile$\(username). If it is, then it changes it to \\server2\profile$\(username), and does this until all are changed. Is this possible? I have been trying out other snippits of code online and it gives me every single stinking error it possibly can. Thank you. Tag: get some value of a URL Tag: 150151
  - 20
    - Remote install This is a multi-part message in MIME format. ------=_NextPart_000_002C_01C3C930.E9CC2830 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello all, ive written a script that is trying to connect to a remote = computer, map the root drive C:, locally to Z: as a shared network drive = and then remotley run the program that was copied over. however ive ran = into trouble and im getting this error when I run the script: Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. swspmanager.exe | IP.txt Connecting to 10.10.10.64... Installing swspmanager.exe... Failed to start process on 10.10.10.64: 9 This is the code of the script,,, Please help if you can! THANK YOU! 'Test to install/run a program on a remote machine on error resume next If right(ucase(wscript.FullName),11)=3D"WSCRIPT.EXE" then wscript.echo "ERROR: You must run this script using cscript, for = example 'cscript " & wscript.scriptname & "'." wscript.quit 0 end if Program =3D wscript.arguments(0) If (Program =3D "") then wscript.echo "Install.vbs (program) (remote IP File) (local path)" wscript.quit end if IPFile =3D wscript.arguments(1) LocalPath =3D wscript.arguments(2) 'To Check if it picked up the correct file name's wscript.echo Program & " | " & IPFile if (LocalPath =3D "") then LocalPath =3D "C:\default path\" end if set onet =3D createobject("wscript.network") set ofs =3D createobject("scripting.filesystemobject") 'Assumes that the ipfile is in the local directory. ipFile =3D Localpath + ipFile 'Verify that ipfile is accessible. set oipFile =3D ofs.opentextfile(ipFile, 1, false) if (Err.Number <> 0) then wscript.echo "Cannot open " & ipFile wscript.quit end if set osvcLocal =3D getobject("winmgmts:root\cimv2") while not oipFile.atEndOfStream ip =3D oipFile.ReadLine() wscript.echo vbCrLf & "Connecting to " & ip & "..." Err.Clear set osvcRemote =3D GetObject("winmgmts:\\" & ip & "\root\cimv2") if (Err.Number <> 0) then wscript.echo "Failed to connect to " & ip & "." else wscript.echo osvcRemote if (Program <> "") then ' Lay the bits on the remote computer. wscript.echo "Installing " & Program & "..." onet.mapnetworkdrive "z:", "\\" & ip & "\C$" set osourceFile =3D osvcLocal.get("cim_datafile=3D""" & = replace(LocalPath, "\", "\\") & Program & """") ret =3D osourceFile.Copy("z:\\Program.exe") if (ret <> 0 and ret <> 10) then ' Failure detected and failure was not "file already = exists." wscript.echo "Failed copy to " & ip & " - error: " & = ret else set oprocess =3D osvcRemote.Get("win32_process") =20 ' Start the installation without user interaction, = and force a restart after completion. ' * Modified not to reboot to prevent user = interuption ret =3D oprocess.create("c:\\Program.exe") if (ret <> 0) then wscript.echo "Failed to start process on " & ip = & ": " & ret else ' Get a reference to the file that was copied. set odestFile =3D = osvcLocal.get("cim_datafile=3D""z:\\Program.exe""") ' Wait for the installation to complete. for waitTime =3D 0 to 500 ' Lay and = wait--up to five minutes for the installation to complete. wscript.Sleep 1000 ' Sleep one second. ' Delete temporary file as soon as = possible after it is freed. if (odestFile.Delete() =3D 0) then exit for end if next ' Otherwise, loop again and keep = waiting... wscript.echo "Installation successful." end if 'Create process succeeded. end if 'Copy succeeded. onet.removenetworkdrive "z:", true end if ' The script knows which patch to install. end if ' Do the next IP address, then the next IP address...=20 wend ipFile.close() ------=_NextPart_000_002C_01C3C930.E9CC2830 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.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>Hello all, ive written a script that is = trying to=20 connect to a remote computer, map the root drive C:, locally to Z: as a = shared=20 network drive and then remotley run the program that was copied = over. =20 however ive ran into trouble and im getting this error when I run the=20 script:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Microsoft (R) Windows Script = Host Version=20 5.6<BR>Copyright (C) Microsoft Corporation 1996-2001. All rights=20 reserved.</STRONG></FONT></DIV> <DIV><STRONG></STRONG> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>swspmanager.exe |=20 IP.txt</STRONG></FONT></DIV> <DIV><STRONG></STRONG> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Connecting to = 10.10.10.64...<BR>Installing=20 swspmanager.exe...<BR>Failed to start process on 10.10.10.64:=20 9</STRONG></FONT></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>This is the code of the script,,, = Please help if=20 you can!</FONT></DIV> <DIV><FONT face=3DArial size=3D2>THANK YOU!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>'Test to install/run a program on a = remote=20 machine<BR>on error resume next</FONT></DIV> <DIV> </DIV><FONT face=3DArial size=3D2> <DIV><BR>If right(ucase(wscript.FullName),11)=3D"WSCRIPT.EXE"=20 then<BR>     wscript.echo "ERROR: You must run this = script=20 using cscript, for example 'cscript " & wscript.scriptname &=20 "'."<BR>     wscript.quit 0<BR>end if</DIV> <DIV> </DIV> <DIV>Program =3D wscript.arguments(0)</DIV> <DIV> </DIV> <DIV>If (Program =3D "") then<BR> wscript.echo "Install.vbs = (program) (remote=20 IP File) (local path)"<BR> wscript.quit<BR>end if</DIV> <DIV> </DIV> <DIV>IPFile =3D wscript.arguments(1)<BR>LocalPath =3D = wscript.arguments(2)</DIV> <DIV>'To Check if it picked up the correct file name's<BR>wscript.echo = Program=20 & " | " & IPFile</DIV> <DIV> </DIV> <DIV>if (LocalPath =3D "") then<BR> LocalPath =3D "C:\default = path\"<BR>end=20 if</DIV> <DIV> </DIV> <DIV>set onet =3D createobject("wscript.network")<BR>set ofs =3D=20 createobject("scripting.filesystemobject")</DIV> <DIV> </DIV> <DIV>'Assumes that the ipfile is in the local directory.</DIV> <DIV>ipFile =3D Localpath + ipFile</DIV> <DIV> </DIV> <DIV>'Verify that ipfile is accessible.<BR>set oipFile =3D=20 ofs.opentextfile(ipFile, 1, false)<BR>if (Err.Number <> 0)=20 then<BR>     wscript.echo "Cannot open " &=20 ipFile<BR>     wscript.quit<BR>end if</DIV> <DIV> </DIV> <DIV><BR>set osvcLocal =3D getobject("winmgmts:root\cimv2")</DIV> <DIV> </DIV> <DIV>while not oipFile.atEndOfStream<BR>     ip =3D=20 oipFile.ReadLine()<BR>     wscript.echo vbCrLf & = "Connecting to " & ip & "..."</DIV> <DIV> </DIV> <DIV>     Err.Clear<BR>     set=20 osvcRemote =3D GetObject("winmgmts:\\" & ip & = "\root\cimv2")</DIV> <DIV> </DIV> <DIV>     if (Err.Number <> 0)=20 then<BR>          = wscript.echo=20 "Failed to connect to " & ip & "."<BR>    =20 else<BR> wscript.echo osvcRemote</DIV> <DIV> </DIV> <DIV>          if (Program = <>=20 "")=20 then<BR>          &nbsp= ;   =20 ' Lay the bits on the remote=20 computer.<BR>          =     =20 wscript.echo "Installing " & Program & "..."</DIV> <DIV> </DIV> <DIV>           &n= bsp;  =20 onet.mapnetworkdrive "z:", "\\" & ip &=20 "\C$"<BR>          &nbs= p;   =20 set osourceFile =3D osvcLocal.get("cim_datafile=3D""" & = replace(LocalPath, "\",=20 "\\") & Program &=20 """")<BR>          &nbs= p;   =20 ret =3D osourceFile.Copy("z:\\Program.exe")</DIV> <DIV> </DIV> <DIV>           &n= bsp;  =20 if (ret <> 0 and ret <> 10)=20 then<BR>          &nbsp= ;        =20 ' Failure detected and failure was not "file already=20 exists."<BR>          &= nbsp;        =20 wscript.echo "Failed copy to " & ip & " - error: " &=20 ret<BR>           =    =20 else<BR>          &nbsp= ;        =20 set oprocess =3D = osvcRemote.Get("win32_process")<BR>    =20 <BR>           &nb= sp;       =20 ' Start the installation without user interaction, and force a restart = after=20 completion.<BR>         &nbs= p;         =20 ' * Modified not to reboot to prevent user=20 interuption<BR>         &nbs= p;         =20 ret =3D=20 oprocess.create("c:\\Program.exe")<BR>     &nbsp= ;            =  =20 if (ret <> 0)=20 then<BR>          &nbsp= ;            =  =20 wscript.echo "Failed to start process on " & ip & ": " &=20 ret<BR>           =         =20 else<BR>          &nbsp= ;            =  =20 ' Get a reference to the file that was=20 copied.<BR>          &n= bsp;           &nb= sp; =20 set odestFile =3D = osvcLocal.get("cim_datafile=3D""z:\\Program.exe""")</DIV> <DIV> </DIV> <DIV>           &n= bsp;           &nb= sp;=20 ' Wait for the installation to=20 complete.<BR>          =             &= nbsp; =20 for waitTime =3D 0 to 500     ' Lay and wait--up to = five=20 minutes for the installation to=20 complete.<BR>          =             &= nbsp;      =20 wscript.Sleep 1000     ' Sleep one=20 second.<BR>          &n= bsp;           &nb= sp;      =20 ' Delete temporary file as soon as possible after it is=20 freed.<BR>          &nb= sp;           &nbs= p;      =20 if (odestFile.Delete() =3D 0)=20 then<BR>          &nbsp= ;            =            =20 exit=20 for<BR>           =             &= nbsp;     =20 end=20 if<BR>           &= nbsp;           &n= bsp;=20 next ' Otherwise, loop again and keep waiting...</DIV> <DIV> </DIV> <DIV>           &n= bsp;           &nb= sp;=20 wscript.echo "Installation successful."</DIV> <DIV> </DIV> <DIV>           &n= bsp;       =20 end if     'Create process=20 succeeded.<BR>         &nbsp= ;    =20 end if     'Copy succeeded.</DIV> <DIV> </DIV> <DIV>           &n= bsp;  =20 onet.removenetworkdrive "z:",=20 true<BR>          end=20 if      ' The script knows which patch to=20 install.<BR>     end if ' Do the next IP address, = then the=20 next IP address... <BR>wend</DIV> <DIV> </DIV> <DIV>ipFile.close()</FONT></DIV></FONT></DIV></FONT></DIV></BODY></HTML> ------=_NextPart_000_002C_01C3C930.E9CC2830-- Tag: get some value of a URL Tag: 150150
  - 21
    - FilesSystemObject line parsing Question Hello everyone, hope you're all well! I've recently started experimenting with the WSH FSO and needed some help with a scenario. Let's say I have a line in a text file that looks like the following: "KeyUsername=username.ID" I'd like to change this to "k:\myserver\myfiles\username.id". How would I go about parsing this line and modifying it, taking into consideration that the username is unique for every user's file. Thanks MT Tag: get some value of a URL Tag: 150148
  - 22
    - admin site Hello All! Happy Holydays! I am developing an Admin site that will have all of the links to all of the servers, routers and other crucial things. I have a every day routine to check all of the event viewer logs, space on the servers and things like that. Now this is becoming a pain when you have more than few servers. It would take me hours. Now, I have seen someone developed some kind of code to display server alerts, errors and events on the webpage. Is there a way for me to extend my Admin site and develop a page where all of the errors in logs will be showing up and all of the disk info for every server will be showing up too? Lets say, have one page for each server or have page for disk space and have total, used and available space for every server and every disk or array. Than, have other page for events only. Please let me know how to do this or how it is supposed to be done as my routine is just pain every day. Best regards, George P.S. Please reply to group as I am posting this question to mere than one group. Tag: get some value of a URL Tag: 150136
  - 23
    - Virus Check a blob Hi, does anyone know if Norton or Mcafee Anti-Virus software support the ability of checking a blob of data for viruses? please advise. thanks Tag: get some value of a URL Tag: 150133
  - 24
    - [off the topic, sorry] online airline reservation ratio Really sorry, but I don't know any NG but this one. online airline reservation ratio I want to know how many Americans buy airline ticket online. More exactly I want keywords to search in Google. Or some other websites. I tried the above keyword without success. I'm not a spammer, but all the bright/kind people I know are here. I've replied a lot here but not so nowadays because of lots of difficult questions. Have nice day. Seoul. Pohwan, Han. Tag: get some value of a URL Tag: 150129
  - 25
    - Delete Registry sub-key In vbscript, I want to be able to delete multiple registry entries with sub-keys. I have only been able to delete a key if there are no sub-keys. If there are sub-keys I get an error when I try deleting the key. I figured that I would just enumerate the sub-keys but I didn't have any luck with this. How would I do this if there are 4 or 5 levels underneath the original entry that I want to remove, and some may only have 0 to 1. Thanks. Mark Tag: get some value of a URL Tag: 150128

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!

Top

Re: get some value of a URL by Ray

Ray
Mon Dec 29 14:05:35 CST 2003

It appears you're trying to mix client side and server side code. Also, you
use request.QUERYSTRING for querystring values. Try:

<%
Session("strfacility") = Request.QUerystring("facility")
response.Redirect http://yoururl
%>

Ray at work

"eddie wang" <ewang@kmg.com> wrote in message
news:eOvtTOkzDHA.3436@tk2msftngp13.phx.gbl...
> 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!

Top