Syntax Problem

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
    - SQL constraint rule probelm Hi there, I'm having a hard time automatically editing some users to my SQL DB. I established it is because the surname of the people I am adding contains an " ' ", eg surname = O'Connel What I am sending SQL looks like: sQLUpdateString = "UPDATE Users SET " & updateString & _ " WHERE (UserName='" & userName & "')" conWrite.Execute(sQLUpdateString) My script generates updateString automatically and in the case where it updates the users full name; updateString = FullName='John O'Connel' In this case userName = "JohnO" This normally works fine, (I can update all the other users in my DB this way), however in cases like this where the surname includes the " ' " the full name in read in as being "John O" then an error because the "Connel" part still remains and is invalid SQL. I am told that I should probably use a rule or a constraint to fix this, however SQL is not really my strong suit, so any pointers on how to go about this would be greatly appreciated. Thanks in advance Tag: Syntax Problem Tag: 159603
  - 2
    - GetObject for IE I'm trying to use the GetObject Method in VScript to copy information into a custom Outlook form: Set objIE = GetObject(,"InternetExplorer.Application") objIE.Visible = True Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.GetDefaultFolder(6) Set objItem = objFolder.Items.Add("IPM.Post.GenericDocument") objItem.Display Set objPage = objItem.GetInspector.ModifiedFormPages("Message") objPage.Controls("txtURL").Value = objIE.LocationURL objPage.Controls("Subject").Value = objIE.LocationName objItem.BodyFormat = 2 objItem.HTMLBody = objIE.Document.Body.innerHTML Set objItem = Nothing Set objIE = Nothing Set objApp = Nothing Set objNS = Nothing Set objFolder = Nothing Set objPage = Nothing I get an "Unspecified" error is at objItem.HTMLBody = objIE.Document.Body.innerHTML but none of the information ends up in the proper fields and, as far as I can tell, the script is failing to properly assign the objIE object. Could someone give me a clue as to what might be wrong? Thanks, Tom S. -- Talent hits a target no one else can hit; Genius hits a target no one else can see. -- Arthur Schopenhauer Tag: Syntax Problem Tag: 159598
  - 3
    - How to overwrite target file no prompt? I save .xls file with "saveAs" method, for example. ThisApplication.ActiveWorkbook.SaveAs("C:\MyWorkbook.xls") But ,Because the file of the same name exists in the goal position system always asks me whether I overwrite it. How to overwrite target file no prompt,save directly? Thank in advance. -- Tag: Syntax Problem Tag: 159596
  - 4
    - VBScript and Standby mode This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C456AC.A9CFFB80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable My computer (running XP Home) is set to enter standby mode after 20 = minutes of inactivity.=20 I have a background (vbscript) script running, which works in = conjunction with a background activex object (that makes a couple of API = calls), that works fine when the computer is 'active', so to speak, but = fails mysteriously (stopping wscript.exe ) without error message = whenever the computer enters standby mode. Can anyone think of a reason that the script fails as soon as standby = mode sets in (bearing in mind that other applications running resume = functioning just fine after rewaking the computer) or failing that is = there a test within a script that can determine whether a computer is = awake or not? Thanks for any pointers in the right direction Jon ------=_NextPart_000_000A_01C456AC.A9CFFB80 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.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial>My computer (running XP Home) is set to enter = standby mode=20 after 20 minutes of inactivity. </FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>I have a background (vbscript) script running, = which works=20 in conjunction with a background activex object (that makes a couple of = API=20 calls),  that works fine when the computer is 'active', so to = speak, but=20 fails mysteriously (stopping wscript.exe ) without error = message whenever=20 the computer enters standby mode.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Can anyone think of a reason that the script = fails as soon=20 as standby mode sets in (bearing in mind that other applications running = resume=20 functioning just fine after rewaking the computer) or failing that is = there a=20 test within a script that can determine whether a computer is awake or=20 not?</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Thanks for any pointers in the right=20 direction</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>Jon</FONT></DIV></BODY></HTML> ------=_NextPart_000_000A_01C456AC.A9CFFB80-- Tag: Syntax Problem Tag: 159595
  - 5
    - Weird VBscrip Win2k explorer problems Hello All, Well my issue is my inventory script which I have made from other peoples scripts and modified for my own use is having some issues on our desktops. Little about our environment, Windows 2000, SP3 & SP4 with most patches applied. And worm patches etc. mostly our users aren't & can't be local administrators of there machines. Anyway I originally had a VBScript which did the inventory but I was having the following problems so I tried making a KIXTART Script which also made the exact same problems as described below. 1) Logged on as a normal user the PC's Internet Explorer 6 w/sp1 works first time then you close the app and open it again and it says "Detecting proxy settings" and just sits there forever and you have to reboot again for it to work. If you're lucky. 2) After the internet explorer starts playing up I can't get into control panel its like the whole "explorer" craps out. 3) The Computer generally becomes unstable, App's play up Outlook doesn't work media player etc. 4) If I load a patch on the machines which is MS04-011 Latest updates. (May/June) I think it is, and make the user a local administrator everything 's fine. If I load this patch and don't make the local user an administrator it still doesn't work properly ie: Media player doesn't load internet explorer and explorer still has issues. Making all our users local Admin's isn't an option for us. So I'm guessing it has to be something with the script which is causing the hassle. Or something I'm doing somewhere, So I had my kix script checked out and its fine apparently and the VB Script works perfect on a number of machines but then I hit a number of pc's which It doesn't work and causes the problems above. But once you disable to script at logon. The machine is perfect so it 's defiantly something strange when running these scripts but the scripts are fine.. All the scripts basically do is some WMI Queries and other Reg Queries nothing real hi-tech but it seems to make the machine unstable.. If any of you can think of anything that might be contributing to this issue please let me know! Btw: I'm using kixtart 2001 4.21 and I've tried updating to Windows Scripting host 5.1 I think the latest, Still the same problems. Thanks, Quenten Tag: Syntax Problem Tag: 159594
  - 6
    - Newbie, How to pass data from one vbscript to another? I have a vbscript that I would like to call from another script and at the same time pass some data of various types from the "calling" script - is that possible? What I would like to achieve is exactly what a function does, only that instead of referring to the function's name, I would like to be able to refer to a script file and pass my variables to that I come from an Macintosh/AppleScript background and there one could use: "run script [path to script] with parameters [the parameters you like] " Is that possible in vbscript? Or if not, Is there any other easy of achieving the same effect. All suggestions are much appreciated / Richard Tag: Syntax Problem Tag: 159593
  - 7
    - converting IHTMLElement to IHTMLDOMNode I am doing DHTML programming and I need to convert IHTMLElement to IHTMLDOMNode so I can use the appendChild method of IHTMLDOMNode. How can I convert IHTMLElement to IHTMLDOMNode using Visual Basic? I think, in C++, there is a method called QueryInterface that can be used to do this conversion. Can someone give me a similar example in VB? Thanks, Bob Tag: Syntax Problem Tag: 159592
  - 8
    - How can i drag a HTA window with out a caption? Hello! I want a HTA application without a caption, so i set caption="no". The problem is now i cant drag the window anymore. Is there a way to drag the window with javascript. perhaps with onMouseMove and moveBy? Sebastian Tag: Syntax Problem Tag: 159586
  - 9
    - Effacer le contenu d'un fichier Bonjour Comment peux t'on effacer le contenu d'un fichier? j'essaie d'effacer le contenu du fichier Tempory Internet Files en vbscript pour que le script puisse se lancer automatiquement à partir d'une certaine heure et enlever toutes traces de passage sur internet? merci d'anvance Jérôme Tag: Syntax Problem Tag: 159581
  - 10
    - hta script broken. I access an hta file that runs a script I need for work. This script ran fine for everyone who accessed it, including me. However, my computer recently crashed and our tech department provided me with a new hard drive complete with a Ghosted image. Since I got the new drive, I have been unable to run the hta file. No one else is experiencing this problem. I am running Win2k, but my office runs a mix of Win2K and NT4. I was also running Win2k prior to my hard drive crash. I installed Microsoft's 5.6 script engine (scripten.exe) obtained from their web site and I believe I have the most current version of mshta.exe. It's my understanding that mshta.exe is the program that is to untilzed to run this script. I have tried to run the script via IE to no avail. This includes me checking and unchecking various script related boxes in the Advanced section of IE's options. Here is the error I receive: **************************************** Msg Box: Internet Explorer Script Error Message: An error has occurred in the script on this page. Line: 52 Char: 1 Error: Object doesn't support this property or method: 'xmlReports.setProperty' Code: 0 URL: file://O:\Alva\ADP\organizer.hta Do you want to continue running scripts on this page? **************************************** If I click yes, I get a similar error, but the Line and Error changes. Again, I am the only one receiving this error and I am having similar problems with another hta file that I'm trying to run. Any ideas on what may be causing this? Thanks in advance for any help offered. Throxy Tag: Syntax Problem Tag: 159576
  - 11
    - close a msgbox 1 hi in my script i open a msgbox during a operation. How can i close it ? I've try sendkeys "{enter}" but nothing happens my code MsgBox "hi",vbQuestion + vbOkOnly + vbApplicationModal + 0,"done" wscript.sleep 200 wshshell.sendkeys "{enter}" is ther a other solution to display a text on screen and close it.This message is just a information in my script process thanks for your help nb : sorry for my bad english Tag: Syntax Problem Tag: 159575
  - 12
    - close a msgbox hi in my script i open a msgbox during a operation. How can i close it ? I've try sendkeys "{enter}" but nothing happens my code MsgBox "hi",vbQuestion + vbOkOnly + vbApplicationModal + 0,"done" wscript.sleep 200 wshshell.sendkeys "{enter}" is ther a other solution to display a text on screen and close it.This message is just a information in my script process thanks for your help nb : sorry for my bad english Tag: Syntax Problem Tag: 159574
  - 13
    - Script not rename user script is invoked from a batch file but code is: rem chgdisplay.vbs - Changes the display names of all users in a given OU to the rem format of Lastname, Firstname. rem Usage = cscript chgdisplay.vbs "OU=My Ou, DC=My Domain, DC=com" rem OU must be enclosed in quotes if it contains spaces in the name ' Dim strTargetOU ParseCommandLine() wscript.echo strTargetOU wscript.echo wscript.echo "Changing Display names of users in " & strTargetOU Set oTargetOU = GetObject("LDAP://" & strTargetOU) oTargetOU.Filter = Array("user") For each usr in oTargetOU if instr(usr.SamAccountName, "$") = 0 then On Error Resume Next vLast = usr.get("Sn") vFirst = usr.get("GivenName") On Error GoTo 0 If (vLast = "") And (vFirst = "") Then vFullName = usr.sAMAccountName ElseIf (vLast = "") Then vFullName = vFirst ElseIf (vFirst = "") Then vFullName = vLast Else vFullname = vLast & ", " & vFirst End If usr.put "displayName", vFullName usr.setinfo wscript.echo usr.displayName end if Next For each usr in oTargetOU if instr(usr.SamAccountName, "$") = 0 then On Error Resume Next vLast = usr.get("Sn") vFirst = usr.get("GivenName") On Error GoTo 0 If (vLast = "") And (vFirst = "") Then vFullName = usr.sAMAccountName ElseIf (vLast = "") Then vFullName = vFirst ElseIf (vFirst = "") Then vFullName = vLast Else vFullname = vLast & ", " & vFirst End If On Error Resume Next oTargetOU.MoveHere usr.AdsPath, "cn=" & vFullName 'Set oNewUser = oTargetOU.MoveHere(usr.AdsPath, "cn=" & vFullName) If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Unable to rename " & usr.distinguishedName Else On Error GoTo 0 Wscript.Echo "Renamed " & usr.distinguishedName End If end if Next Sub ParseCommandLine() Dim vArgs set vArgs = WScript.Arguments if vArgs.Count <> 1 then DisplayUsage() Else strTargetOU = vArgs(0) End if End Sub Sub DisplayUsage() WScript.Echo WScript.Echo "Usage: cscript.exe " & WScript.ScriptName & " <Target OU to change users display names in>" WScript.Echo "Example: cscript " & WScript.ScriptName & " " & chr(34) & "OU=Test OU,DC=ubht,DC=nhs,DC=uk" & chr(34) WScript.Quit(0) End Sub it runs but says unable to rename CN=firstname lastname,OU=test,DC=domain,DC=com i have the movetree.exe file in same folder. Tag: Syntax Problem Tag: 159571
  - 14
    - ADO to access wildcard What is wrong with this querry: I am doing something wrong with the wildcard in the where clause. I am writing in VB.Net to querry an Access database SELECT ID, Doc_Title, Doc_Date, Doc_Keywords, Misc_Info, Doc_Location FROM Documents WHERE (Doc_Title = 'PB*') If there is a better group to post this let me know Thanks in advance Tag: Syntax Problem Tag: 159570
  - 15
    - writing stdout to a log file... Hi All- Got a script that is calling a batch secure ftp process (Putty's psftp) and want to capture the output straight to a log file and not to the screen. Any assistance on how I would do this would be greatly appreciated. The old DOS redirect also doesn't work because the ftp process runs in a different shell... Using WSH 5.6. I know I can not use shell.run to capture stdout stream and have been playing with the shell.exec to see if I could make it work to no avail. The process creates a new text file for writing and executes the psftp process but I don't know how to get its output over to the text file... Thanks in advance for any assistance offered. -Phil Tag: Syntax Problem Tag: 159569
  - 16
    - RegWrite error Hi all, I have written a script to set user's automatic updates client to point to my SUS server. The script is as follows: ====================================== Dim WSHShell Set WSHShell = Wscript.CreateObject("Wscript.Shell") WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\Res cheduleWaitTime", "15", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\NoA utoRebootWithLoggedOnUsers", "1", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\NoA utoUpdate", "0", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\AUO ptions", "4", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\Sch eduledInstallDay", "0", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\Sch eduledInstallTime", "10", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\Use WUServer", "1", "REG_DWORD" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\WUServ er", http://sus_server, "REG_SZ" WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\WUStat usServer", http://sus_server, "REG_SZ" Set WSHShell = Nothing ====================================== On 80% of my clients, this script executed OK. On the other 20%, the users sees the message "Invalid root in registry key HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\Resc heduleWaitTime" All clients are either w2k SP3 or XP SP1. All users are in the "power users" group on their local machine and are in the same group policy so all have the same rights to the registry. Any ideas anyone? Thanks, steve Tag: Syntax Problem Tag: 159562
  - 17
    - ODBC query in PWS -vs- IIS 5.1 I've developed an ASP application running in Personal Web Server in Win98. All my ODBC queries on that server runs smoothly but when I decided to use IIS 5.1 in WinXP, queries that update my Access Database did not work and give an error "must use an updateable query". What could be the conflicts between using PWS and IIS? What should I do so that my same queries runs in IIS? Tag: Syntax Problem Tag: 159561
  - 18
    - LDAP connection question... I have a number of wireless machines that reside as stand-alone devices (i.e. not part of the domain). After they are started, the user logs into the machine locally, then gains wireless access. I then want to run a script to map drives and printers based on the group membership of a domain username and password they provide. This is a sort of post-facto login script. I can't figure out how to query the LDAP from the outside of the domain to determine group memberships however. Any suggestions? Portion of the script that works from domain member machine...: ' Now determine the memberships of the presented user... targetO = "LDAP://CN=" + strUser + ", " + mydomain WScript.Echo "Your fully qualified domain name is: " & targetO & VbCrLf Set oUser = GetObject(targetO) Tag: Syntax Problem Tag: 159557
  - 19
    - Event Log - Office XP Hello, Here is a snippet from my code. It grabs all events that meet a certain criteria LogFile = 'Application' EventCode = '11707' This works fine. It grabs all the new software installations. I want to narrow this down to Office XP. The Message I want to grab is 'Product: Microsoft Office XP Professional -- Installation operation completed successfully.' I tried to add this msgCheck = "Product: Microsoft Office XP Professional -- Installation operation completed successfully." <<< code >>> if msgCheck = objEvent.Message then <<< do something >>> It doesn't work. I also tried "Select * from Win32_ntllogEvent where Message = msgCheck" in an ExecQuery Any ideas? Thanks in advance Tag: Syntax Problem Tag: 159556
  - 20
    - multiple instances of ms agent from a web page ? i would like to get multiple ms agent characters talking on the screen at once, but for some reason my code isn't working... any good examples or feedback on my code welcome... also how do i get separate onclick events for the separate instances? thanks... <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>Try out Microsoft Agent</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <OBJECT id=Agent style="LEFT: 0px; TOP: 0px" codeBase=#VERSION=2,0,0,0 classid="clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"></OBJECT> <OBJECT id=TruVoice codeBase=#VERSION=6,0,0,0 classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575></OBJECT> <SCRIPT language="VBScript"> Dim Peedy1 Dim Peedy2 Dim LoadRequestUNC Dim LoadRequestURL Dim GetShowAnimation Sub Window_OnLoad ' Load the character LoadCharacter End Sub Sub InitCommands ' Give user access to the Advanced Character Options dialog Peedy1.Commands.RemoveAll Peedy2.Commands.RemoveAll Peedy1.Commands.Add "ACO", "Advanced Character Options" Peedy2.Commands.Add "ACO", "Advanced Character Options" End Sub Sub Monologue ' Start the monologue Peedy1.Speak "Hey!" Peedy1.Play "Blink" Peedy2.Speak "reminder: feed the dog" Peedy2.Play "RestPose" Peedy1.Speak "reminder: feed the cat" Peedy1.Play "Pleased" Peedy2.Speak "reminder: feed the monkey" Peedy2.Play "Explain" Peedy1.Speak "reminder: feed the cow" Peedy1.Play "Blink" Peedy2.Speak "reminder: feed the lizard" Peedy2.Play "Explain" Peedy1.Speak "reminder: feed the goat" Peedy1.Play "Blink" Peedy2.Speak "reminder: feed the capybara" Peedy2.Play "Think" Peedy1.play "Blink" Peedy2.Play "Explain" Peedy1.Play "GestureRight" Peedy2.Play "Think" Peedy1.Speak "reminder: feed the hamster" Peedy1.Play "RestPose" End Sub Sub DoIntro InitCommands ' Set the character's language ID Peedy1.LanguageID = &H0409 Peedy2.LanguageID = &H0409 ' Make the character appear On Error Resume Next Peedy1.MoveTo window.event.screenX-window.event.clientX+400,window.event.screenY-window.event.clientY+50 Peedy1.Show Peedy2.MoveTo window.event.screenX-window.event.clientX+300,window.event.screenY-window.event.clientY+150 Peedy2.Show Monologue() End Sub Sub Agent_RequestComplete(ByVal Request) ' The Request to load the ACF character fails If Request = LoadRequestURL Then ' If it failed If Request.Status = 1 Then 'Msgbox "Peedy could not be loaded. The server may be busy. Try refreshing this page." Msgbox "Merlin could not be loaded. The server may be busy. Try refreshing this page." Exit Sub ' If it succeeded ElseIf Request.Status = 0 Then ' Assign Peedy to the loaded character 'Set Peedy = Agent.Characters("Peedy") Set Peedy1 = Agent.Characters("Merlin") 'Set Peedy2 = Agent.Characters("Merlin") Set Peedy2 = Agent.Characters("Peedy") ' Get the preliminary animations necessary to show Peedy Set GetShowAnimation = Peedy1.Get ("state", "showing, speaking") Set GetShowAnimation = Peedy2.Get ("state", "showing, speaking") Peedy1.Get "animation", "Blink, Greet, Pleased, Explain, Think, GestureRight,Idle1_1,Idle2_2, Announce, Uncertain", False Peedy2.Get "animation", "Blink, Greet, Pleased, Explain, Think, GestureRight,Idle1_1,Idle2_2, Announce, Uncertain", False End If ' The request to get the animation ElseIf Request = GetShowAnimation Then ' If it failed If Request.Status = 1 Then Msgbox "Request to load the Show animation failed. The server may be busy." Exit Sub ' If it succeeded ElseIf Request.Status = 0 Then DoIntro End If End If End Sub Sub LoadCharacter On Error Resume Next ' Attempt to load the character from the Microsoft Agent Chars directory Set LoadRequestUNC = Agent.Characters.Load ("Merlin", "Merlin.acs") ' If it fails... If LoadRequestUNC.Status <> 0 Then ' Attempt to load the character from the Microsoft Agent site Set LoadRequestURL = Agent.Characters.Load ("Merlin", "http://agent.microsoft.com/agent2/chars/merlin/merlin.acf") ' It didn't fail so assign Peedy to loaded character file Else ' Assign Peedy to the loaded character Set Peedy1 = Agent.Characters("Merlin") DoIntro End If ' Attempt to load the character from the Microsoft Agent Chars directory ' Set LoadRequestUNC = Agent.Characters.Load ("Peedy", "Peedy.acs") ' If it fails... If LoadRequestUNC.Status <> 0 Then ' Attempt to load the character from the Microsoft Agent site Set LoadRequestURL = Agent.Characters.Load ("Merlin", "http://agent.microsoft.com/agent2/chars/merlin/merlin.acf") ' It didn't fail so assign Peedy to loaded character file Else ' Assign Peedy to the loaded character Set Peedy2 = Agent.Characters("Peedy") DoIntro End If End Sub Sub Agent_Click (ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) Peedy1.Stop Peedy1.Play "Alert" Peedy1.Speak "\pit=170\drop the chalupa!!" Peedy2.Play "Blink" Peedy2.Speak "\pit=220\no!!" End Sub Sub Agent_DragComplete (ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) Peedy1.Stop Peedy1.Play "Blink" Peedy1.Speak "could i interest you in a \emp\mortgage?! " Peedy2.Speak "yes! \emp\definitely!" Peedy2.Play "Blink" End Sub Sub Agent_Command (ByVal UserInput) If UserInput.Name = "ACO" Then Agent.PropertySheet.Visible = True End If End Sub </SCRIPT> </HEAD> <BODY bgColor="white"> <P align="center"> <STRONG>Note:</STRONG> this page requires the "Microsoft Agent" Active-X plug in and probably IE 5.5. If you don't see <STRONG>and</STRONG> hear a little man talking, go to <A href="http://www.microsoft.com/msagent" target="_new">www.microsoft.com/msagent</A> and install the MS Agent. </P> </BODY> </HTML> Tag: Syntax Problem Tag: 159551
  - 21
    - Ignoring Javasript Errors wtih InternetExplorer Hi, I have a VB script which uses the InternetExplorer object to download data from a website. Unfortunately everytime a Javascript error occurs (these happen randomly and the website is not owned by me so there's nothing I can do about it) it pauses and I need to click Cancel in the popup box which appears. How do I get my script to ignore/bypass these errors? Thanks, Anon. Tag: Syntax Problem Tag: 159547
  - 22
    - Synchronization Scripting Is there a script a synchronization as if you are offline, the offline files icon is located in the Start menu bar and you right click on the icon and select Synchronize? I found a script that will launch mobsync.exe but there has to be a shorter way of doing the same thing. Any help would be appreciated. SDA Tag: Syntax Problem Tag: 159543
  - 23
    - Right-Click Block Does anyone know code that I could write in vbscript or jscript that would block a right-click menu from coming up on a web page? i.e. if a person right-clicks the mouse button, no menu appears. An example of this is on: http://www.stephenfuller.com/frms_home.html Thanks. Tag: Syntax Problem Tag: 159541
  - 24
    - Refresh Security Context I'm trying to figure out a way to Add and Remove a User to the Administrator Group via. a VB Script. Aside from phsyically adding them to the group from a script (which I know how to do) I was wondering if there was a way to reload or refresh their security rights under windows XP WITHOUT having to log out or log back into the machine? If I do Have to Log out and Back in to refresh, is there a way to do that scriptably? Tag: Syntax Problem Tag: 159537
  - 25
    - Reading Environment Variable I need to read the UserDomain environment variable from within a VBScript. Any ideas how would I do about it? Also, Is it in the registry somewhere? Thank you. Tag: Syntax Problem Tag: 159536
- Next
  - 1
    - regular expression help Hi all, I am trying to find a regular expression that does the following:- Sample Strings: 1. "/somefolder" 2. "/specific_folder/aaaa" 3. "/myfolder/bbbb" I would like to match everything after the first "/" for all strings except #2. i.e. for all cases except when it starts with "specific_folder". Any ideas? Right now what I have for my regular expression is "/(.*)". But that captures everything. TIA! Tag: Syntax Problem Tag: 159534
  - 2
    - Create users in AD I have looked on the Microsoft Scripting page and found a sample script to create local users - but not one to create users in AD. I need a script to create users in the "User" container, enable the users, set the password to "password". All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com Tag: Syntax Problem Tag: 159532
  - 3
    - Machine translation module Hi everybody, I want to incorporate a machine translation module in my ASP pages to translate the Chinese into English. Is there any plug-in I can buy to do it? Thanks BC Tag: Syntax Problem Tag: 159531
  - 4
    - Asp - How Do i print after I validate a form I have an ASP form that I use validation code on. I am a newbie at ASP and I am not very familiar with VB Script. I want to print the form after it has been validated as part of the vb code. But I do not want to have the form print unless it is validated. Any ideas on how to do this? I did add a simple javascript command to print. But it prints whether the form is validated or not. Thanks for any help, Ryan Nielsen Tag: Syntax Problem Tag: 159528
  - 5
    - Call vbScript SubRoutine with OnClick Is there a way of calling a vbScript Sub Routine using OnClick? I have a very complex error checking routine and I am not familiar enough with Java Script like I am with vbScript. I have worked with this for over 12 hours and I am stuck! <Input Type="Button" Value="Record Vote" Name="V1" OnClick=<%"Call AddVotes()"%>> <%Sub AddVotes() Response.Write "Add Votes Called" End Sub%> Can this be done? If it can what am I doing Wrong Tag: Syntax Problem Tag: 159524
  - 6
    - Het zal toch niet zijn wie ik denk dat het is? Is het die Ear Youth weer? Nee, het is Arjen Jongeling! Het is een kwestie van geduld voor heel usenet Hollands lult Tag: Syntax Problem Tag: 159518
  - 7
    - GetFile Problem with network drives I'm running into the following problem and I was hoping someone can help. I have the following code snipet in a script I'm running from a DOS prompt. ---------------------------------- qDriveFileName = "\\cgshare\share1\version.dat" Set filesys = CreateObject("Scripting.FileSystemObject") if filesys.FileExists(qDriveFileName) then 'Get a reference to the file Set qDriveFile = filesys.GetFile(qDriveFileName) if Err.Number <> 0 then MsgBox "Error: " & Err.Number & ", " & Err.Description wscript.quit else qDriveDate = qDriveFile.DateLastModified end if end if --------------------------------- the FileExists returns true but the getFile give me error 53, File Not Found. Anybody know what's going on here? I tried searching through Google but couldn't find a solution. This code seems to work fine when I'm dealing with local drives. -- Mark Tag: Syntax Problem Tag: 159517
  - 8
    - problems with activex object taking the top focus when creating a Hi, I`m trying to develop a menu system for one of my apps, the problem lies in the fact that there is a graphing activex control on every page. Normally I would just create a menu using divs. But the activex object always takes the top focus and the index-z properties have no effect. After a bit of looking around I found that it's not possible to change the properties of an object in that way. So I thought I could use window.createpopup to create multi windows for the menus. So far though I can only seem to keep one window on the screen at once. Again after some reading it seems that once you move away from the popup the popup disappears automatically. I`m trying to write a heriachal menu system where the previous options stays as you navigate across, (the same as the microsoft menu system). Anybody else having / had this problem or know of a way around this? I`m using vbscript for the client side of things. thanks. Scot. Tag: Syntax Problem Tag: 159515
  - 9
    - problems with activex object taking the top focus when creating a Hi, I`m trying to develop a menu system for one of my apps, the problem lies in the fact that there is a graphing activex control on every page. Normally I would just create a menu using divs. But the activex object always takes the top focus and the index-z properties have no effect. After a bit of looking around I found that it's not possible to change the properties of an object in that way. So I thought I could use window.createpopup to create multi windows for the menus. So far though I can only seem to keep one window on the screen at once. Again after some reading it seems that once you move away from the popup the popup disappears automatically. I`m trying to write a heriachal menu system where the previous options stays as you navigate across, (the same as the microsoft menu system). Anybody else having / had this problem or know of a way around this? I`m using vbscript for the client side of things. thanks. Scot. Tag: Syntax Problem Tag: 159514
  - 10
    - Capital Letters or Uppercase Letters I was using this script four four years and it worked until I changed my Page. <TD Width="3%"><Span Style="Text-Transform: Uppercase"><INPUT TYPE="Text" Name="txtPosA" Size="2" MaxLength="2"></Span> Does anyone know what change was made for why this script no longer works? Tnanks in Advance Bill Barber Tag: Syntax Problem Tag: 159512
  - 11
    - VBScript & Windows Media Services? Is it possible to start a Windows Media Services publishing point using VBScript? I found the following Visual Basic .NET code example which will start a publishing point, but I've been unsuccessful in converting it to vbscript. ------ Imports Microsoft.WindowsMediaServices.Interop Imports System.Runtime.InteropServices ' Declare variables. Dim Server As WMSServer Dim BCPubPoint As IWMSBroadcastPublishingPoint Try ' Create the WMSServer object. Server = New WMSServer() ' Retrieve a broadcast publishing point. BCPubPoint = Server.PublishingPoints.item ("Test") ' Enable the archiving plug-in. BCPubPoint.BroadcastDataSinks.Item("WMS Archive Data Writer").Enabled = True ' Initialize the publishing point and start broadcasting. BCPubPoint.Start() ' Start archiving the broadcast data locally for rebroadcast. BCPubPoint.StartArchive() Catch errCom As COMException ' TODO: Handle COM exceptions. Catch err As Exception ' TODO: Exception handler goes here. Finally ' TODO: Clean-up code goes here. End Try --------- TIA, Joseph Tag: Syntax Problem Tag: 159504
  - 12
    - VBScript & Windows Media Services? Is it possible to start a Windows Media Services publishing point using VBScript? I found the following Visual Basic .NET code example which will start a publishing point, but I've been unsuccessful in converting it to vbscript. ------ Imports Microsoft.WindowsMediaServices.Interop Imports System.Runtime.InteropServices ' Declare variables. Dim Server As WMSServer Dim BCPubPoint As IWMSBroadcastPublishingPoint Try ' Create the WMSServer object. Server = New WMSServer() ' Retrieve a broadcast publishing point. BCPubPoint = Server.PublishingPoints.item ("Test") ' Enable the archiving plug-in. BCPubPoint.BroadcastDataSinks.Item("WMS Archive Data Writer").Enabled = True ' Initialize the publishing point and start broadcasting. BCPubPoint.Start() ' Start archiving the broadcast data locally for rebroadcast. BCPubPoint.StartArchive() Catch errCom As COMException ' TODO: Handle COM exceptions. Catch err As Exception ' TODO: Exception handler goes here. Finally ' TODO: Clean-up code goes here. End Try --------- TIA, Joseph Tag: Syntax Problem Tag: 159503
  - 13
    - Getting version of Microsoft.XMLHTTP object prior to ADOB.Stream? I'm _totally_ new at creating ADOB.Stream objects, etc. - and I've been able to succesfully implement the code that Tom Lavedas supplied to me. However, my question is this: I also want to utilize this code to download the McAfee program, and I need it to check the remote exe contained in the url for it's current version. If the version on the server is newer than what I have in my folder, then I want it to go ahead and download it. I've had no luck in finding any information on how to pull the XMLHTTP object version. Anyone have any ideas and know what the correct properties/methods are to get such information? Rob Tag: Syntax Problem Tag: 159502
  - 14
    - Commas in the CN name I am using scripts to create user logins in AD with Windows 2003 domain controllers. When I try to create a user with the CN name being something like "Blow, Joe" my script chokes. I can create a login with a CN name of "Blow Joe", with a space, but not a comma. I get the rror message "Active Directory: An invalid Active Directory pathname was passed." Same problem when I try to read a specific CN that has a comma in it with a script. The script chokes. However, if you create a login using the utility Active Directory Users and Computers, by default the CN name is created in the form of "Blow, Joe." Also you can go in on the gui and manually change the CN name to contain a comma. Any suggestions on how to create a CN name with scripting? Tag: Syntax Problem Tag: 159500
  - 15
    - Need to Display Heights of Individuals Corrcetly I Can Enter the Heights of Individuals Correctly and it goes into Databases Correctly. Examples 5'11", 5'9" and VWXYZ. When I go to Display them on the Page for the school district police department they display as: 5'1, 5'9 and VWXYZ. Does Anyone know why is the Double Quote " Will Not display? Thanks in Advance Bill Barber Tag: Syntax Problem Tag: 159499
  - 16
    - newbie:arays in active x scripts We are trying to import a binary file to a database table based on logic.To do so, I am using stream functions and read the data into an array .How do I read the array containing byte data .Here is an part of the script : Dim CDTable Dim s Dim Buffer Dim version Dim FileName Function Main() fname="C:\Documents and Settings\Pooja\Desktop\ConvergentGDRQ_05011200.CDR" Set s = CreateObject("ADODB.Stream") Const adTypeBinary = 1 'Open up the table for reading s.Open s.Type = adTypeBinary s.LoadFromFile (fname) 'Determine the version Buffer=s.Read(4) 'This part gives me error "type mismatch ' . It does not accept Buffer(0) or anything. If (buffer(0) = CByte(0) And buffer(1) = CByte(3) And buffer(2) = CByte(0) And buffer(3) = CByte(0)) Then version = 1 Else version =0 End If Main = DTSTaskExecResult_Success End Function Thanks, Pooja Tag: Syntax Problem Tag: 159495
  - 17
    - PSEXEC fails when doing a NetStat inside a vbscript I am trying to run a netstat using psexec and wsh's WScript.Shell. I keep getting the following error: netstat.exe exited on ServerName with error code 1. If I run the exact psexec command from the command line on my machine(against another machine) it works just fine, but as soon as I embed the whole thing in vbscript I get the error above. Below is a summary of what I am doing. Any help would be greatly appreciated!!! Thanks. Mike command_exec = "psexec.exe" cmdNetStat = "-s netstat.exe -a " & Chr(124) & " find " & Chr(47) & "C " & Chr(34) & ":33569" & Chr(34) Set objStdOut = WScript.StdOut If WScript.Arguments.Count > 0 Then strComputer = WScript.Arguments.Item(0) Else strComputer = "." End If strPath = command_exec & " " & "\\" & strComputer & " " & cmdNetStat Set objWshShell = CreateObject("WScript.Shell") Set objExec = objWshShell.Exec (strPath) Set objStdOut = objExec.StdOut strResult = objStdOut.ReadAll WScript.Echo strResult Set objExec = Nothing Set objWshShell = Nothing Set objStdOut = Nothing Tag: Syntax Problem Tag: 159493
  - 18
    - Killing a Shelled Oracle SQLPlus Process I have a VBS script running as a scheduled task once a minute on a Win2K server which connects to a database (populated from an intranet site) and checks for new jobs to run in Oracle SQLPlus. My job table looks like this: JOB PROCESSED SUBMITTED_BY ============================================= interface1.sql Y user1 interface1.sql Y user2 interface2.sql Y user2 interface1.sql N user1 The idea is that if an outstanding job is found (PROCESSED = N) then the script processes it by running the following function and passing the name of the JOB (SQL file) to it. Function processRequest(jobName) Dim wshShell On Error Resume Next Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.Run "SQLPLUS user/password@database @" & _ jobName, 0, True Set wshShell = Nothing If err.number = 0 Then processRequest = True Else processRequest = False End If On Error Goto 0 End Function After the job is processed (usually 2 or 3 seconds) the job is flagged as process and the user is sent an email. This all works fine. HOWEVER! The problem I have with it, is that if I pass it a Job that doesn't exist or is full of crap (for testing) I get two process that sit there doing nothing (WScript and SQLPLUS.EXE) and the whole script stops. The WScript process gets killed after 1 minute by the task scheduler automatically, but the SQLPLUS.EXE process never gets killed unless I go in and kill it manually. I am therefore trying to find a way to avoid this so that the script can manage itself. Does anyone have any suggestions on how this could be done? Or is there anyway I can monitor SQLPlus to see if its stopped, or force it to close? TIA, Colin Tag: Syntax Problem Tag: 159488
  - 19
    - How to automate data input to Word template with VBScript Can someone tell me how to use VBScript to populate a word document with data automatically? Im putting a legal template together with a bunch of contract stipulations and I'd like to be able to popup a window and have each item be able to be checked by the user, then all items with a check mark are sent to a new legal template and populated in the appropriate sections of the template using Word bookmarks. I've sucessfully used the Doc.Bookmark object to get data from the user via Input boxes and populate a Word template, but popping up windows with each contract item and asking the user yes/no if they want to include it would be messy. Any help would be most appreciated, thanks in advance! Randy randy-george@comcast.net Tag: Syntax Problem Tag: 159481
  - 20
    - database access error I am trying to access database from VBScript, just want to append a record I have setup my dsn TC to point to taget database (\\...\....mdb). I used following code and it says "Error, obejct requrited" table name is "TC_Area" and field names are "TC_Area_Number", and "Area Name" Set conn = Server.CreateObject("ADODB.Connection") 'conn.Open "DSN=TC;uid=;pwd=" SQLStmt = "INSERT INTO TC_Area (TC_Area_Numbe, Area Name)VALUES('02','My test')" Set RS = conn.Execute (SQLStmt) set rs = nothing conn.Close set conn=nothing Thanks Tag: Syntax Problem Tag: 159476
  - 21
    - Problem reading a DWORD key in XP I am trying to retrieve the current value of the ExplorerFlags entry, which is either 16 or 34 in decimal. But the result I get with the code below is always 0! Any help would be much appreciated. TIA Phil KeyToRead = "HKCR" SubKey = "\Folder\shell\open\ExplorerFlags" WshShell.PopUp KeyToRead & SubKey ' = HKCR\Folder\shell\open\ExplorerFlags ValueToRead = WshShell.RegRead(KeyToRead & SubKey) WshShell.PopUp ValueToRead ' return 0 instead of either 16 or 34 Tag: Syntax Problem Tag: 159474
  - 22
    - VBScript how to call different pages I'm writing a VBScript - all is going good, but it is getting extremely long. I would like to know how I can "break up" some of this code. There are some parts of it that I would like to put in a different page. ---page1.vbs dim intCNT intCNT = 6 call page2.vbs (pass variable intCNT to page2.vbs) handle returned value from page2.vbs ---page2.vbs MsgBox "hi - I'm here on page2.vbs" & intCNT intCNT = 15 return back to page1.vbs (return "new" value of intCNT) Can anyone show me what I will need to do to accomplish this? Thanks in advance... Tag: Syntax Problem Tag: 159470
  - 23
    - Help! How do i make this wav file play until stopped? I have this script which makes a wav file play whenever somethign is printed. Now I need it play that wav file over and over until someone presses "OK" or hits stop or something. Can anyone modify my code so that happens? Please help thanks. Here is my script: ***************************** Option Explicit Dim strComputer, strTargetPrinter, strWaveFile, i, j, LoopVariable Dim objWMIService, objPrintQueue, colPrintQueues, objShell Const PAUSETIME = 500 strTargetPrinter = "LABSTAT" strWaveFile = "c:\statlabelsoundscript\buzzer.wav" LoopVariable = 1 Do Until LoopVariable = 0 strComputer = "LABDESK" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colPrintQueues = objWMIService.ExecQuery _ ("Select * from Win32_PerfFormattedData_Spooler_PrintQueue Where Name = '" & strTargetPrinter & "'") For Each objPrintQueue in colPrintQueues If objPrintQueue.Jobs <> "0" Then Set objShell = CreateObject("Wscript.Shell") objShell.Run "sndrec32 /play /close """ & strWaveFile & """",0,True Set objShell = Nothing Wscript.Echo "Name: " & objPrintQueue.Name Wscript.Echo "Current jobs: " & objPrintQueue.Jobs End if NEXT Wscript.Sleep PAUSETIME LOOP ********************************************8 Tag: Syntax Problem Tag: 159469
  - 24
    - "Potential Scripting Violation" pop-ups for Dig. Certificates Hi I am trying to write a script, that would involve issuing certs. Whenever a cert is issued a 2 windows pop-ups entitled "Potential Scripting Violation" always appear. I am wondering if the title of this box suggest it impossible to script issuing certificates, or whether it is possible through act to somehow sendkeys to select yes on these dialogs. Thank You Tag: Syntax Problem Tag: 159468
  - 25
    - Arjen Jongeling, een oude bekende Hoewel, Arjen Jongeling is hier nog nooit geweest en ik denk dat Arjen Jongeling hier ook nooit meer zal terugkomen. Sterker nog, Arjen Jongeling zit hier helemaal fout. Maar ja, het doet het goed in de Google archieven. Tag: Syntax Problem Tag: 159467

I have a previous page where I have to create the field names. Everything work sperfect except when I go to request the data on the next page. The field I am creating is a checkbox field.

I need to know if I can do what I am trying to do? I have been at this for about 15 days straght.

I am a teacher who does a little VB programming, but very little ASP.

Here is my code

IX = IX + 1
NameOfField = "FL" & IX
ZZ = Request'"( & "NameOfField" & )'" 
Response.Write "This is FL7 " & Request("FL7") & " " & "| " & ZZ & " |" & NameOfField 

Thanks a Lot for any constructive help.

Tony

Top

Re: Syntax Problem by Chris

Chris
Sun Jun 20 20:09:59 CDT 2004

ZZ = Request(NameOfField) 

No need for the string delimiters since NameOfField is a variable with a string value.

and .. for your own sanity I suggest choosing a better naming convention for variables such as
Hungarian notation:

[scope][type][Name]

giving:

Dim plngCounter
Dim pstrFieldName
Dim pvarValue

plngCounter = plngCounter + 1
pstrFieldName = "FL" & plngCounter
pvarValue = Request(pstrFieldName)
Response.Write "This is FL7 " & Request("FL7") & " " & "| " & pvarValue & " |" & pstrFieldName

You should also use Option Explicit as the first line of ASP code to ensure that all variables are
dim'd before being available for use - cuts down on accidental misnamed variables.

Cheers,

Chris.

"Tony" <Tony@discussions.microsoft.com> wrote in message
news:C2B86D1A-0EB2-4359-BABC-53A485F06B7F@microsoft.com...
I have a previous page where I have to create the field names. Everything work sperfect except when
I go to request the data on the next page. The field I am creating is a checkbox field.

I need to know if I can do what I am trying to do? I have been at this for about 15 days straght.

I am a teacher who does a little VB programming, but very little ASP.

Here is my code

IX = IX + 1
NameOfField = "FL" & IX
ZZ = Request'"( & "NameOfField" & )'" 
Response.Write "This is FL7 " & Request("FL7") & " " & "| " & ZZ & " |" & NameOfField 

Thanks a Lot for any constructive help.

Tony

Top