DLookup

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
    - Create Dialup Networking entry Hi, I'm looking for a way to create a dialup networking entry using vbscript. The reason is to automate the setup of a workstation that requires such an entry. Is there any reference that anyone knows, or has done it before and can give me some ideas? Any help is most appreciated. Cheers, Les -- Les Landau LanNet Services landaul@ozemail.com.au Tag: DLookup Tag: 169150
  - 2
    - adding values to Drop Down box ???? Hi, i have a drop down box in ASP page and i was wondering how to add values to it at page load. i want to use VbScipt to add values to the drop down list. Please help..... Thanks Tag: DLookup Tag: 169145
  - 3
    - MsgBox Question I have the following script and at the end I want to prompt the user with a MsgBox to validate their entries. Two things: 1) How do I pass the values they entered into the msgbox? 2) I have added the yes/no option buttons but don't want cancel to be included. I want the yes button to end the script as it does, but if they select no, I want the script to run from the top. Here is my mess Dim strReturnVal1, strReturnVal2, strReturnVal3, strName, strKeyName, strType Dim g_objShell :Set g_objShell = createobject("WScript.Shell") Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\LLNL" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\DOE #" strtype = "REG_SZ" GetUserInput strReturnVal1 '//Add your code here to put strReturnVal1 into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal1,strType ' User Input Function Sub GetUserInput(strReturnVal1) Dim strChoice1 strChoice1 = InputBox("Please input Machine DOE #") If strChoice1 = "" Then 'Flag an Error is Null strReturnVal1 = "BAD Usage" else strReturnVal1 = strChoice1 end if End Sub strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\Building" strtype = "REG_SZ" GetUserInputa strReturnVal2 '//Add your code here to put strReturnVal into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal2,strType ' User Input Function Sub GetUserInputa(strReturnVal2) Dim strChoice2 strChoice2 = InputBox("Please input Building #") If strChoice2 = "" Then 'Flag an Error is Null strReturnVal2 = "BAD Usage" else strReturnVal2 = strChoice2 end if End Sub strName = "HKEY_LOCAL_MACHINE\SOFTWARE\LLNL" 'Change path to correct location. strKeyName = "\Room" strtype = "REG_SZ" GetUserInputb strReturnVal3 '//Add your code here to put strReturnVal3 into reg! g_objShell.RegWrite strname & strKeyName, strReturnVal3,strType ' User Input Function Sub GetUserInputb(strReturnVal3) Dim strChoice3 strChoice3 = InputBox("Please input Room #") If strChoice3 = "" Then 'Flag an Error is Null strReturnVal3 = "BAD Usage" else strReturnVal3 = strChoice3 end if End Sub Dim MyVar MyVar = MsgBox ("Is the data you entered correct?" & vbcrlf & "DOE #" & vbcrlf & "Building #" & vbcrlf & "Room #",67,"CMS ISTeam") Tag: DLookup Tag: 169144
  - 4
    - reset default home page I want to put one of those buttons on our organization's website that says "make this page your default home page". Does anyone have a vbscript to do that? Thanks in advance, Ray Maas Tag: DLookup Tag: 169136
  - 5
    - Recursive script doesn't like spaces? Hi folks, I have a handy script that recursively searches and then prints file names within directories and their subdirectories. Unfortunately, the script bombs sometimes...I "think" (because I'm new to scripting) that it doesn't like directories with spaces or special characters in their names. Suggestions? Here's the script below. Thanks, Craig Set objFSO = CreateObject("Scripting.FileSystemObject") Set textfile = objFSO.CreateTextFile("c:\filelist.txt", True) strComputer = "." strDrive = "c:" 'NOTE: If you want to, you can provide a directory (like WINNT, etc.) below in the 'parenthesis or leave it blank to search your whole hard drive! strPath = "" 'Use double backslashes in path if necessary strPathAlt = Replace(strPath, "\\", "\") strName = strDrive & "\" & strPathAlt Set objWMIService = GetObject("winmgmts:\\" & strComputer) textfile.WriteLine strName Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '\\" & strPath & "\\'") For Each objFile in colFiles textfile.WriteLine objFile.Name Next Set colFolders = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strName & "'} " & "WHERE AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent") For Each objFolder in colFolders textfile.WriteLine objFolder.Name strFolderPath = Replace(objFolder.Path, "\", "\\") strFilePath = strFolderPath & objFolder.FileName & "\\" Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '" & strFilePath & "'") For Each objFile in colFiles textfile.WriteLine objFile.Name Next ShowSubFolders objFolder.Name Next Sub ShowSubFolders(strSubFolder) Set colSubFolders = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strSubFolder & "'} " & "WHERE AssocClass = Win32_Subdirectory " & "ResultRole = PartComponent") For Each objSubFolder in colSubFolders textfile.WriteLine objSubfolder.Name strSubFolderPath = Replace(objSubFolder.Path, "\", "\\") strSubFilePath = strSubFolderPath & objSubFolder.FileName & "\\" Set colSubFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Drive = '" & strDrive & "' AND Path = '" & strSubFilePath & "'") For Each objSubFile in colSubFiles textfile.WriteLine objSubFile.Name Next ShowSubFolders objSubFolder.Name Next End Sub textfile.Close wscript.echo "Done. Have a nice day!" Tag: DLookup Tag: 169134
  - 6
    - logoff.vbs Hi all, I'm trying to find the vbs script written by MS to allow you to log users off remote machines using alternative credentials. Does anyone know where I can find it? I'm using Windows 2000/XP and I've looked through all the resource kits I have! I just can't find it anywhere... I beginning the think it doesn't exist! ;) Any help is much appreciated. Tag: DLookup Tag: 169119
  - 7
    - is it possible to read "volatile environment" regkey in HMCU? Is it possible to read "volatile environment" regkey in HMCU? I need to get the LOGONSERVER off of a remote machine and I cant get Microsofts example WMI script to work, so I figured I would try and read it from the registry. I can seem to get that to work either though, returns nothing. I can read other stuff in HMCU, just not out of the "volatile environment" portion of the registy. Tag: DLookup Tag: 169117
  - 8
    - STDERR and STDOUT redirection from within a vbs script Hello, I have to use some vbs script, lauching them from within another application i'm coding in err ... another language :) Is there a simple way to force redirection of STDOUT and STDERR from within the vbs script ? That is I'm looking for some instructions to add at the begining of the vbs script, that will take 2 filenames as arguments and afterwards redirect the stderr and stdout to these files. The point here is that i do not want to use some command line redirection . Also, i do not want to mess with the rest of the script, i just want the standard streams to be redirected. I have zero vbs knowledge so i really do not know if this question is stupid or if it's even possible. Thanks a lot if someone can help, Dav' Tag: DLookup Tag: 169115
  - 9
    - Browse window Hi all, i m opening an internet explorer app , and have to upload a file in FILE FIELD , i can do the click on BROWSE button, but how can i navigate on the browse window to find the file i want to upload ? ( i know the full path of it ) Thnx !! -- CHIN@KD www.racingclub.com.ar Tag: DLookup Tag: 169107
  - 10
    - Log Parser command question Using Microsoft Log Parser 2.2 on Windows 2000 Advanced Server. I'm searching the Application event log on a remote server for records which contain the keywords "NTP" and "privilege" in the Description. The following command works fine: LogParser -i:EVT -o:NAT "SELECT TimeGenerated, EventTypeName, EventID, SourceName, Message FROM \\MyServer\Application WHERE Message Like '%NTP% %privilege%'" What I need to do is use the WHERE clause to return records from today's date, or a given date. Any suggestions on how I can add that function in to the above command? Thanks in advance. Tag: DLookup Tag: 169106
  - 11
    - deactive service Hi, How coluld we do, via script, in order to deactivate the mensenger service concerning windows 2000 pro? thank's Tag: DLookup Tag: 169102
  - 12
    - configure SNTP Hi, I'm looking for a little VB script to change the sntp server address on a bunch of Windows 2000 and 2003 Server (change from something to "nothing", like "net time /setsntp ", so that all Server will contact the DC with the PDC FSMO Role. Any idea? thanks Christian Tag: DLookup Tag: 169096
  - 13
    - Setting Timeout in Registry I know that I can set the No timeout for a script by adding the /T:0 to my cscript.exe command line, but I have a canned piece of software which allows you to call a script, but does not allow parmeters and it times out. Is there a registry entry that I can put in that cscript will look at to turn off timeouts. -- Marc Rosson Tag: DLookup Tag: 169092
  - 14
    - Collecting Windows NT 4.0 events I know its old and out of date but unfortunatley we have gotten rid of almost every nt 4.0 server. But unfortunately the ones that are will be here for a little bit longer. I am somewhat of a newbie so please bare with me. I am interested in collecting event og messages from my remaining nt 4.0 server. WMI may not be installed. Is there a way to collect the nt events from the system log and the application log without using WMI. Paul Tag: DLookup Tag: 169079
  - 15
    - get time on a remote machine Probably dumb question, but how do I get the time on a remote machine using vbscript? Tag: DLookup Tag: 169075
  - 16
    - MsgBox within Sub I am using MsgBox within a sub, and then I begin a new sub and am using MsgBox again. When I run the script, the MsgBox always displays the heading listed in the last sub section listed. What am I doing wrong??? Tag: DLookup Tag: 169066
  - 17
    - ASP classic on Windows 2003 Web Edition Hi everyone, Here is my dilemma; We had a Windows 2000 domain server with Exchange and all that and I had a Windows 2003 Web edition server on the domain. I used ASP classic (the non-dotnet kind) to access domain objects with getobject("WinNT://"... stuff. When the domain server was upgraded (after format) to 2003, getobject now reports a permission denied. Does 2003 lock out ASP classic from the WinNT:// objects and other ADSI objects? How can I rectify this situation? Please advise. Thanks, Jim Tag: DLookup Tag: 169064
  - 18
    - Loading mulitple files Below is an example of gathering informtion from a xml file. The file is a template with stored values that will be used for comparision. Now that I have my intitial values how can I look at a directory with multiple xml files and do a verify that the template values match each xml files value. I kinda of an idea how to approach but not sure with vbscript. I think I need to add another For Each statement to grab all the files in some directory. Then open each xml file and grab the xml data the same way as below. Where I am getting confused is when I open a xml from directory and grab values is actually comparing the template data to the xml file opened. I planned on creating a error log everytime I read thorugh an xml and the versions do not match template. The directory where all the xml files are located are named ComputerName.xml. Computername is unique. Since the xml is read from first record to end, I thought maybe doing some IF statement on the version number. This is the Output of the date. Application = ADS Version 2.7 Application = State City 3.9.0 Application = RCS 9.11.0 Application = Release 3.5.009 Application = Web 5.13.0 ============================================================================ ==================== sFilePath = "C:\Production_Versions.xml" sXPath = "/Store/Application" Set oXMLDoc = CreateObject("MSXML2.DOMDocument") oXMLDoc.SetProperty "SelectionLanguage", "XPath" oXMLDoc.Async = False oXMLDoc.Load sFilePath If (oXMLDoc.parseError.errorCode <> 0) Then Set oErr = oXMLDoc.ParseError WScript.Echo "Could not load file " & sFilePath _ & " , error: " & oErr.Reason WScript.Quit End If Set objApps = oXMLDoc.DocumentElement.SelectNodes(sXPath) For Each oApp in objApps strApplication = oApp.getAttribute("Name") intVersion= oApp.getAttribute("Version") WScript.Echo "Application = " & strApplication & Space(1) & intVersion Next Tag: DLookup Tag: 169060
  - 19
    - VBScript to accept user input and write to registry Hello, I am trying to create a script that will accept input from a user (4 different values) and then write them to the registry. I have the portion of code completed to create the reg keys and strings but am having issues with asking the user for input then writing it to the location I just created. Any help would be greatly appreciated. Thank you, mint_fo@yahoo.com Tag: DLookup Tag: 169059
  - 20
    - Submit form results to access database and email form results. I'm very much a novice, but here is the scenario. I've used Frontpage XP to create a form that saves the results to an Access database. We can then access the results and edit them when needed using the Frontpage database editor. What I would like is for the confirmation page to email the results (or specific fields) from the form to our help desk so we can be notified when a new record has been added. I've just started experimenting with CDOSYS to automaticall email, but haven't been able to figure out how to pull the fields from the form into the email. I'm using a submit instead of post method with our form, is this part of the problem? Tag: DLookup Tag: 169058
  - 21
    - Lock Keyboard and Mouse Anyone knows how to lock them without any component like AutoIT? thnx -- CHIN@KD www.racingclub.com.ar Tag: DLookup Tag: 169055
  - 22
    - SENDKEYS + Batch Process Hi All!!!! as u could see in this subject, this is a little weird problem.. lol This is it: I created a .vbs file, it runs a batch process opening an Internet Explorer Window, logs in an external website , and upload a file from this comp ( where i have the vbs file ) The first problem i had : when i navigate a HTTPS URL , it ask for the certificate window and i had to click YES manually .. so i used the SENDKEYS to send 2 TABs and one ENTER to step over that window.. it worked The second problem : On the upload page, i had to browse the file to upload. HTML doesnt let u write in a FILE control Value. So i used again the SENDKEYS to send the full path of the file to upload. It worked. Now the Actual Problem : this computer has to be locked while the process runs.. so.. the sendkeys doesnt work becouse the focus it s on the windows login window. Anyone has another idea to do what i m trying ?? thnx !! and sorry for my poor english.. PS: i cant modify the upload web site -- CHIN@KD www.racingclub.com.ar Tag: DLookup Tag: 169047
  - 23
    - Can I reach in and touch entries in a Shell.Open window? Dim Shell, wsh Set wsh = Wscript.CreateObject("Wscript.Shell") Set Shell = Wscript.CreateObject("Shell.Application") Shell.Open "D:\Documents and Settings\dont\Local Settings\Temporary Internet Files" Works, wonderful! Now, is there some way in the script I can reach into that window, grab a row of information at a time, get it into a variable, and then reach back in and delete an item if it matches my criteria? Since TIF is a "virtual folder" I can't find any way that the usual file system access tools will let me see this information and be able to access the files later for deletion. Thanks Tag: DLookup Tag: 169045
  - 24
    - WMI VS. Security I need to know if I understand the thematic ( WMI vs. Security) because I've to query domain controller ... To enable that someone can get responds to WMI queries I've to enable the remoteWMI on the domain controller, right? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/securing_a_remote_wmi_connection.asp From the machine I want to ask from, I can tune up the connection to be secure as possible: 1. Useage of default authentication and impersonation level which provides WMI to specify the manner in which the queries should be transmitted and what will do the queries ... and to help COM how much security is needet to access the process on the client machine, right? So best solution will be if I use "PktIntegrity" as AuthenticationLevel and "Impersonate" as ImpersonationLevel. ?? http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_default_process_security_level_using_vbscript.asp?frame=true 2. To use Kerberos as authentication protocoll to specify the authentication method http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_authentication_service_using_vbscript.asp?frame=true Please give me feedback if I've understand it - or not .... ... the only message to transport the query and response encrypted is to use PktPrivacy? Many thanks in advanced Juan Tag: DLookup Tag: 169042
  - 25
    - Intellisense and WSH objects Hi all, Anyone knows a way to "register" WSH and FileScripting Objects for Visual Studio 2003 use intellisense technology with it? Thanks. Pedro L. Tag: DLookup Tag: 169038
- Next
  - 1
    - Print File I am interesting in allowing the user to select some information from a web form ... and then based on that input perform was database queries and then print a job to a windows queue. I 'googled' on many topics to determine how best to perform the print portion of this - but had no luck. I'm contemplating taking the user's input, query the database and then create the appropriate xml to send to the queue. The queue is being monitored and can utilize the xml to print the job appropriately. If anyone has any pointers towards printing a file to a windows queue from a web site (server side) I would be most appreciative. BBB Tag: DLookup Tag: 169037
  - 2
    - Device I/O Error when adding a component? 'After doing: 'Set objExcel = CreateObject("Excel.Application") 'Set abook = objExcel.Workbooks.Open(NameFile)" earlier in the program 'The following line gives me an error at runtime: Set xlmodule = abook.VBProject.VBComponents.Add(1) Does anyone have any idea why and how that line could give me an error 57: Device I/O error ??? Tag: DLookup Tag: 169035
  - 3
    - WMI Getting Network Bandwidth for Specific NIC I'm looking to get the Bytes per/sec from a specific NIC, right now i'm pulling BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface. This works great, but it brings back all NICs, how do i choose which NIC I want? My code is: Set ColItems = objWMIService.ExecQuery("Select BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface") For Each objItems in colItems Wscript.Echo "Network Bandwidth: " & objItems.BytesTotalPersec Next Thanks Glenn Tag: DLookup Tag: 169032
  - 4
    - Setting Proxy server in RAS connections Hi there, We currently have a requirement to set (via a VB Script) the Proxy server name / port for dialup connections on a PC. So far, I wrote a script to find the names of the RAS connections on the PC, but am unsure where the proxy server setting is for the each connection. I've searched the registry, and it isn't in the RAS phonebook file. Can anyone shed any light on where this setting is stored? Your help is most appreciated, Simon Tag: DLookup Tag: 169027
  - 5
    - SP2 security problems Does anyone have a link to a thorough explanation of how to manage XP SP2 security for files? I sent a zip to a friend, with VBS files inside. He got a message that "some files were blocked" when he extracted the zip, and the VBS files were not extracted! It appears that I need to understand the various SP2 settings in order to dependably send files to others. And now I'm also wondering about downloaded zips with VBS inside. Is SP2 also hiding those from the user by default? _____________________________ mayayXXana1a@mindYYspring.com For return email remove XX and YY. _____________________________ Tag: DLookup Tag: 169025
  - 6
    - How do I get Author and Last saved By file props with vbscript HI All, I need to be able to determine the Author and Last Saved By Properties of a file from within VBScript. I already can get the name, path, filesize, etc that I need, but the remaining 2 I can't seem to find a reference for. Anyone have any ideas? Thanks Brian Tag: DLookup Tag: 169023
  - 7
    - What happened to microsoft.public.scripting.wsh ? To MS news server guy. I can't read msg in microsoft.public.scripting.wsh group. Other groups in news.microsoft.com is ok. I'm using Outlook experess 6 Tag: DLookup Tag: 169015
  - 8
    - VBS does not run in Schediled Task if user is not logged in runas I have a Win 2003 Server runnig the same script I was using On win 2000 Server. This script is set to run as a local admin and will only execute if the local admin is logged in. I have made a small script just to test this and it exibits the same issues. spin.vbs For i = 1 to 100000 next ST command line = c:\windows\system32\cscript.exe c:\temp\spin.vbs when this executes and the local admin is logged in the SCH Task GUI status indicates running while the script is spinning and the result = 0x0. BUT when another admin is logged in and teh ST executes Status stayes blank and result = 0x1. Conduting the same test with notepad both cases show Status running then result 0x0. I am lost any thoughts, is there a Cscript switch i am missing. -- thanks CranDev :) Tag: DLookup Tag: 169011
  - 9
    - Loading your settings failed Error message Right now I am receiving an the error: "Loading your settings failed (access is denied)" when trying to run a .vbs file. I have looked at other suggestions that stated to look at the HKLM\SOFTWARE\MICROSOFT\WINDOWS SCRIPT HOST permissions and all of the permissions are correct, meaning I am an administrator on this machine and administrators have full access to the registry key. Are there any other suggestions? Any help is greatly appreciated. Thanks, MC Tag: DLookup Tag: 169010
  - 10
    - access to stylesheet Hi, Does anyone know why I can't access the stylesheet in a document downloaded from the internet or if there's a workaround? Thnks, Elana for instance, <html> <head> <base href="http://www.some.com"> <style> body{background-color:lime} </style> </head> <body>  <script language=vbs> sub window_onload() 'produces access is denied error msgbox document.stylesheets(0).cssText end sub </script> </body> Tag: DLookup Tag: 169002
  - 11
    - *IMPORTANT* Message for Google Group, Usenet and AOL users! Good News! Do you know how simple it is to go to Heaven after this life has ended? Some people believe that belonging to a local church, temple, mosque or synagogue will get them to Heaven. Others believe that water baptism, obeying the ten commandments or just being a good person will get them to Heaven. There are many other beliefs as well, but the good news about God's way to Heaven is found in the Holy Bible. The good news is that God came from Heaven to earth in the person of Jesus Christ over 2000 years ago and died for our sins(misdeeds). He was born in the land of Israel supernaturally to a virgin Jewish woman named Mary. He lived a sinless life for thirty-three years and then sacrificed His sinless blood and died on a cross to pay the death penalty for our sins. After Jesus was placed in a tomb He rose from the dead three days later as He said He would. The Holy Bible also tells us that Jesus Christ ascended into Heaven and that all who accept Him as their Lord and Saviour will live forever with Him in Heaven where there is no more death, sorrow, sickness and pain. The Bible says, "For the wages of sin is death, but the gift of God is eternal life through Christ Jesus our Lord." (Romans 6:23) This verse in the Bible says, "For ALL HAVE SINNED, and come short of the glory of God." (Romans 3:23) This verse says, "But God demonstrates his own love for us in this: While we were still sinners, Christ died for us." (Romans 5:8) In this passage the Bible clearly explains how simple it is to be saved and on your way to Heaven, "For if you confess with your mouth, "Jesus is Lord," and believe in your heart that God raised him from the dead, you WILL BE SAVED." (Romans 10:9) You can be saved right now and on your way to Heaven if you will open your heart to Jesus and pray the following prayer: Dear Jesus Christ, I want to be saved so that I can have a home in Heaven when I die. I agree with You that I am a sinner. I believe You love me and want to save me. I believe that You bled and died on the cross to pay the penalty for my sins. I believe that You rose from the dead. Please forgive my sins and come into my heart and be my Lord and Saviour. Thank You Lord Jesus Christ for forgiving me and saving me through Your merciful grace. Amen. You are now a Christian if you said the prayer and allowed God to save you. Welcome to the family of God. Salvation is not a reward but a gift. The Bible says it this way, "For it is by GRACE you have been SAVED, through FAITH and this not from yourselves, it is the GIFT of God." (Ephesians 2:8) Nothing in the world is more important than your eternal destiny. The Bible says, "In Him(Jesus) we have redemption through His blood, the forgiveness of sins..." (Ephesians 1:7) If you have not yet made a decision to be saved, please do so now before it is too late. The reason why it is so important to be saved now is because you do not know exactly when you will die. You may die prematurely in a traffic accident, terrorist attack or some other way before you get another chance to be saved. The Bible tells us that we will spend eternity in Heaven or a place of eternal torment called Hell. It would be terrible to die and go to Hell when all you have to do is accept Jesus Christ as your personal Lord and Saviour. Some people that have already made Jesus Christ their Lord and Saviour worry about losing their salvation. The Bible teaches Christians that we can never lose our salvation no matter what happens. The Bible says it this way, "My dear children, I write this to you so that you will not sin. But if anybody does sin, we have one who speaks to the Father in our defense Jesus Christ, the Righteous One." Yes my friend, Jesus Christ is able to save you and keep you saved. Please tell your family and friends, thanks! Have a great day! Internet Evangelist R.L. Grossi 1. http://www.biblegateway.com << Free Online Bible 2. http://www.free-hoster.com/goodnews << Passion of the Christ 3. http://www.carm.org/cults/cultlist.htm << Beware Of Cults 4. http://www.equip.org/free/DH198.htm << About Hell 5. http://www.powertochange.com/questions/qna2.html << Is Jesus God? Tag: DLookup Tag: 169001
  - 12
    - VBA to VBScript - Sorting Hi, I recorded a macro in Excel and now I want to use it in VBScript. I am having a heck of a time to find any information on how to do a sort in Excel using VBScript... Range("A1:H227").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range ("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal Tag: DLookup Tag: 168998
  - 13
    - LDAP Getobject call Works in vbs file but not in an ASP file (IIS I have the following code in both a vbs file and in an asp file (switch Wscript.Echo with Response.Write). It works in the vbs file just fine. Spits out a nice little output to the screen and all is well with the world. Put this code in an ASP page on II6 (SAME SERVER) and I get a mysterious error code that I have found no information about. I'm stuck. Need help. Thanks in advance!!!! asp file <% ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Response.write("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Response.write("<p>Err.Number:" & Err.Number) Response.Write("<p>Err.Source:" & Err.Source) Response.Write("<p>Err.Description:" & Err.Description) Response.Write("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub %> vbs file ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Wscript.Echo("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Wscript.Echo("<p>Err.Number:" & Err.Number) Wscript.Echo("<p>Err.Source:" & Err.Source) Wscript.Echo("<p>Err.Description:" & Err.Description) Wscript.Echo("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub Tag: DLookup Tag: 168997
  - 14
    - know user windows Sorry about my english. How to know the "logged" user in w2000? My client wan to use the same windows'user and password in the page(intranet) If its possible i want to ask windows some like that: uid="myuserwindos" psw="mypasswordwindows" if idontknowwhatapifunctionwindows(uid,pasw) = true then Is possible?? Thank's -- -------------------------------------------------------------- Rene Moreno Monterrey, Nuevo Leon, Mexico "Estudio en la duda, Accion en la Fe" -------------------------------------------------------------- Tag: DLookup Tag: 168995
  - 15
    - Base64 Type Mismatch error Hello I'm trying to Base64 encode a buffer that I have in memory. So this means that I don't want to use the MS Stream object to read a file from disk. Originally I tried to do this same task in JavaScript but failed... I assumed it was because the oB64Node.nodeTypedValue takes a VT_Array. The following throws a type mismatch.. the CreateVBArray routine returns a VB Array of bytes. oB64Node.nodeTypedValue = CreateVBArray( buffer ) Any help would be greatly appreciated. If possible I would luv to be able to accomplish this same task in javascript. <SCRIPT LANGUAGE="VBScript"> doEncode( "Hi how are you" ) Function CreateVBArray( buffer ) Dim i, j, imax, chr Dim a imax = len(buffer) redim a (imax) i = 0 For j = 0 To imax chr = mid(buffer, j+1, 1) if( chr <> "" ) then a(i) = CByte(Asc(chr)) i=i+1 end if Next 'Shrink it... ReDim Preserve a(i-1) CreateVBArray = a End Function Function doEncode( buffer ) Dim oXML Dim oB64Node Set oXML = CreateObject( "Msxml2.DOMDocument.4.0" ) oXML.loadXML( "<?xml version='1.0' ?> <root/>") call oXML.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes") Set oB64Node = oXML.createElement("F") oB64Node.dataType = "bin.base64" ' This throws a type mismatch oB64Node.nodeTypedValue = CreateVBArray( buffer ) Set doEncode = oB64Node End Function </SCRIPT> Tag: DLookup Tag: 168990
  - 16
    - Can you debug scripts with VB.net 2003 Thanks Tag: DLookup Tag: 168983
  - 17
    - how do i set up.... a script that hyperlinks from an IP address to a cmd prompt that automatically pings it from an excel file i have an excel file with a list of IP addresses i want to create a hyperlink that: a. goes to a cmd prompt b. then pings the IP address that I clicked on anybody knows a good .bat file or a VB script that can do such a thing? -- Phil Network Admin Tag: DLookup Tag: 168980
  - 18
    - XML file I have created a template xml file, but unsure exactly how to read the values using vbscript. I want to read the Application Name and Version number and store in a varible to do a comparision. I was looking at xml language. I was thinking I needed to select the nodes Application name and enumerate thorugh all Application names. Then get the attributes for each Application Name. I just need some direction. <Versioning> <Application Name="IBDI Version" Version="2.7" ENVName="IBDIADSVERSION"/> <Application Name="State City" Version="3.9.0" ENVName="STATECITYVERSION"/> <Application Name="ICS" Version="9.11.0" ENVName="RCSVERSION"/> <Application Name="Release" Version="3.5.009" ENVName="RELEASEVERSION"/> <Application Name="Web" Version="5.13.0" ENVName="WEBVERSION"/> </Versioning> Tag: DLookup Tag: 168978
  - 19
    - Disconnect Printer If it exists Hi, I'm trying to do a login vbs script that deletes a printer if it exists on the machine. I can delete the printer if it exists OK, so that the first time a user logs on, all is well. However, the next time the script runs, I get an error stating: "This network connection does not exist" What I want to do is put an if exists statement around the deletion, so that if it isn't there, the script doesn't try to delete it. The script so far looks like: strPrinter="\\DC2\Development" Set WshNetwork = CreateObject("WScript.Network") Set WshShell = CreateObject("WScript.Shell") WshNetwork.AddWindowsPrinterConnection strPrinter WshNetwork.SetDefaultPrinter strPrinter MsgBox strPrinter & " Printer connected and set as the default printer" Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\DC2\Engineering" if Exists (PrinterPath) Then WshNetwork.RemovePrinterConnection PrinterPath, true, true MsgBox PrinterPath & " Printer Removed" MsgBOx "Default printer is now " & strPrinter End If This errors with a Type Mismatch: 'Exists' What am I missing her? Can anyone help? Thanks John Tag: DLookup Tag: 168975
  - 20
    - TypeText "---" TypeParagraph doesnt draw line Hi Im using VBScript to work with MS Word with Word.Application. It opens Word, writes some stuff, and saves the file. In Word, if you type --- and the press enter, it turns it into a line that goes right across the screen. How can I do this through automation? If I do.. oSel.TypeText "---" oSel.TypeParagraph ..all i get is "---". If i try and record a macro to see how it works, it doesnt do the line thing either! How can I draw this line across the page? Cheers Dan Tag: DLookup Tag: 168971
  - 21
    - Stepping through profiles Hi there, What im trying to do, is find a way to vbscript a change to internet explorer - but this is done for each user instead of local machine. The key I need to change appears twice in the registry.... (1) HKEY_USERS\S-1-5-21-653134347-1111155483-262303683-1232\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride (2) HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride I know that if I change this in HKEY_CURRENT_USER, it changes the HKEY_USERS entry for the account being used, but how can I make the change for ALL accounts that logon to the domain through a given PC? Any help would be massively appreciated, Simon Tag: DLookup Tag: 168966
  - 22
    - convert .vbs to .exe I searched around for some program to convert .vbs to .exe files. Is it possible? Tag: DLookup Tag: 168964
  - 23
    - how to check NULL data As no data on a MDB record, I want to show "No data!". Then how to check the NULL in the reading, for example; With RS data1 = RS.Fields("rec_data") ' Sometimes NULL there! If NULL=data1 Then data1="No data!" End If ----- ----- End With I have tried above, however the code doesn't work!! ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: DLookup Tag: 168962
  - 24
    - vbscript binary tree - help needed I tried converting the Binsry Tree sample VBA from http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvbadev/html/implementingbinarytree.asp to vbscript and am stumped. Does anyone have time to find what I did wrong? I get "runtime error: Object required" immediatly on "If ti Is Nothing Then" in the AddNode function. thanks LJB '----------------------------------------- Class TreeItem Public Value Public LeftChild Public RightChild End Class Class Tree Private tiHead 'done to reduce program stack space Private mfAddDups Private mvarItemToAdd Private Sub Class_Initialize() Set tiHead = New TreeItem End Sub Public Sub Add(varNewItem) mfAddDups = True mvarItemToAdd = varNewItem AddNode tiHead End Sub Public Function AddNode(ti) If ti Is Nothing Then Set ti = New TreeItem ti.Value = mvarItemToAdd Else If mvarItemToAdd < ti.Value Then Set ti.LeftChild = AddNode(ti.LeftChild) ElseIf mvarItemToAdd > ti.Value Then Set ti.LeftChild = AddNode(ti.RightChild) Else If mfAddDups Then Set ti.RightChild = AddNode(ti.RightChild) End If End If End If Set AddNode = ti End Function Public Sub WalkPostOrder() PostOrder tiHead End Sub Private Sub PostOrder(ti) If Not ti Is Nothing Then InOrder ti.LeftChild InOrder ti.RightChild wscript.echo ti.Value End If End Sub End Class Dim MyTree Set MyTree = New Tree With MyTree .Add 11 .Add 12 .Add 14 .Add 15 .Add 13 .WalkPostOrder End With Tag: DLookup Tag: 168961
  - 25
    - CDOsys and Addattachment CDOsys and addattachment works fine with word doc or excel. When i attach an pdf , it changes the file extension to dat. When de receiver changes the extension to pdf its an fine pdf. Can cdosys send pdf without changing it to a dat file . Tag: DLookup Tag: 168957

We have been using this Dlookup up throught Access2002 and it has worked
great. We upgraded some of our PCs to Access2003 and this code fails (a drop
down populates an adjacent textbox).

Private Sub PART_NAME_AfterUpdate()
Forms![ECOFORM]![PARTform]![PART NAME] = DLookup("[PartName]", "Parts", ,
"[PartNumber] = Forms![ECOFORM]![PARTform]![PART #]")
End Sub

I've tried re-writing it in various ways but haven't hit on the right
solution. Any suggestions?

Snowdog: Homer Lambrecht

Top

RE: DLookup by Snowdog

Snowdog
Tue Feb 01 10:35:03 CST 2005

When I copied the original from Access I ended up with an extra "," Sorry.

Here it is again:

Private Sub PART_NAME_AfterUpdate()
Forms![ECOFORM]![PARTform]![PART NAME] = DLookup("[PartName]", "Parts",
"[PartNumber] = Forms![ECOFORM]![PARTform]![PART #]")
End Sub

"Snowdog" wrote:

> We have been using this Dlookup up throught Access2002 and it has worked
> great. We upgraded some of our PCs to Access2003 and this code fails (a drop
> down populates an adjacent textbox).
>
>
> Private Sub PART_NAME_AfterUpdate()
> Forms![ECOFORM]![PARTform]![PART NAME] = DLookup("[PartName]", "Parts", ,
> "[PartNumber] = Forms![ECOFORM]![PARTform]![PART #]")
> End Sub
>
> I've tried re-writing it in various ways but haven't hit on the right
> solution. Any suggestions?
>
> Snowdog: Homer Lambrecht

Top