How To: Disable Selections with OnSelectStart

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
    - Oct 31st-Nov 14th - Totaldicks Rock Tokyo - check WindowsMedia d1fV3tvLw Totaldicks (aka Total Dicks) starring Anand Bhatt and James Buban of the popular tribal hardcore group Anand clique are in Tokyo this October 31st thru November 15th 2003. rvGKu69 Tag: How To: Disable Selections with OnSelectStart Tag: 145467
  - 2
    - Externally Reading a Form Input Field I am trying to consistently read a hidden Input field in a Form located in a HTML that was opened with the objExplorer.Navigate statement. Sometimes I can read the field after the Submit button is clicked, sometimes I can't and I get the error: "Object doesn't support this property or method: 'myForm'" Here is the VB script statement (external to the HTML file): Do While TRUE strTemp = objDocument.myForm.bWaiting.value If strTemp <> "TRUE" Then Exit Do End If Loop Help.......... Thanks in advance. Russell-S Russell-S Tag: How To: Disable Selections with OnSelectStart Tag: 145463
  - 3
    - WMI call for files in a specific folder not modified in the past 7 days? Hello all I'm writting a script that renames files on a daily basis, and I want to delete any files (in a specific folder) that have not been modified in the past seven days. I'm thinking that the query string should look like this: Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile _ where LastModified < convert(datetime,'10/21/03 21:00:00')") but I don't seem to get anything back. If someone knows how I can fix this, it would be greatly appreciated. I can't seem to find anything on the Internet that addresses this issue. any help is greatly appreciated! --Gene Tag: How To: Disable Selections with OnSelectStart Tag: 145462
  - 4
    - Vbs populate ie web form with frames Hello, We have a website on our intranet that has frames and text boxes that we need to populate with data automatically with VBScript. I have been able to populate other web pages with VBScript when they don't have frames, but cannot figure out how to populate them when they have frames. I have been trying to search the existing posts, but I still can't seem to get this to work. I found a website on the Internet that has frames and input boxes that are similar to our intranet web page. http://www.iopus.com/iim/demo/frames Does anybody know how I could use VBScript to populate these text boxes within the frames? This is the code I have figured out so far: Const URL = "http://www.iopus.com/iim/demo/frames" With WScript.CreateObject("InternetExplorer.Application") .Visible = True .Navigate URL Do Until .ReadyState = 4 WScript.Sleep 50 ' wait for page to load Loop With .document.forms(1) ' I DON'T KNOW WHAT ELSE GOES HERE TO REFERENCE TO FRAME .T1.value = "Hello" ' enter company into a textbox End With Would anybody be willing to show me what I am missing in my code? Thank you in advance, Shawn Tag: How To: Disable Selections with OnSelectStart Tag: 145455
  - 5
    - QUESTION ON SESSION VARIABLES Hi there.... i got a quick one for you guys. i've this session variable that is updated by calling a server method (i set this value when the user hits a submit button in my form. The server method is called when i load all my asp forms.). I'd like to be able to update this session variable, without being forced to submit my form or refresh my form (something that will call my server method each 2 min lets say, without refreshing my page or submit)...is there anyway to do this??? Maybe a remote scripting with the setinterval() method?? but i'm having trouble using this with XP and IE 6 !! Your help is with this matter is higly appreciated!! Tag: How To: Disable Selections with OnSelectStart Tag: 145449
  - 6
    - adding and deleting printers Ok I'm trying to get my scripts to work and it's just not. I do have the one for adding a printer working but for deleting is a different story. Here is my adding a printer script. (It works) Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\tpl\plu1" WshNetwork.SetDefaultPrinter "\\tpl\plu1" Here is my deleting script. Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemovePrinterConnection "\\tpl\plu1" The deleting script runs with no errors but the printer stays. What I would like to do is use the add printer script as logon scripts so that when a user logs on they get the correct printer. If I don't have a deleting printer script run as a log off script will it screw up the next time the user logs on and keep adding printers and does anyone know why my deleting printer script doens't work? I run all W2k boxes. Tag: How To: Disable Selections with OnSelectStart Tag: 145447
  - 7
    - Service like script Hi I am sure its been asked many many times, but is there a way of creating a script that runs from time to time, say every 5 mins that can check to see if a certain time has elapsed and then send an email. Basically, I want to build a reminder system into my intranet that checks a calendar database and 1 hour or 1 day before sends out a reminder email. Almost like a service. Anyone any ideas as to where i look? MC Tag: How To: Disable Selections with OnSelectStart Tag: 145446
  - 8
    - getting cell values from excel I am needing to open an excel document, and extract the values from column A of an excel document. For example: I have an excel document that someone else made with over 1900 rows. The data in each cell contains a link to a file in the directory that the spreadsheet is in. Each time you click on one of the cells you can see the hyperlink data above in the cell property box. How can I, with vbscript, open the worksheet and extract the values from all cells in column A? Thanks for any help. Tag: How To: Disable Selections with OnSelectStart Tag: 145443
  - 9
    - Setting printer destination with VB/Crystal on XP OS Hello all, I'm using VBA in Great Plains v6to call & print a v8 Crystal report to an Epson LQ-870 ESCP2 printer. The code (very simple, I have to admit) is below. It's worked fine in Windows 95 for years but as soon as I install XP and try it I get the message 'Invalid Printer Specified.' I understand Windows XP uses a universal driver called UNIDRV.dll. Is that what's causing the problem? If so, does anyone have any idea how to get around it? I've a few things with no success? I need help! Thanks, Don The code: ' Save document 'SalesTransactionEntry.Save = 1 ' Set report file name.. should be located in the dynamics directory PickingTicket.ReportFileName = "PickingTicket.rpt" ' Tell Crystal reports to discard any saved data PickingTicket.DiscardSavedData = True ' Turn off progress dialog box PickingTicket.ProgressDialog = True ' Set report destination PickingTicket.Destination = crptToPrinter PickingTicket.PrinterDriver = "ESCP2MS.DRV" 'UNIDRV.dll ?? PickingTicket.PrinterName = "Epson LQ-870 ESC/P 2" PickingTicket.PrinterPort = "LPT1" ' Print report. PickingTicket.Action = 1 Tag: How To: Disable Selections with OnSelectStart Tag: 145436
  - 10
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: How To: Disable Selections with OnSelectStart Tag: 145435
  - 11
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: How To: Disable Selections with OnSelectStart Tag: 145432
  - 12
    - Create a folder on a remote server create a folder on a remote server? how do I do this, The only script examples I can find, create a folder on the local machine only. TIA Tag: How To: Disable Selections with OnSelectStart Tag: 145430
  - 13
    - script scheduling in AD environment? Okay Folks: Sir twitch a lot here is going bonkers yet again. Here is this little script I pulled out of the Microsoft Windows 2000 scripting guide. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.shutdown() Next Fine, fire this vbs puppy up and pooft, the computer shuts off. Which is exactly what I wanted. Now what I want to do is schedule this puppy via organizational units to apply to certain machines. Problem is that we have a bunch of users who love to leave their computers on all night, burn out monitors and occasionally fry their computers because of electrical activities in the area. Okay, so I figured that a nice .bat file along the lines of this at.exe 21:00 every:m,t,w,th,f,s,su \\servername\sharename\shutdown.vbs I figure this would solve the problem but it's a bit cumbersome. Does anybody know of a way to incorporate the equivalent of an "AT" command that would fire up at the computer startup so that the machine would know that, hey, I need to shut myself down at XX:XX hours. The best thing to do, ultimately, and I likely have a script for it somewhere, is that the machines would magically turn themselves up. I am shooting here for something that will work on the organizational unit level, any suggestions, comments or prayers??? Regards, Walt Tag: How To: Disable Selections with OnSelectStart Tag: 145420
  - 14
    - Form Sleep I have been searching for an answer to the problem I've been having with a form. I have an HTML file that I load via a VBScript that is being used to copy CDs to a network drive. The user will enter the year and the CD number in the form. Then VBScript creates a folder based on the information entered and copies the CD to it. The problem I'm having is that when the Submit button is clicked the only way I could get the calling VBScript to take over is to put a MsgBox in the HTML's script area. I dont mind that except that I would like to have the dialog box close automatically. I can't use the PopUp function since IE's security complains. I tried using a For/Next but that didn't help. What can I do to avoid the MsgBox. Shown below are snippets from the HTML and VBS files. Thanks for your help. =================================================== HTML File (Form section): =================================================== <form action="" onsubmit="vbscript: CopyDisk()" method="POST" border="0" width="100%" id="MyForm" name="MyForm"> <input type="hidden" name="bWaiting" value="TRUE"> <table border="0" width="100%" <td width="60"> Enter the Year here:   <input type="text" name="Year" id="Year" maxlength="4" size="4" onkeypress='validate(Me)'</td> <br>  <td width="860">Enter the CD Number here:    <input type="text" name="CDInfo1" id="CDInfo1" maxlength="8" size="8" onkeypress='validate(Me)' =================================================== HTML File (VBS section): =================================================== <SCRIPT language="VBScript"> Sub CopyDisk() MyForm.bWaiting.value = "FALSE" If Len( MyForm.Year.value ) > 0 AND Len( MyForm.CDInfo1.value ) > 0 Then MsgBox "Now copying the CD. Please wait for the ""Copy completed...."" message before clicking OK below." Else ExitNow() End If End Sub Sub ExitNow() MyForm.bWaiting.value = "WAIT" If MsgBox( "Are You Exiting the Input Window?", (vbQuestion + vbYesNo), "Exit Information" ) = vbNo Then MyForm.bWaiting.value = "TRUE" Else MyForm.bWaiting.value = "FALSE" End If End Sub </SCRIPT> =================================================== VBS File: =================================================== Do While NOT (objExplorer.Busy) Loop strYear = objDocument.myForm.Year.value strCDNo = objDocument.myForm.CDInfo1.value objExplorer.Visible = 0 If Len( strYear ) = 0 OR Len( strCDNo ) = 0 Then Do Until objDocument.myForm.bWaiting.value <> "WAIT" wScript.Sleep 750 Loop If objDocument.myForm.bWaiting.value = "FALSE" Then Exit Do ElseIf objDocument.myForm.bWaiting.value = "WAIT" Then wScript.Sleep 500 objDocument.myForm.bWaiting.value = "TRUE" End If Else On Error Resume Next strTarget = CNST_RCV_FLDR & "CD" & strYear & "_" & strCDNo If NOT objF_Sys.FolderExists( strTarget ) Then objF_Sys.CreateFolder strTarget ....... Tag: How To: Disable Selections with OnSelectStart Tag: 145417
  - 15
    - Error Expected End Get Expected "End" error in vb script on last line Char: 8 does anyone know why? Thanks! Glenn *************************************************************************** Dim wshShell, wshNetwork, OS_Ver, CRLF, oFSO, hoFSO, GroupDict, CCMINSTPATH CRLF = Chr(13) & Chr(10) ' use for return and line carriage Set wshNetwork = WScript.CreateObject("WScript.Network") Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") TempPath = wshShell.ExpandEnvironmentStrings("%TEMP%") UserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") ComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") Set WshShell = Wscript.CreateObject("Wscript.Shell") strMapperSetting = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5FF8D3B8-E19A-4B74-A430-A5366CA74B3F}\InstallSource") if strMapperSetting = "\\ccl_applib\msipackages\mapper\" then message = "value exists" If oFSO.FileExists(".\dataexist.010") then oFSO.DeleteFile(".\dataexist.010") End if If Err.Number <> 0 Then ' value does not exists strMapperSettingExists = 0 Else strMapperSettingExists = 1 End If if strMapperSettingExists = 1 then writelog message end if wscript.quit '=================================================================================== '***************************** Subroutine to write to file ************************* '=================================================================================== Sub WriteLog (strMessage) const ForRead = 1 const ForWrite = 2 const ForAppend = 8 LogFile = ".\dataexist.010" Set fsLog = oFSO.OpenTextFile(LogFile, 8, True) fsLog.WriteLine (strMessage) fsLog.Close end sub Tag: How To: Disable Selections with OnSelectStart Tag: 145414
  - 16
    - status of remote machine. All, I am looping thorugh the computer objects in a Domain. Within the loop I need to bind to each maching and read the registry. I would like to discern the status of the remote machine before attempting to bind to it. Does anyone have any suggestions? I am assuming that the IADS computerstatus can't be used based on previous posts. If this works can someone point me toward an example? Otherwise any suggestions would help. Thanks in advance PO Tag: How To: Disable Selections with OnSelectStart Tag: 145410
  - 17
    - Move and Delete Scripting Help how do I move files from a folder to another folder, and then the other thing is how do I delete the files after they have been moved, of course I only want to delete the files that arte older than 7 days. Here is some script, but for some reason it is not doing what I need it to do. It does nothing: I have included the scripts in text below, didn't know if anyone could possibly point me in the correct direction: Move Files: Const FOF_CREATEPROGRESSDLG = &H0& TargetFolder = "C:\Move" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(TargetFolder) objFolder.MoveHere "C:\logfiles", FOF_CREATEPROGRESSDLG Delete files: (Yes I know I have to add a way to check if they are older than 7 days, but I was just testing to make sure it worked before I added that in there, and so far nothing) Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\logfiles\*.log"), DeleteReadOnly Tag: How To: Disable Selections with OnSelectStart Tag: 145408
  - 18
    - ipconfig /flushdns I need a vbs script to run ipconfig /flushdns everytime user logs in or computer boots up. Thank you very much! Eimis Tag: How To: Disable Selections with OnSelectStart Tag: 145406
  - 19
    - How do you check the current CURSOR TYPE (not in IE)? Hi everyone, I did a lot of google searches, and came up with nothing. Most of the links were related to changing the cursor type in IE, or getting the Cursor handle in VB. I was wondering if anyone knew a way of getting the current cursor type; I am checking to see if it's an hourglass. Reason: I am using keyboard shortcuts to save to a file in an Application, and I am loading the saved file in an XMLDOM, but I can't do that till it's been saved. Monitoring file creation requires a separate thread; I thought it would be easier to check whether the current cursor is an hourglass. A solution would be much appreciated... Thank you -- Posted via http://dbforums.com Tag: How To: Disable Selections with OnSelectStart Tag: 145405
  - 20
    - Functions calling Functions We switch database vendors without changing every .asp page of a web by calling a custom VBScript function. The function takes the specific database name as its single arguement and returns a complete OLE connection string for that database. Thus, a single file (the function) only needs editing to switch from one database (eg SQL Server) to another (eg: ORACLE). Other VBScript custom functions in the web also require database connection(s). How do they use the same function to create their connection string(s)? Example: In the .asp we have ...  <% 'Script: Dim cnnActive Dim strOLEDB ... Set cnnActive = Server.CreateObject ("ADODB.Connection") strOLEDB = OLEDBString("Active") cnnActive.Open strOLEDB ... %> Here's the function: <% Function OLEDBString(strDB) '>>> '>>> Create the OLEDB connection string for the customer database '>>> Here, use the Microsoft Access JET OLEDB v4 '>>> 'Create the link with the [strDB] database OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;" OLEDBString = OLEDBString & "Data Source=C:\InetPub\wwwroot\VManager\databases\" OLEDBString = OLEDBString & strDB & ".mdb;" OLEDBString = OLEDBString & "User ID=admin; Password=;" End Function %> Tag: How To: Disable Selections with OnSelectStart Tag: 145404
  - 21
    - mapnetworkdrive problem I am using the mapnetworkdrive method to map drives for users during logon. I changed a drive mapping for a user and it is mapping to the new location but the windows explorer name shows the old path. When you look at the properties or try and disconnect the drive it does give you the correct NEW path but the explorer view has the old path listed. The user has rebooted and still no luck. Is there some way to refresh the name when changin the path to a mapped network drive. Tag: How To: Disable Selections with OnSelectStart Tag: 145402
  - 22
    - Outllook Macro warning and one-off forms... I have an Outlook folder full of contacts that use a custom contact form. One of these items occasionally becomes one-offed. I have a VBscript that loops through all the contacts and does some processing. When it attempts to access the contact via code similiar to this For each thing in Directory.Items temp = thing.homeaddress NOTE: I don't ever actually open the item I'm looking at, I just use the Thing.fieldname notation to access the data. I get the "Do you wish to enable macros" dialog box. This causes my script to just sit there until someone hits yes or no (Which might take days). So I need a workaround that would allow my script to run un-attended. 1) Is there anyway to supress the enable macros dialog box for one-offed items? 2) Is there anyway to open an item with its macros disabled? 3) Can I check the messageclass of an item without trigging the dialog box? Any help would be much appreciated! -J Tag: How To: Disable Selections with OnSelectStart Tag: 145398
  - 23
    - Progres window Hi, I am using oShell.run command_line,0,true but I want to display possibly a IE progress window while the command line is running so i'm thinking I can do something like: Do until return = 0 IE progress window (how?) return = oShell.run command_line,0,true Loop I can see two problems with the above: I'm thinking that return = oShell.run command_line,0,true will not execute until the IE progress window is running and I also don't know how to invoke the progress window. Could someone direct me to online info about using progress windows while some process is running? I would also appreciate a code example or better approach if not too much trouble. Thank you, Dave Tag: How To: Disable Selections with OnSelectStart Tag: 145395
  - 24
    - Check CD-R disk status Hello, Can someone tell me how to check if a blank unformatted CD-R is present in the drive and if not blank then if there are any files written on it? I tried checking readiness using IsReady and checking presence of any data by counting files in drive_letter:\ but I have a catch 22 situation: If the disk is blank drive returns NOT READY and if I check for written data, because drive is not ready (for blank disks) script gives me an error CANNOT FIND PATH when trying to count files. Basically what I want to do is: Step 1: check if CD drive is ready, i.e. if a CD is physically there regardless of it's status or formatted state Step 2: if the drive is ready, check for presence of any data, even if the disk is unformatted without returning error because it's unformatted. Or just simply check if the drive definately contains unformatted and blank, out of the box CD-R - just this will suffice if this is possible. Thanks you, Dave Tag: How To: Disable Selections with OnSelectStart Tag: 145393
  - 25
    - ADSI on IIS not the same as PWS Please take a look at the following code: Sub test() Dim usr Dim grp ' This part is working in Excel, Personal web server and IIS (4 and 5) Set usr = GetObject ("WinNT://valid_domain/valid_user ,user") For Each grp In usr.Groups Debug.Print grp.Name Next ' This part is working in Excel and Personal web server but not on and IIS (4 and 5) Set grp = GetObject ("WinNT://valid_domain/valid_group,group") For Each usr In grp.Members Debug.Print usr.Name Next End Sub I have tried this code on Excel and Personal web server without any problem. But when I try to run it as ASP page on IIS (4 and 5) I can get all the use details, but not the group details. The grp.Members is always empty. Does anyone know why this is not working? Tag: How To: Disable Selections with OnSelectStart Tag: 145392
- Next
  - 1
    - Computer Last Logon I have the following vbscript that returns the user's last logon. Can it be modifyed to return the Computer's last logon? Thanks in advance. ================================== Dim User user = InputBox("Enter user ID","Last Logon") 'msgbox user Set wshArguments = WScript.Arguments set objUser = GetObject("LDAP://" & "CN=" & User & ",OU=USERS,OU=TPA,OU=USA,DC=domain,DC=com") str1 = "Last Login: " & objUser.LastLogin MsgBox str1 Tag: How To: Disable Selections with OnSelectStart Tag: 145391
  - 2
    - Change drive volume label/name Hello, Does anyone know how to change volume label/name of a floppy or a zip disk? Many thanks, Dave Tag: How To: Disable Selections with OnSelectStart Tag: 145388
  - 3
    - getting info in word about box. I'am looking for a way to get the version of word that is displayed in it's about box. Can't seem to find it in the registry, so it mught be embedded in the .exe. Currently it displays as: Microsoft Word 2000 (9.0.6926 SP-3). Thanks Andres Tag: How To: Disable Selections with OnSelectStart Tag: 145386
  - 4
    - On Error Resume Next How do I turn error handling off again after running On Error Resume Next? Tag: How To: Disable Selections with OnSelectStart Tag: 145382
  - 5
    - Events Handling Problem. I have developed a ATL COM component which fires Events.I have handled these events in VB 6.0 successfully.I am trying to handle this comonent events in a ASP page using VB Script language.But I could not handle this component events in a ASP page using VB script language .Please suggest a way to sort out this problem.I am waiting for your response very eagerly. Regards Baloch Tag: How To: Disable Selections with OnSelectStart Tag: 145371
  - 6
    - Urgent please !! Hi all, Can anyone tell me how to trasfer (or copy) specific doc file from one source server to destination server using VBscript. Thanks, Riken Tag: How To: Disable Selections with OnSelectStart Tag: 145368
  - 7
    - ? hotfix.WSF (shows what hotfix is installed and what is not) WinXP Hi, The following "hotfix.WSF" for Windows XP (updated october 20, 2003) shows what hotfix that is installed (and what is missing). Benny Pedersen, http://2dos.homepage.dk (not uploaded). PS. Please reply any comments about improvements or bugs, etc... (I tried in the WSH Group but without any luck.) BTW. Does someone know how to determine what version of directX is installed, etc...? <PACKAGE><JOB ID="hot"><SCRIPT language="JScript"> function jsSort(arr){return arr.toArray().sort().join('*')} function jsFind(x,strng){return(strng.search(x))} </SCRIPT><SCRIPT language="VBS"> dim file,a01,i,arr ' createObject("wScript.shell").run("%comSpec% /c " & "del """ &_ ' fso.getSpecialFolder(2) & ".\rad*.tmp.txt"""), 2, true dim wso: set wso = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") file = fso.getSpecialFolder(2) & ".\" & fso.getTempName & ".txt" on error resume next a01=wso.regRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\" &_ "Internet Settings\MinorVersion") on error goTo 0: a01 = uCase(a01): a01 = replace(a01, "SP", "*SP ") for each i in array("Q", "KB"): a01 = replace(a01,i,empty): next for each i in array("59 DataAccess", "69 Windows Media Player",_ "56 DirectX" , "63 Windows XP\SP2") wso.run("regedit /e """ & file & """ """ & "HKEY_LOCAL_MACHINE" &_ "\SOFTWARE\Microsoft\Updates\" & mid(i,4) & """"),,true if fso.fileExists(file) then arr = fileToArray(file) :_ a01=a01 & getHotfix(arr,left(i,2)): fso.deleteFile file next arr = split(a01, ";") if uBound(arr) > 0 then a01 = jsSort(arr) do: a01 = replace(a01,"**","*"): loop while left(a01,2) = "**" missingHotfix(a01) if vbOK = msgBox("Do you want to see what hotfix that is insta" &_ "lled? ", vbQuestion + vbOKCancel + vbDefaultButton1, "?") then arr = split(a01, "*") writeArray arr,file wso.run("""" & file & """"),, true fso.deleteFile file end if else msgBox "Failure" end if set wso = nothing: set fso = wso function fileToArray(readFile) dim rLine, a, rFile: set rFile = fso.openTextFile(readFile, 1) on error resume next do: rLine = rFile.readLine if err <> 0 then exit do for each a in array(0,10,13) rLine=replace(rLine,chr(a),empty) next fileToArray = fileToArray & "*" & rLine loop rFile.close: set rFile = nothing fileToArray = split(fileToArray,"*") end function function getHotfix(arr,p): dim i,endStr,a for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) if "]" = right(mid(arr(i),p,9),1)then endStr = left(right(mid(arr(i),p,9),7),6) if 6=len(endStr)and 1+isNaN(endStr) then a=a & ";" & endStr end if next getHotfix = a end function sub writeArray(arr, writeFile) dim i, wFile: set wFile=fso.openTextFile(writeFile,2,-1) for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) wFile.writeLine arr(i) next wFile.close: set wFile = nothing end sub sub missingHotfix(installed) if 0 > jsFind("SP 1", installed) then msgBox"You need Service Pack 1 ", vbInformation, "XP Outdated" exit sub end if dim a02,i,numb,need,msg dim recommended,recommendable,script56,directX9,mPlayerLess9 dim mPlayer9,mPlayer9andLess,virus,swindler,hackerLocal dim hackerCurious,hackerMalicious,otherXP recommended = false recommendable = true script56 = true directX9 = true mPlayerLess9 = true mPlayer9 = false mPlayer9andLess = true virus = true swindler = true hackerLocal = false hackerCurious = true hackerMalicious = true otherXP = true ' * NOTE: Returns hotfix 814078 and 816093 as missing: if recommended then recommended ="" if recommendable then recommendable ="31.1[ ]327979," &_ "34.1[ ]814995," &_ "" if script56 then script56 ="22.1[*]814078," if directX9 then directX9 ="04.2[ ]819696," if mPlayerLess9 then mPlayerLess9 ="21.1[ ]817787," if mPlayer9 then mPlayer9 ="21.3[ ]819639," if mPlayer9andLess then mPlayer9andLess="22.3[ ]828026," if virus then virus ="18.1[ ]823980," if swindler then swindler ="13.1[ ]329115," if hackerLocal then hackerLocal ="23.1[ ]323255," &_ "14.1[ ]328310," &_ "17.1[ ]810577," &_ "05.1[ ]811493," &_ "38.1[ ]824141," &_ "" if hackerCurious then hackerCurious ="32.1[ ]824105," &_ "" if hackerMalicious then hackerMalicious="24.1[ ]329048," &_ "26.1[ ]329170," &_ "12.1[ ]329390," &_ "11.1[ ]329834," &_ "02.1[ ]330994," &_ "27.1[ ]331953," &_ "16.1[ ]810833," &_ "08.1[ ]815021," &_ "20.1[ ]817606," &_ "03.1[ ]821557," &_ "37.1[ ]823182," &_ "19.1[ ]823559," &_ "29.1[ ]823718," &_ "33.1[ ]824146," &_ "36.1[ ]825119," &_ "35.1[ ]828035," &_ "01.3[ ]828750," &_ "" if otherXP then otherXP ="09.1[ ]329441," &_ "15.1[ ]810565," &_ "25.1[ ]811630," &_ "10.1[ ]814033," &_ "07.1[*]816093," &_ "06.1[ ]817287," &_ "" a02 = recommended & recommendable & script56 & directX9 &_ mPlayerLess9 & mPlayer9 & mPlayer9andLess & virus &_ swindler & hackerLocal & hackerCurious & hackerMalicious &_ otherXP for each i in split(a02,","): numb = right(i,6) if 0 > jsFind(numb,installed)then need = need & numb & "," if "*"=mid(right(i,13),6,1)then msg="See note in line numb 94." end if next if 1+jsFind(",","" & need) then inputBox string(5,vbLf) & "Missing hotfix:", msg, need,, 0 else msgBox"This system is up to date (October 20, 2003) ",, ":-)" end if end sub' To be continued later on my Homepage... </SCRIPT></JOB></PACKAGE> Tag: How To: Disable Selections with OnSelectStart Tag: 145366
  - 8
    - Generic WSF template for processing uargs-or-stdin Below is a WSF template I recently put together to help with rapidly writing small console utilities with minimal coding so that they can take either a series of unnamed arguments, or, if no unnamed arguments are present, read lines from stdin and process each line as one would an argument. This of course needs to be explicitly launched in a console with cscript as the host for it to work. Comments appreciated. ============================================================================ ===== <?xml version="1.0" encoding="ISO-8859-1" ?> <job> <runtime> <description><![CDATA[ note: send comments to aka-at-mvps-dot-org ]]></description> <example><![CDATA[ ]]></example> <named name="?" helpstring="returns this help message" type="simple" required="false"/> <unnamed name="arg" helpstring="Multiple arguments to run against. If none are specified, script will get input from stdin." many="true" required="false"/> </runtime> <script language="VBScript"><![CDATA[ Option Explicit ' Special variable declarations. DO NOT reuse these! dim [UnNamedCount], [hasUnnamed], [data], [i] ' Generic loop to execute Sub Main() for each unnamed argument ' or, if no unnamed arguments, to run it against each line ' from WScript.StdIn [UnNamedCount] = WScript.Arguments.Unnamed.Count [hasUnnamed] = CBool( Sgn(WScript.Arguments.Unnamed.Count) ) do if [hasUnnamed] then [data] = WScript.Arguments.Unnamed([i]) else [data] = WScript.StdIn.ReadLine main [data] if [hasUnnamed] then [i] = [i] + 1 if [i] = [UnNamedCount] then exit do else if WScript.StdIn.AtEndofStream then exit do end if loop end sub Sub Main(arg) '' CODE GOES HERE! End sub ]]></script> </job> Tag: How To: Disable Selections with OnSelectStart Tag: 145363
  - 9
    - WScript.Shell Run for...in...do I'm having problems getting the WScript.Shell object to run command lines of the form for...in...do. For example, the following is supposed to encrypt all the document files in the folder "C:\data" Set wsh = WScript.CreateObject("WScript.Shell") wsh.CurrentDirectory = "C:\data" wsh.Run "%comspec% /c for %%F in (*.doc) do pgp -encrypt %%F", 1, True This doesn't work, but there's no error message or anything, instead all it does is flash the command window. Even using /k doesn't keep the window up. But if I put the line in a batch file in C:\data, and run the batch file, everything works okay: wsh.Run "%comspec% /c encrypt-docs.bat", 1, True Or if I use an alternate but equivalent command line, it also works okay: wsh.Run "%comspec% /c pgp -encrypt-files *.doc", 1, True Based on the results, it seems that WScript.Shell Run can't directly handle for...in...do. Can anyone else confirm this? If it matters, the OS is Win2K and comspec is cmd. Thanks for reading... Russell Tag: How To: Disable Selections with OnSelectStart Tag: 145359
  - 10
    - SetTimeOut and declaring variables Did anyone notice this: When using SetTimeOut you have to declare any variables globally. For instance: <script language=VBScript> dim s s="goodbye" sub document_onclick() dim s s="hello" window.settimeout "msgbox s",100 end sub </script> Tag: How To: Disable Selections with OnSelectStart Tag: 145358
  - 11
    - Help with GetRef Hello, I have a command line based script where I bring up IE, then sit in a loop with GetRef's to OnClick events from the IE page. For the most part, it works, but occasionally, I will get an error where the script has disconnected from the opbject. I am using a sleep value of 100 in my loop. Is there a way to reliably run the script without the disconnect error ? I would say it errors out about 10% of the time. I have played around with the sleep value but I still seem to occasionally get the error. My geuss is that when I click the button on the page while the script is in the sleep state, the error occurs, kind of a race condition so to speek. Any and all help is appreciated. TDM Tag: How To: Disable Selections with OnSelectStart Tag: 145349
  - 12
    - What's the best way to determine if it is Win2000SP2 or Win2000SP3 or 4 I need to install patches and I am wondering what's the best way to modify the script below too if a machine is Win2000SP2 or Win2000SP3 ? Function GetOS() ' using the ver command Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const ForReading = 1 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sTemp = oShell.ExpandEnvironmentStrings("%TEMP%") sTempFile = sTemp & "\runresult.tmp" oShell.Run "%comspec% /c ver >" & sTempFile, 0, True Set fFile = oFSO.OpenTextFile(sTempFile, ForReading,FailIfNotExist, OpenAsASCII) sResults = fFile.ReadAll fFile.Close oFSO.DeleteFile(sTempFile) Select Case True Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95" Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98" Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME" Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4" Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2K" Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP" Case Else : GetOS = "Unknown" End Select End Function Function RegKeyExists(sRegKey) Dim RegReadReturn RegKeyExists = True sRegKey = Trim (sRegKey) If Not Right(sRegKey, 1) = "\" Then sRegKey = sRegKey & "\" End if On Error Resume Next RegReadReturn = WshShell.RegRead(sRegKey) If Err Then If LCase(Left(err.description,7)) = "invalid" Then 'key not found... RegKeyExists = False End if Err.clear End if On Error Goto 0 End Function Tag: How To: Disable Selections with OnSelectStart Tag: 145346
  - 13
    - writing results to excel file hi, i have a script that echo the ip address of a remote computer to the screen using wscript.echo. How can i amend the script to write the result to an excel file under column D ? thanks Tag: How To: Disable Selections with OnSelectStart Tag: 145341
  - 14
    - Getting Users Post Code from AD I am trying to retrieve information from AD about a user, and am having problems retrieving information from property pages other than General. The following Gets the givenName and sn properties from the general page, but not the postalCode from the Address properties page, what am I doing wrong? Thanks Mark Set objUser = GetObject ("LDAP://cn=Test,ou=Computer Users,dc=zordon,dc=kicks-ass,dc=net") objUser.GetInfo strGivenName = objUser.Get("givenName") strSn = objUser.Get("sn") strpostalCode = objUser.Get("postalCode") Wscript.Echo "User: " & strGivenName & " " & strSn WScript.Echo "Post Code: " & postalCode Tag: How To: Disable Selections with OnSelectStart Tag: 145340
  - 15
    - adding a printer hi, how do i add a printer to a remote windows 2000 computer? thanks Tag: How To: Disable Selections with OnSelectStart Tag: 145333
  - 16
    - How do I iterate through an array in VBScript? I'm using VBScript to use a .NET library. I'm having troubles with functions that return arrays. VBScript will is successfully returned the array, and IsArray(..) returns true but attempts to access or manipulate the array generate errors. e.x.: C# code public string[] TestC() { string[] array = new string[] {"FOO", "BAR", "1", "ONE"}; return array; } public int[] TestD() { int[] array = new int[] {1,2,3,4}; return array; } VB Script code dim fooBar set fooBar = CreateObject("Foo.Bar") dim teh teh = foobar.TestD msgbox UBound(teh), , "counter" For Each arrayElement In teh msgbox arrayElement, , "output" Next ************ ok, line 5 of the vbscript code outputs 3 which is correct then I get a msg saying Line: 6 Char: 1 Error: Type mismatch Code: 800A000D Source: Microsoft VBScript runtime error If I were to do dim somthin set somthin = teh(1) I get an error too I've tried dotnet.framework, dotnet.csharp and dontnet.interop newsgroups and people there are just as confused as me on this. I'm posting here assuming I'm doing something wrong in VBScript. Tag: How To: Disable Selections with OnSelectStart Tag: 145328
  - 17
    - Is there a better way to do this? Can anyone help with the following? This is only my 3rd script, and i am having a little problem with it. The reason for this script, is all our network users have added a word to their custom dictionary in word, and now due to company policy, the format of this word must be exact. for those that are not aware of the format of the custom.dic file, each word added is on a seperate line. The example i have used here is the word apple. For example lets say some of our users added this to their dictionary as APPLE, and some have added it as apple. Company policy states this should now be Apple. The script i have created uses two functions. The first does a search and replace, for apple which is not case sensative, and replaces it with a blank entry. This i can live with but it could be better. I would prefer it to delete the instances of the word apple, and not leave a blank line. An option i do have is to search for the word apple and replace it with Apple, and then to search for APPLE and replace it with apple. But i want to learn how to delete the word, for future use. The 2nd function is poor as well, as this will add the word Apple on the end of the file, however sometimes when i run it a blank line is inserted before the word apple. If i remove the Vbcrlf form the following line then, sometimes the word apple would be appended to the last word in the file, making an incorrect word. objFile.WriteLine Vbcrlf & "Apple" Any suggestions tips would be appreciated, please be gentle, like i said this is only my 3rd script. Thanks Mark option explicit Dim dictionaryfile, usrname, wshnetwork Set wshnetwork = wscript.createobject("wscript.network") usrname = wshnetwork.username dictionaryfile="c:\documents and settings\" & usrname & "\Application Data\Microsoft\Proof\custom.dic" FileSearchReplace(dictionaryfile) AddOfsted(dictionaryfile) WScript.Quit(0) 'This function will search for all instances of ofsted and replace with a blank line. Function FileSearchReplace(theFilename) Const ForReading = 1, ForWriting = 2 Dim fso, f, fileContents, findString, ReplaceString findString="apple" replaceString="" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(theFilename) Set f = fso.OpenTextFile(theFilename, ForReading) fileContents= f.ReadAll Set f = fso.OpenTextFile(theFilename, ForWriting, True) f.Write Replace(fileContents, findString, replaceString,1,-1,1) End Function 'This fuction add the word Ofsted to the end of the Custon Dic File Function AddOfsted(theFileName) Const ForAppending = 8 Dim objfso, objFile Set objfso = CreateObject("Scripting.FileSystemObject") Set objFile = objfso.OpenTextFile(theFileName, ForAppending) objFile.WriteLine Vbcrlf & "Apple" objFile.Close End Function Tag: How To: Disable Selections with OnSelectStart Tag: 145322
  - 18
    - Non-blocking EnableStatic call ? (WMI) Hello, I'm new to VBScripting and to WMI use and I'm trying to change IP adresses remotely in VBScript with ths Win32 _NetworkAdapterConfiguration.EnableStatic method. Of course, when I do this call, there is a disconnection. This disconnection is causing the EnableStatic method not returning and the script gets stuck and does not go on. Is there a way to use an asynchonous call to EnableStatic ? I saw there are ExecQueryAsync but there is no EnableStaticAsync. Is there a way of getting rid of this blocking behavior ? I have some boxes I would like to chose their IP address by using a text file (computer name + IP address) and I didn't know how to do because of this. Thanks for any help Tag: How To: Disable Selections with OnSelectStart Tag: 145321
  - 19
    - some stupid questions about accessing HTA from vbscript hello all i created an hta file to be used to provide user friendly inteface to my vbs..all this of course to avoid this "activex component cant create object getobject"... now i find out that when loading it though "internetexplorer.application" navigate method the explorer just loads hta and exits... how can i load hta from vbscript and access it as if it was a standard html file ?? thanx to all Tag: How To: Disable Selections with OnSelectStart Tag: 145320
  - 20
    - RSS New Feed with VB .NET? I'm trying to make an ASP page with VS .NET 03 using VB as the language and I want the page to display an Rss News Feed as page content form another RSS News Feed on a web page served by another one of my IIS srevers, I don't know how to do this it sounds simple enuf but were do I start is it a simple one line of code deal or it it complex to do I havent really played around with Rss news Feeds much give me some feed back guy's code samples would be very help-full... Tag: How To: Disable Selections with OnSelectStart Tag: 145317
  - 21
    - user in which group Thanks Ray, How can I figure out groupname if I know username? What is the fastest and easiest way to do this in a command prompt? Thanks, Jim. Tag: How To: Disable Selections with OnSelectStart Tag: 145307
  - 22
    - stop SPAM! hi, can somebody help me to stop SPAM from attacking my mailbox?? Tag: How To: Disable Selections with OnSelectStart Tag: 145301
  - 23
    - How to get: "Microsoft Forms 2.0 Object Library" Hi, The version of Excel that I have on my laptop doesn't seem to have the 'Microsoft Forms 2.0 Object Library'. When I go Tools->References it's not there to add. How do I go about getting it? Thank you, Robert Stober Tag: How To: Disable Selections with OnSelectStart Tag: 145296
  - 24
    - Running DOS command that uses quotes All, Trying to get this command to run but it doesn't like the extra quotation marks but they are needed for the command.. Can anyone help me out. ShellRun = WSHShell.Run ("cmd /c c:\tools\psexec -c \\" & Machine & " c:\tools\hotfixes\mdac_typ.exe /Q:A /c:"dasetup /Q /N") thanks Jack Tag: How To: Disable Selections with OnSelectStart Tag: 145283
  - 25
    - Simple FTP script Hi, I often need to upload single files to an FTP server. I am trying to create a script that will automate this process, and have been investigating VBScript to do this job. I know a little about FTP.exe with the -s: tag to make it run scripts. Ideally what I would like is for the script to open a box where I could drag the file, and from there it would upload it. So structurally, the process goes: Create a variable, set this variable to contain the file directory\name, then it would create the script to enter into FTP.exe, and run it. Can anyone give me any hints on the best way to go about it? I'd be most grateful. Scott Tag: How To: Disable Selections with OnSelectStart Tag: 145268

I have observed several samples in JavaScript such as:

<BODY onselectstart="return false">

But, I am having troubles in VBScript. I want to avoid mixing Java and
VBScript in this page so as not to have to load both scripting engines.
Anyone been able to successfully do this? Thanks

-Tom

Top

Re: How To: Disable Selections with OnSelectStart by Michael

Michael
Tue Oct 21 14:40:19 CDT 2003

T K wrote:
> I have observed several samples in JavaScript such as:
>
> <BODY onselectstart="return false">

<BODY onselectstart="window.event.returnValue = false">

>
> But, I am having troubles in VBScript. I want to avoid mixing Java and
> VBScript in this page so as not to have to load both scripting
> engines. Anyone been able to successfully do this? Thanks
>
> -Tom

--
Michael Harris
Microsoft.MVP.Scripting

Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

TechNet Script Center Sample Scripts
http://www.microsoft.com/downloads/release.asp?ReleaseID=38942

WSH 5.6 documentation download
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en

Top

That Did It by T

T
Tue Oct 21 15:56:23 CDT 2003

Thank you.

Top