Windows 2000 or XP ?

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
    - Server-side modem connection hi all We've made an ActiveX component for making a data call with a modem attached to the PC. This following code works perfectly in a client-side VBScript in the machine that has the required modem (defined in an .ini file) installed and working <HTML><HEAD><TITLE>Modem testpage</TITLE><SCRIPT LANGUAGE="VBScript" Sub Button1_OnClic Dim MLSe Set MLSes = CreateObject("Modem.Modem" MLSes.Begi MLses.Connec MLSes.SendCommand("strCommand" MLSes.Disconnec MLSes.En Set MLSes = Nothin End Su </SCRIPT></HEAD><BODY><H3>Modem testpage</H3><HR><FORM><INPUT NAME="BUTTON1" TYPE="BUTTON" VALUE="Send Command"></FORM></BODY></HTML As said, this works in the client-side and the data call goes through. However, by changing this to a server-side code, it fails <%@LANGUAGE="VBSCRIPT"%><HTML><HEAD><TITLE>Modem testpage, server-side</TITLE>< Dim MLSe Set MLSes = CreateObject("Modem.Modem" MLSes.Begi MLses.Connec MLSes.SendCommand("strCommand" MLSes.Disconnec MLSes.En Set MLSes = Nothin %></HEAD><BODY></BODY></HTML This does not work anymore, it gives an error message: error '80004005' Unspecified error /Modemtest.asp, line 10 The line 10 is the MLSes.Begin command, which is not working Could this difference between client-side and server-side code be due to some security/permission issues? I haven't found anything regarding it.... My basic idea is that I have a Web browser based GUI, in which the client can press a button, which establishes a modem connection FROM THE SERVER to a REMOTE DEVICE for online data collection Thanks in advance for any advice Yours Mike Tag: Windows 2000 or XP ? Tag: 154066
  - 2
    - Problem with reference assignment / ByRef Sub / "=" operator Hello! It seems that it is not possible to assign a reference from one variable to another with the "=" operator. The "=" operator seems to always assign a value to the left variable. How can I assign the reference stored in the right variable to an other (left) variable? Let's assume that "b" is reference to an other variable (e.g. when using ByRef arguments). a = b Will not copy the reference stored in b to a, it will copy the _value_/content of the variable that is referenced by b to a. How can is copy references instead of values? I wrote a small test suite for this one: Sub TestSet( ByRef a ) Dim ref ref = a 'here a copy of the array a will be assigned to ref instead of assigning a reference ref(0) = 10 'this will change the "copy" not the initial array 'a(0) = 10 'this will change the referenced array End Sub Dim ary ary = Array(5) MsgBox ary(0) 'Will return 5 TestSet ary MsgBox ary(0) 'Should return 10. But returns 5 You might ask, why I don't just use a(0) = 10 to assign the value. In my "real" source code I want so save a reference to an array as a member/property of a Class. The class shall modify the referenced array, but it can't, since it only modifies a copy and the initial array is untouched. I may post the source of this class here, if anyone is interested in it or if it may help. Regards, -Thomas Tag: Windows 2000 or XP ? Tag: 154065
  - 3
    - Can one use Option Explicit in COM? I've tried to use Option Explicit but don't know where to put this line of code. I've check through the docs on COM and could not find any reference that one can use option explicit in COM. any ideas? cheers jk Tag: Windows 2000 or XP ? Tag: 154057
  - 4
    - On Enter Can someone tell me what is the Event that is fired when the user presses enter on a Page in order for me to execute sme code For example, instead of clicking on a Submit Button what VBScript would I need if the user just presses the ENTER key Many thank Mark Tag: Windows 2000 or XP ? Tag: 154056
  - 5
    - Stopping VB script from keeping running from scheduler I have a VB script which is supposed to run every hour. Recently the script is stucked - the scheduled task show that it's running, and i can't stop it. by "end Task" option in the scheduler. The server where the script is running is a production one and i can't restart it. The script isn't listed in the processes list. I run the script directly (puttakanon.vbs) and not through wscript.exe. Any ideas hpw to stop it without restarting the server? Thanks, Barak Tag: Windows 2000 or XP ? Tag: 154051
  - 6
    - Problem with VBScript and ActiveX Hello. I have a Gateway computer with an Intel 1400 MHz Pentium 4 processor. My operating system is the Microsoft Windows Millennium Edition. I bought my computer in April of 2001. Included with the computer was a DVD-ROM called Explore America. This DVD-ROM was developed by Rand McNally. When I first got this DVD-ROM, it ran well. However, recently, there has been a problem. There is a file on the DVD-ROM called setup.vbs This file is a VBScript file. This file is supposed to initiate the main program. However, the file is not executed. The following is the file: BEGINNING OF FILE << regKey = "HKLM\SOFTWARE\Rand McNally\Explore America\installed" Dim mainexe '* path to main.exe Dim setupexe '* path to setup.exe Dim curfilepath '* path to the current file Dim lastlash '* the last "\" in the file path Dim rootdir '* file path to app root '* Get a path to the current file curfilepath = WScript.ScriptFullName lastslash = InStrRev(curfilepath, "\") '* get the path to setup.exe rootdir = Left(curfilepath, lastslash -1) setupexe = rootdir & "\setup.exe" setupexe = Chr(34) & setupexe & Chr(34) '* get the path to the main exe lastslash = InStrRev(rootdir, "\") mainexe = Left(rootdir, lastslash -1) & "\exploreamerica.exe" mainexe = Chr(34) & mainexe & Chr(34) Dim oShell set oShell = CreateObject( "WScript.Shell" ) '* if the required files are installed run the main exe, else the installer If Installed() Then oShell.Run(mainexe) Else oShell.Run(setupexe) End If '* Checks to see if the installation code is written to the registry Function Installed() Dim WshShell Dim keyValue Set WshShell = CreateObject("Wscript.Shell") On Error Resume Next keyValue = WshShell.RegRead (regKey) If Err.Number > 0 Then Installed = False Exit Function ElseIF Len(keyValue) < 2 Then Installed = False Exit Function End If On Error GoTo 0 Installed = True End Function >> END OF FILE When I insert the DVD-ROM, the file stops executing at the 19th line. This is the line: set oShell = CreateObject( "WScript.Shell" ) The following is the error message: ActiveX component can't create object: 'WScript.Shell' The error code is the following: 800A01AD I went into the Control Panel, Internet Properties, Security, Custom Level. I relaxed the security that pertained to ActiveX components. However, that did no good. The security settings in Internet Properties only affect ActiveX components that come from the Internet. The ActiveX components in my situation come from the DVD-ROM. I should mention that, between the last time that this DVD-ROM ran successfully and now, I removed AOL 6.0 and installed AOL 8.0 Also, I have downloaded some updated Flash player and/or Shockwave player. So, what do I do? Regards, Alex K. Tag: Windows 2000 or XP ? Tag: 154049
  - 7
    - Run command on remote computer Hi All, Is there a way to run a command on a remote computer through vbscript? The command would be something like "\\Myserver\Share\something.exe" Thanks Brett ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Windows 2000 or XP ? Tag: 154048
  - 8
    - adersoft vbsedit and debug mode. I purchased adersoft VBsedit and it just rolls through the script passing my break point when I go and try to debug. Anyone else using this product and know how I can get it to go step by step. ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- Tag: Windows 2000 or XP ? Tag: 154041
  - 9
    - Questions about GetRef() and ASP, etc. I'm using ASP and VBScript and need the following functions (or their functionality): IsSub() '-- Tells me if a sub exists in global namespace IsFunction() '-- Tells me if a function exists in global namespace IsMethod() '-- Tells me if a sub or function exists for an object IsProperty() '-- Tells me if a property exists for an object ParameterCount() '-- Tells me how many parameters a sub or function has defined Parameters() '-- Returns list of parameter names for given sub or function IsFunction() '-- Tells me if a function exists in global namespace CallByName() '-- Lets me execute a sub or function by name with optional parameters CallStack() '-- Returns array objects where the objects have Source File and Line Number of calling programs I thought I found some of this functionality with GetRef(), but found it to be one screwed up function! Assume the following ASP file (it is documented for what happens. After the file I'll explain in english): <% '--------------------------------------------------------------------------- --------- 'The following code outputs the following: 'In FooBar '0 'Object '9 'Object 'HowDy 'In FooBar#2 Dim subref Set subref= GetRef( "FooBar" ) Response.Write VarType(subref)& "<br>" '-- Executes FooBar writing "In FooBar", then writes "0" '-- vbEmpty is 0 Response.Write TypeName(subref)& "<br>" '-- Writes "Object" Set subref= GetRef( "FooBar2" ) Response.Write VarType(subref)& "<br>" '-- Writes "9" -- vbObject is 9 Response.Write TypeName(subref)& "<br>" '-- Writes "Object" subref("Howdy") '-- Executes FooBar2, writes "Howdy" then "In FooBar#2" Sub FooBar() Response.Write "In FooBar<br>" End Sub Sub FooBar2(x) Response.Write x & "<br>" Response.Write "In FooBar#2<br>" End Sub '--------------------------------------------------------------------------- --------- %> Basically, if you assign subref= GetRef("NoParamSub") to where NoParamSub is a Sub with no parameters, then accessing it by passing it to VarType() executes the sub, and the return value of the sub returns is interpretted as zero, which is why VarType(subref) returns 0. If you assign subref= GetRef("HasParamsSub") to where HasParamsSub is a Sub with one or more parameters, then passing it is passed to VarType() as an object and VarType(subref) returns 9 (9 is the value of vbObject). Passing subref for both NoParamSub and HasParamsSub to TypeName() returns "Object", which is what I'll have to use. I'd like to see VarType() fixed to return 9 for VarType(GetRef("NoParamSub")), but I won't hold my breath. Anyone know how to get some of the features I need while in ASP? Are any in VBScript and I just don't know how? Also, what does the object returned by GetRef look like? Does it have properties or methods? TIA. -Mike P.S. If anyone can forward this to Eric Lippert, it would be greatly appreciated. Tag: Windows 2000 or XP ? Tag: 154040
  - 10
    - printing thru vbscript how come when i print programicly my printer says "data received" and it won't print until i press the GO button on the printer? my printer is a HP laser jet 5 Set objFS = server.CreateObject("Scripting.FileSystemObject") Set objPrinter = objFS.CreateTextFile("\\printserver\printername", True) objPrinter.Write("testing printing") -- 5khzgjf9e001@sneakemail.com Tag: Windows 2000 or XP ? Tag: 154034
  - 11
    - retreiving share Permissions I need to get the share permissions from a share named "install$" I need to know who has access, and the info needs to be put into a text file. Can anyone help? ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Windows 2000 or XP ? Tag: 154032
  - 12
    - Is it possible to disable or hide form objects when a user clicks on a radio button I am making a data entry form for a webpage app and would like to know if the Client Side VBSCript can do this. In the form there is a radio button. If the user clicks on one of the radio button values, I want to show/hide or enable/disable other text box and combo box objects in the form. Can VBScript do this? *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Windows 2000 or XP ? Tag: 154027
  - 13
    - Registry question I'm using this to delete some values... Const HKLM = &H80000002 Const KeyPath = "Software\PathToKey" Set oReg = GetObject ("WinMgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv") oReg.DeleteValue HKLM, KeyPath, "test" It's working great if the key exists, but if the key does not exist it's not producing any error message. Is that normal behavior? I've even used this on non-existent keys and haven't gotten any error message... oReg.GetStringValue HKLM, KeyPath, "test" Is that normal? My script just continues to the end as if I had "On Error Resume Next" set globally. Seems odd to me, or I am I just being paranoid? Thanks, Tom Tag: Windows 2000 or XP ? Tag: 154024
  - 14
    - update textbox from parent window Hi, I have a HTML page which contains an iframe. In the iframe is a textbox that I would like to change the value of from the parent window. In script I have tried...  window.iframeName.document.formName.txtboxName.value = "new words" but this doesn't work. I can't seem to reference the form but I know I can get to the document because the following code works  window.iframeName.document.bgcolor = "red" Any suggestions? Thanks, JP Tag: Windows 2000 or XP ? Tag: 154014
  - 15
    - check for presence of a registry key on remote computers How can I check for the presence of a registry entry on remote computers in my domain? Any code example? Thank you! theo Tag: Windows 2000 or XP ? Tag: 154013
  - 16
    - How to get ftp.exe output in vbscript - ANSWER Hi, This has baffled me and several others that have written on these groups. MANY, and more, thanks to Andy Rice for the clue to this. For whatever reason the ftp client is "Verbose mode on" by default when started from the command line but is in "Verbose mode off" by default when started with Shell.exec. Some other threads to which this is relevant: difference between Shell.run and Shell.exec Getting ftp.exe output in vbscript Demonstration:- S:\TIT\ftp>type TITparameters.txt user pass verbose cd /S/TIT binary put c:\xxxx\test\tb1.bat quit S:\TIT\ftp> S:\TIT\ftp>ftp -s:TITparameters.txt 172.20.1.199 Connected to 172.20.1.199. 220-XXX FTP service WarFTPd 1.70.b01.04 (Aug 18 1998) Ready (C)opyright 1996 - 1998 by Jarle (jgaa) Aase - all rights reserved. 220 Please enter your user name. User (172.20.1.199:(none)): 331 User name okay, Need password. 230 User logged in. ftp> ftp> verbose <--- Toggle verbose Verbose mode Off . ftp> cd /S/TIT ftp> binary ftp> put c:\Douglas\test\tb1.bat Access denied. <--- OK I know it's already there ftp> quit S:\TIT\ftp> S:\TIT\ftp>cscript do-ftp5.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. User (172.20.1.199:(none)): Verbose mode On . <--- OUTPUT <--- One last question <--- Why is the OUTPUT verbose <--- displayed BEFORE input cd /S/TIT 250 "/S/TIT" is current directory. binary 200 Type set to I. put c:\xxx\test\tb1.bat 200 PORT command successful. 550 Access denied. quit 221 Goodbye. Control connection closed. S:\TIT\ftp> '############# File do-ftp5.vbs Option Explicit Main Sub Main Run3 "ftp -s:TITparameters.txt 172.20.1.199" End Sub Function Run3 (ByVal cmd) Dim objShell: Set objShell = CreateObject("WScript.Shell") Dim objWshScriptExec: Set objWshScriptExec = objShell.Exec(cmd) Dim objStdOut: Set objStdOut = objWshScriptExec.StdOut Dim strLine While Not objStdOut.AtEndOfStream strLine = objStdOut.ReadLine WScript.StdOut.WriteLine strline Wend End Function '############# END file do-ftp5.vbs Tag: Windows 2000 or XP ? Tag: 154005
  - 17
    - Is this the new fomat for Scripting.VBScript? My old link was broken and I found this newsgroup, is it the same ? Tag: Windows 2000 or XP ? Tag: 154004
  - 18
    - Local users Hello, I need to make a lot of *local* users, set their password and set the password flag to NOT require that the password be changed. Anybody have one of these already cooked? All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com Tag: Windows 2000 or XP ? Tag: 154002
  - 19
    - scrolling text I have a page, all items are hidden. The idea was to let the onformload event trigger the page transformation. Ive written teh following code that should case 1 letter to scroll across the screen till it hits the leftedge of its area then another character follows across and so and so on. ive tested teh code in vb6 and it works great. yet on teh page all i get is the company name appearing. any ideas? Option Explicit dim Outpos dim InPos dim InString dim InLen dim wrkString dim LastPos sub Load_Main_Header_Line inlen = 0 lastpos = 0 outpos = 0 Instring = "Company Name Here" inlen = len(trim(instring)) wrkstring=space(inlen) mainheader.style.visibility="visible" mainheader.align="left" mainheader.style.fontFamily ="impact" mainheader.style.fontSize ="36pt" mainheader.style.fontWeight ="bold" lastpos = 1 outpos = inlen inpos = 1 for inpos = 1 to inlen step 1 Get_A_Character next mainheader.innerText = trim(instring) mainheader.align="center" end sub sub Get_A_Character dim onechar onechar = mid(instring, inpos, 1) if onechar <> space(1) then outpos = inlen for outpos = inlen to lastpos step -1 Slide_It_Left next End if lastpos = lastpos + 1 end sub Sub Slide_It_Left dim onechar dim outString dim tmpstring dim oldpos outstring = space(inlen) onechar = mid(instring, inpos, 1) tmpstring = wrkstring '<-- space out last position oldpos = outpos + 1 if outpos > 0 then if oldpos <= inlen then wrkstring = left(tmpstring,outpos) _ & onechar _ & space(inlen - (oldpos - 1)) else wrkstring = left(tmpstring, (outpos - 1)) _ & onechar _ & space(inlen - (outpos - 1)) end if mainheader.innerText = wrkstring settimeout "WaitNull", 99999999 end if end sub sub WaitNull end sub I would really appreciate any ideas on this its driving me nuts. sincerely Woody any sugestion or comment made by me should be examined first for validity and appropriateness before assuming i have any idea at all what the heck i am talking about. I am not responsible for anything you may see with my name attached to it, i think. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Windows 2000 or XP ? Tag: 154001
  - 20
    - Double Underline in VBScript or HTML Hi, I need to double underline something. It's an accounting front end web app. how would the style tag be worded. thanks rafael Tag: Windows 2000 or XP ? Tag: 153998
  - 21
    - I want to insert a text file into an email as opposed making it an attachment I am the network security admin for my company. I am automating the processing of my firewall syslog files to have it email the offenders abuse and security email addresses. My issue is that many abuse and security email addresses delete incoming attachments so I need to insert the syslog data as opposed to mailing it as an attachment. For the same reasons that the above addresses delete attachmants they also do not accept html or rtf emails so I can not use CreateMHTMLBody. Short of generating vbscipt code with hundreds of lines of "data" & vbCRLF & _ Is there some way to do this? Or can someone recommend a command line emailer that will let me do this? BTW: I have automated prossing the syslog files themselves with awk, grep and uniq by using the bash shell cygwin under windows. If you have got to process text in large quantities I can not say enough about awk. Tag: Windows 2000 or XP ? Tag: 153996
  - 22
    - Folder cleanup - how Any ideas on how I can script a drive cleanup utility?. I need to search for temporay files and delete them. I also need to find *.jpg, *.wma, *.exe in network folders and delete these files to minimize disk space usage. Also need to search for filesize, last accessdate/time. Thanks Andres Tag: Windows 2000 or XP ? Tag: 153992
  - 23
    - Getting Expected ; (semicolon) in simple VBScript only page I am working on an ASP page that also includes some basic Client Side validation. I am just starting to work with VBScript on the client so I threw together a little test file and I keep getting: Error: Expected ';' on the first line after <SCRIPT LANGUANGE="VBScript"> I have tried subs, functions, etc... Why is it expecting a semicolon? <HTML> <HEAD> <SCRIPT LANGUANGE="VBScript"> Function Test() End Function </SCRIPT> </HEAD> <BODY> </BODY> </HTML> *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Windows 2000 or XP ? Tag: 153990
  - 24
    - Activate QuickLaunch How to enable the QuickLaunch toolbar for everyone with a script? it seems this setting is not in the registry / Lelle Tag: Windows 2000 or XP ? Tag: 153987
  - 25
    - Cookie Question Start http://212.123.5.17/mb/xdata/am.asp in the left Frame choose N,F or D (Nederlands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. On top you will see the result of the Language Cookie - result = N,F or D Start http://www.adq.be/ws.htm in the left Frame choose N,F,D (Nedelands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. There is no result for the Language Cookie and the standard (E) is selected Only difference between the two is that in the second case the first (http://212.123.5.17/mb/xdata/am.asp) is called in an frame of website on another domain. This is the code to write the cookie Response.Cookies("am")("language")=Request.QueryString("language") Response.Cookies("am").Expires=date()+30 this code to read Request.Cookies ("am")("language") What can be the reason herefore and how o resolve Thx - Maarten (Belgium) Tag: Windows 2000 or XP ? Tag: 153979
- Next
  - 1
    - HELP with DateAdd statement and SQL I am trying to pull the date from the day before "objDate = DateAdd("d", -1, Date)" in standard time format, and I am wanting to convert it into UTC time "dtmCurrentDate = "&objDate&" " then pass it into a SQL command " "WHERE [Type]='error' AND [TimeWritten]>'&dtmTargetDate&' ". The script works however it isn't passing the date and coverting into UTC. Can someone please help me with this? Below you will find my script. Thanks, Robnson ----------------------------------------------------------------------------- dim Conn, objRS, objConn, strSQL, objDate, dtmTargetDate objDate = DateAdd("d", -1, Date) strComputer = "." Set objSWbemServices = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colTimeZone = objSWbemServices.ExecQuery _ ("SELECT * FROM Win32_TimeZone") For Each objTimeZone in colTimeZone strBias = objTimeZone.Bias Next dtmCurrentDate = "&objDate&" dtmTargetDate = Year(dtmCurrentDate) dtmMonth = Month(dtmCurrentDate) If Len(dtmMonth) = 1 Then dtmMonth = "0" & dtmMonth End If dtmTargetDate = dtmTargetDate & dtmMonth dtmDay = Day(dtmCurrentDate) If Len(dtmDay) = 1 Then dtmDay = "0" & dtmDay End If dtmTargetDate = dtmTargetDate & dtmDay & "000000.000000" dtmTargetDate = dtmTargetDate & Cstr(strBias) Set Conn = CreateObject("ADODB.Connection") Set objRS = CreateObject("ADODB.Recordset") Conn.Open = "provider=sqloledb;data source=SCK-EAV-01;" & _ "user id=sa;password=justD0!t;" & _ "initial catalog=Eventlogs" strSQL = "SELECT [ComputerName], [EventCode], [Message] " & _ "[SourceName], [TimeWritten], [Type] FROM [EventTable] " & _ "WHERE [Type]='error' AND [TimeWritten]>'&dtmTargetDate&' ORDER BY [TimeWritten]" objRS.Open strSQL, Conn, 0, 1 'adOpenForwardOnly, adLockReadOnly objRS.MoveFirst While Not objRS.EOF WScript.Echo objRS("ComputerName") & objRS("EventCode") & objRS("SourceName") objRS.MoveNext Wend ______________________________________________________________________ Tag: Windows 2000 or XP ? Tag: 153978
  - 2
    - Windows 2000 Scripting Guide errata page Does anyone know if the book Microsoft Windows 2000 Scripting Guide (ISBN 0-7356-1867-4) has an online errata page? If not, does anyone who has access to a copy of the book know if the second paragraph on p. 109 contains a misstatement? (The paragraph claims that "the following data is displayed...The values "A" and "B" are the only values echoed to the screen...", though the example code purposely shows the spelling error of " Wscript.Eco "A" " (outermost quotations are mine) to demonstrate what will happen when toggling error handling. Isn't it true that whether error handling of any type is either toggled on or toggled off is irrelevant to the fact that Wscript.Eco "A" (note the misspelling of the word Echo) will NEVER echo A to the screen? Thanks for any clarification. Tag: Windows 2000 or XP ? Tag: 153976
  - 3
    - Need Internet Programmer - Designer - Database Looking for a guy (Gal) who can develope site with databases, etc... Must have references... Public company will pay you in stock. reply to johnniemacusa@longislandxtra.com Tag: Windows 2000 or XP ? Tag: 153971
  - 4
    - window.open problem in IE6 I am using Window.open to open the necessary page in a target frame. But only on one users IE6 instead of opeing the page in the target frame, it simplay opens the page in the main frame. Anyideas on how it is happening? Tag: Windows 2000 or XP ? Tag: 153968
  - 5
    - Recursively list a folder with VBScript Looking for a VBScript script that will recursively list *all* the files and folders in a particular directory. I don't just want *.htm or *.asp, for example, I want a complete listing. The plan here is to list the files one-by-one, and basically double check the NTFS permissions on each file. Pseudo-code (Linux-based): for anything starting in directory X do if file/directory does not have NTFS permission Y then add permission Y to file/directory Z echo added permission Y to file/directory Z fi done I read while searching that this may be pretty slow using FSO, and that some MS MVP recommended using Wscript.Exec or .Run and call the DOS dir command. I guess I just need a starting point on how to possibly start. Marco Tag: Windows 2000 or XP ? Tag: 153965
  - 6
    - Console Text Color Without using a DOM is there a way to change the foreground and background color of characters being printed to the console? Assume my script has no access to IE. Tag: Windows 2000 or XP ? Tag: 153960
  - 7
    - object.classobject generates a type mismatch error Hello there using a vb script I am probing a container for objectes. when i try to msgbox(object.objectclass) it gives a type mismatch error. though it's supposed to be a string. code below. Any ideas? 'code Set dso = GetObject("LDAP:") samehname = "domain\useruser" samehpass = "password" Set obj1 = dso.OpenDSObject( "LDAP://DC=domain,DC=local", samehname, samehpass,ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) for each colitem in obj1 msgbox(colitem.name) for each obj in colitem msgbox(obj.objectclass) if obj.objectclass = "organizationalUnit" then msgbox(obj.name) end if next next Tag: Windows 2000 or XP ? Tag: 153955
  - 8
    - An interesting small WSH VBScript problem: CreateObject fails to terminate (stack) when logged out from the server Hello everyone, I have a small problem that I could not find answer to in previous postings of these two fine newsgroups. I have created a small vbs script (run by WSH), with this single line: ' Beginning of script CreateObject "Excel.Application" ' End of script (I extracted this problematic line from another script) The operating systems I tried are Windows 2003 Server and Windows 2000 Server. This is the problem: The script should be run as scheduled task on a daily basis. I created a task to run it in Scheduled Tasks. In the "run as" section, I used the same login and password I use to login to the server with Remote Desktop Connection. When logging in to the server via Remote Desktop Connection, the script run just fine (Starts and finishes almost immediately). Also, in the Scheduled Tasks, when right-clicking on the task and selecting 'run', the task starts and finishes immediately, with no errors. However, when setting the task to run automatically, and logging out, it does not work: I waited a minute after the time it was scheduled to, returned, and saw that the process (wscript), and the EXCEL applications are still running. The task status shows 'running'. The interesting thing is that the function CreateObject has created the 'EXCEL' application, but it seems that it fails to finish. Does anyone has encountered this problem before ? do you have an idea ? Any help will be greatly appreciated. ThanQ very much Jonathan Orlev Tag: Windows 2000 or XP ? Tag: 153946
  - 9
    - Rename files with script Hi, does anyone know how to rename all files in a directory by script? The files should be renamed with a rule like paste an underline between the the 2nd and 3rd character of the name and so one. The script should run on W2K. Greeting, Andreas Tag: Windows 2000 or XP ? Tag: 153943
  - 10
    - Client-Side Include Code in WEB Page Javascript has the ability to reference HTML code using the external source file prefix .JS. I'd like to create a set of VBScript functions and subroutines and bundle them in an external file and include the external source file. Does VBScript have the capability to perform the task. If not, can I create VBScript routines in Javascript include .JS file. Any help would be greatly appreciated. Thanks and regards, Ian Renfrew Tag: Windows 2000 or XP ? Tag: 153939
  - 11
    - vbscript / Internet Explorer info Hi: I am looking for a document describing how to manipulate Internet Explorer objects. Right now I am facing the problem of adding options to a SELECT drop down box in an HTML page. I can find quite some JavaScript fragments, such as Code: document.forms[0].musicType.options[3] = new Option("Folk", "folk", false, false) for doing the above task, but I have problems finding VBscript examples. Thanks, Erwin ---------------------------------------------------------------- Erwin Kalvelagen GAMS Development Corp., http://www.gams.com erwin@gams.com, http://www.gams.com/~erwin ---------------------------------------------------------------- Tag: Windows 2000 or XP ? Tag: 153922
  - 12
    - Need a Script to enter in username & password HI! I just need a script so that when I enter into a page on my password protected site that the username & Password get entered in for me and executed. ( meaning the enter button is pressed for me sort of like ). There used to be a way of doing that before like this example below.. http://username:password@www.somewebsite.com/private/index.htm but this no longer works now, is there another way of using a script to do this? PLEASE NOTE: I am aware of a way with IE to do something like this by saving it in the password history and also with Norton password manager but I specifically need it done this way with a script. I posted a similar post before but I feel that it was mis-understood so I am reposting this in a different way. paul.dallaire@sympatico.ca Tag: Windows 2000 or XP ? Tag: 153915
  - 13
    - Way to force shutdown of a PC from a script that is run when Windows first starts up? I'm trying to develop a vbscript that will allow me to shutdown a PC (running Windows XP Pro) on a Windows 2003 network. I would like to implement this a policy for my laptop computer users. This policy will check to see if the computer's virus defintions are upto date. If not the laptop will be shutdown before the user can logon to our network. The script needs to be run when the PC first starts up, BUT before the user logs on. I know where to set up the script (as part Local Computer Policy -> Computer Configuration ->Windows Settings -> Scripts (Startup/Shutdown) -> Startup). I've tried everything from executing the windows shutdown command from a vbscript (shutdown.exe -s -t 00) to various vbscript code including: Const SHUTDOWN = 1 strComputer = "." Set objWMIService = GetObject("winmgmts: {(Shutdown)}" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(SHUTDOWN) Next The problem is that the PC will not shut down. After the startup code is excuted, I see the logon prompt. Which means I'm past the startup script and into the user logon part of the entire authentication process. I know the shutdown code works. I've tested it while I've been logged on. It shuts down the machine every time. I know that the shutdown code was executed. I saw a test message. that I put after the shutdown code. Yet the PC will not shutdown! I think the problem is that I have the wrong permissions, but I'm unsure how to fix the problem. Any thoughts and script samples would be greatly appreciated. Thanks in advance. ...Gary White Tag: Windows 2000 or XP ? Tag: 153898
  - 14
    - Possible to time out a popup? Hi, A question I've been thinking of for some time... I am sure I saw the answer somewhere on the web but can't find it again... I am trying to display a popup box that times out. I know it can be done with the wscript.shell popup command by just specifying the timeout time as one of the paramters, however I want some message box to keep updating the amount of time left as text IN the popup box and somehow loop it so it doesn't allow user interaction until the timeout expires. My instinct tells me this can only be done through scripting something with IE (form), but I am sure I saw this done somewhere with either msgbox or popup within somekind of a loop to keep updating the msgbox/popup text on the fly. Any help would be great! Thanks Tag: Windows 2000 or XP ? Tag: 153896
  - 15
    - Lost Cookies Start http://212.123.5.17/mb/xdata/am.asp in the left Frame choose N,F or D (Nederlands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. On top you will see the result of the Language Cookie - result = N,F or D Start http://www.adq.be/ws.htm in the left Frame choose N,F,D (Nedelands, French, Deutsch) Not E (Standard for English) Click GO Close your Browser Reopen the page. There is no result for the Language Cookie and the standard (E) is selected Only difference between the two is that in the second case the first (http://212.123.5.17/mb/xdata/am.asp) is called in an frame of website on another domain. This is the code to write the cookie Response.Cookies("am")("language")=Request.QueryString("language") Response.Cookies("am").Expires=date()+30 this to read Request.Cookies ("am")("language") What can be the reason herefore and how o resolve Thx - Maarten (Belgium) MBProductiesMBProducties - Frank Catry Hazelaarsdreef 22 8530 HARELBEKE - BELGIË tel 00-32 (0)56/71.81.41 - fax 00-32 (0)65/20.55.87 - gsm 00 32 (0)477/62.00.82 e-mail: mbp@pandora.be - MSN: mb@ris.be This e-mail and any attachment thereto may contain information which is confidential and is intended for the sole use of the addressees. Any use of the information contained herein (including but not limited to total or partial reproduction or distribution in any form) by other persons or the addressees is prohibited. If you have received this e-mail in error, please notify the sender and delete its contents. Tag: Windows 2000 or XP ? Tag: 153895
  - 16
    - filters, photos and timers driving me nuts i am going slowly crazy. .net 2002 framework 1.0 i made a slide show. pictures are slide1.gif, slide2.gif etc etc defined 2 divisions that share the same part of the screen page1 and page2, page1 is normally visible, page2 is normally hidden. i use page1.innerhtml = "blah blah this picture" and teh same for page2 what im trying to do is to transition page1 to page2, wait 10 seconds and then loop thru switching new pictures for page1 and 2 and keep going till i hit the end of teh show. so far real frustrated. any clue how to do this? I sincerely appreciate any and all guidance on this as msdn has been clear as mud. thanx Woody any sugestion or comment made by me should be examined first for validity and appropriateness before assuming i have any idea at all what the heck i am talking about. I am not responsible for anything you may see with my name attached to it, i think. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Windows 2000 or XP ? Tag: 153892
  - 17
    - Simple little problem - I think Hey group, I have a little proble that i think a little Script might solve:) I have around 20 sites, each site has a different IP rang and all PCs are static IP (No DHCP), its a bit of a pain when i have to keep changing the IP, Gateway, DNS and other IP settings on my Laptop. I was wondering if I could write a script file which asked me what site i was at i clicked the site and it automatically changed all my IP settings? this would have to work on Windows 2000 or XP. Anybody got anything similar, or any links? Many Thanks Merlin Tag: Windows 2000 or XP ? Tag: 153888
  - 18
    - User input via console I know this may be a stupid question, but I've googled around, searched MSN groups, and this forum and can't find an answer. I need to get user input from the console, not using InputBox. I want to make a function, such as "readln" that will give the user a prompt and return their answer as a string or integer. VBScript must be able to do this. Is my assumption bad? Tag: Windows 2000 or XP ? Tag: 153887
  - 19
    - FYI - New WinZip vulnerability Courtesy of Peter Torr's blog... New WinZip vulnerability http://blogs.msdn.com/ptorr/archive/2004/02/27/81238.aspx -- Michael Harris Microsoft.MVP.Scripting Tag: Windows 2000 or XP ? Tag: 153884
  - 20
    - Need advice on automated newsletters and emails HI! I would like to know if someone could suggest some good programs for automated newsletter and email submissions. A program that can store the users email address in a defined database that will send them a newsletter when scheduled, including an autoresponder, Thanks in advance: :) paul.dallaire@sympatico.ca Tag: Windows 2000 or XP ? Tag: 153877
  - 21
    - How do we insert a username & Password into a link? HI! I need to know how to enter in a Username & Password into a link. I also need to know if there is a script out there that can go to a page and enter in the username & password automaticly. ( It has to be a script of some sort ). I know there are programs out there that can do that but its not what I want, I want a script that I can enter into a ASP or HTM page to go to a link and then enter in the username & Password when prompted. Can someone point me in the right direction or show tell me where to find it.. Thanks in advance :) Paul. paul.dallaire@sympatico.ca Tag: Windows 2000 or XP ? Tag: 153871
  - 22
    - Compiler location Does anyone know where office xp installs the compiler.. mse7 I think.. I can't define a default compiler in anything, wscript, primal script etc.. ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- Tag: Windows 2000 or XP ? Tag: 153870
  - 23
    - Word 2000 (RTF and/or DOC files) to HTML Converting Script I am looking for a script that will convert a .doc and/or an .rtf file to an .html file through a website that I am creating. I would prefer the script be written in VB and/or ASP. The ideal script would be easy to use, such as give a the location of the file to be converted and the destination of the converted file, and that is it. Tag: Windows 2000 or XP ? Tag: 153868
  - 24
    - Attachment to zip file Hi All How can I send like a text file into a zip file so that I can send it out in email Thanks JJ Tag: Windows 2000 or XP ? Tag: 153863
  - 25
    - Find Group in AD and report distinguished name Greetings I need a VBScript that will search AD to find whether or not a group name exists and if so, report back the distinguishedName Thanks in advance for any assistance! Tag: Windows 2000 or XP ? Tag: 153860

Hi,

I need a vbs to know if the OS is Windows 2000 or XP. Denpending on that I
have to run regfiles.

Thank you

Didier

Top

Re: Windows 2000 or XP ? by Robert

Robert
Tue Mar 02 09:40:15 CST 2004

how about something like:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
if objOperatingSystem.caption= "Microsoft Windows XP Professional" then
msgbox ("This Is a XP")
Else
End If
Next

--
Robert Cohen
A legend in his own mind
--

"MuM" <dchavanne@hurni.ch> wrote in message
news:#qFUZYGAEHA.4012@tk2msftngp13.phx.gbl...
> Hi,
>
> I need a vbs to know if the OS is Windows 2000 or XP. Denpending on that I
> have to run regfiles.
>
> Thank you
>
> Didier
>
>

Top

Re: Windows 2000 or XP ? by Torgeir

Torgeir
Tue Mar 02 18:40:50 CST 2004

MuM wrote:

> I need a vbs to know if the OS is Windows 2000 or XP. Denpending on that I
> have to run regfiles.

Hi

The quickest way is to use a registry read, take a look at the function
GetOsVersionNumber (and GetSPNumber for service pack level) here:

http://groups.google.com/groups?selm=3EB70B7E.12C8CE54%40hydro.com

--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide:
http://www.microsoft.com/technet/community/scriptcenter/default.mspx

Top