reset default home page

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
    - 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: reset default home page Tag: 169134
  - 2
    - 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: reset default home page Tag: 169119
  - 3
    - 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: reset default home page Tag: 169117
  - 4
    - 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: reset default home page Tag: 169115
  - 5
    - 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: reset default home page Tag: 169107
  - 6
    - 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: reset default home page Tag: 169106
  - 7
    - deactive service Hi, How coluld we do, via script, in order to deactivate the mensenger service concerning windows 2000 pro? thank's Tag: reset default home page Tag: 169102
  - 8
    - 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: reset default home page Tag: 169096
  - 9
    - 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: reset default home page Tag: 169092
  - 10
    - 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: reset default home page Tag: 169079
  - 11
    - get time on a remote machine Probably dumb question, but how do I get the time on a remote machine using vbscript? Tag: reset default home page Tag: 169075
  - 12
    - 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: reset default home page Tag: 169066
  - 13
    - 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: reset default home page Tag: 169064
  - 14
    - 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: reset default home page Tag: 169060
  - 15
    - 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: reset default home page Tag: 169059
  - 16
    - 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: reset default home page Tag: 169058
  - 17
    - Lock Keyboard and Mouse Anyone knows how to lock them without any component like AutoIT? thnx -- CHIN@KD www.racingclub.com.ar Tag: reset default home page Tag: 169055
  - 18
    - 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: reset default home page Tag: 169047
  - 19
    - 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: reset default home page Tag: 169045
  - 20
    - 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: reset default home page Tag: 169042
  - 21
    - 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: reset default home page Tag: 169038
  - 22
    - 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: reset default home page Tag: 169037
  - 23
    - 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: reset default home page Tag: 169035
  - 24
    - 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: reset default home page Tag: 169032
  - 25
    - 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: reset default home page Tag: 169027
- Next
  - 1
    - 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: reset default home page Tag: 169025
  - 2
    - 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: reset default home page Tag: 169023
  - 3
    - 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: reset default home page Tag: 169015
  - 4
    - 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: reset default home page Tag: 169011
  - 5
    - 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: reset default home page Tag: 169010
  - 6
    - 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: reset default home page Tag: 169002
  - 7
    - *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: reset default home page Tag: 169001
  - 8
    - 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: reset default home page Tag: 168998
  - 9
    - 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: reset default home page Tag: 168997
  - 10
    - 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: reset default home page Tag: 168995
  - 11
    - 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: reset default home page Tag: 168990
  - 12
    - Can you debug scripts with VB.net 2003 Thanks Tag: reset default home page Tag: 168983
  - 13
    - 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: reset default home page Tag: 168980
  - 14
    - 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: reset default home page Tag: 168978
  - 15
    - 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: reset default home page Tag: 168975
  - 16
    - 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: reset default home page Tag: 168971
  - 17
    - 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: reset default home page Tag: 168966
  - 18
    - convert .vbs to .exe I searched around for some program to convert .vbs to .exe files. Is it possible? Tag: reset default home page Tag: 168964
  - 19
    - 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: reset default home page Tag: 168962
  - 20
    - 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: reset default home page Tag: 168961
  - 21
    - 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: reset default home page Tag: 168957
  - 22
    - GPO / local script conflicting results. Hi all - I have a problem that has me foxed. I want to run a script that will display all the software installed on a PC (software installed using Windows installer). When I run the same script as a GPO policy on a PC, and then run an almost identical version on the PC itself, I get slightly different results. The GPO version doesn't show that AcrobatReader50 is installed. Here is the script that I ran locally and using a GPO. I only changed the path of the text file that is created. -------------------------------------------- Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("d:\log\gpo.txt", True) strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Product") objTextFile.WriteLine "---" & "Name" & " " & "Install State" For Each objSoftware in colSoftware objTextFile.WriteLine objSoftware.Name & "---" & objSoftware.InstallState & "---" Next objTextFile.Close ------------------------------------------------ Results from the script run on a local PC. (software.txt) ---Name Install State AcrobatReader50---5--- LotusNotes506a---5--- Adobe Reader 6.0.1---5--- Microsoft Office 2000 SR-1 Premium---5--- Microsoft Office 2000 Professional---5--- WebFldrs---5--- OracleSQLNet816---5--- ------------------------------------------------ Results from the script run as a GPO (gpo.txt) ---Name Install State LotusNotes506a---5--- Adobe Reader 6.0.1---5--- Microsoft Office 2000 SR-1 Premium---5--- Microsoft Office 2000 Professional---5--- WebFldrs---5--- OracleSQLNet816---5--- Thanks ! Tag: reset default home page Tag: 168949
  - 23
    - Server.Transfer Vs. Response.Redirect... to... \\209.11.22.33\MyDir Ok, I give up... why do 1-4 work fine... but 5-6 give "can't find" errors? 1. Client-side VBscript code: call navigate("\\209.11.22.33\MyDir") 2. Client-side VBscript code: location.href ="\\209.11.22.33\MyDir" 3. Typing "\\209.11.22.33\MyDir" into my ie6 browser. 4. Typing "\\209.11.22.33\MyDir" into my Windows Explorer. 5. Server-side ASP: server.transfer "\\209.11.22.33\MyDir" 6. Server-side ASP: response.redirect \\209.11.22.33\MyDir" How do I make it redirect? Thanks. Tag: reset default home page Tag: 168944
  - 24
    - Map drive letter to WebDAV We have a Novell cluster that is Web Dav enabled that we want to map a drive letter to the Web Dav location for the user either as they log in, or an icon on their desktop. I searched high and low, and did see a good way to do this. I thought about using a VBS script to map the drive letter. Even if I have to prompt them for their password and use the username they log in with by pulling it, that would be fine as well. Does anyone know of a way to do this? Thank you, Matthew Tag: reset default home page Tag: 168938
  - 25
    - vbscript create dsn - Default Login Name Hi, I'm successfully creating a new DSN using vbscript, but I can't get it to set the default Login name. The default login can be found in the odbc administrator under the advanced tab. I don't want to have to enter that in manually on users computers/ Here's a section of my code: [code] 'WshShell.RegWrite RegEdPath & "Database" , DatabaseName WshShell.RegWrite RegEdPath & "Description" , Description WshShell.RegWrite RegEdPath & "Driver" , DriverPath WshShell.RegWrite RegEdPath & "LastUser" , "UID" 'WshShell.RegWrite RegEdPath & "Server" , Server WshShell.RegWrite "HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName , DriverName [/code] The user I'm trying to use as the default login is - UID Thanks for your help Tag: reset default home page Tag: 168937

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

Top

Re: reset default home page by Steven

Steven
Thu Jan 27 15:28:15 CST 2005

Tm90IHN1cmUgYm91dCBhIFZCUyBvbmUsIGJ1dCBoZXJlJ3MgYSBjb3VwbGUgSlMgb25lJ3MgZm9y
IHlvdS4NCg0KSUUgNS4wIGNvbXBhdGlibGUgKGRlZ3JhZGVhYmxlLCBhcyB3ZWxsKToNCmh0dHA6
Ly9qYXZhc2NyaXB0LmludGVybmV0LmNvbS9taXNjZWxsYW5lb3VzL3NldC1ob21lLXBhZ2UuaHRt
bA0KDQpJRSBjb21wYXRpYmxlIChOUyB1c2VycyBzZWUgYW4gYWxlcnQgbWVzc2FnZSk6DQpodHRw
Oi8vamF2YXNjcmlwdC5pbnRlcm5ldC5jb20vY29va2llcy9ib29rbWFyay1yZW1pbmRlci5odG1s
DQoNCi0tIA0KDQpSZWdhcmRzDQoNClN0ZXZlbiBCdXJuDQpVciBJLlQuIE1hdGUgR3JvdXANCnd3
dy5pdC1tYXRlLmNvLnVrDQoNCktlZXBpbmcgaXQgRlJFRSENCiJSYXkgTWFhcyIgPG1hYXNAZWds
aW4uYWYubWlsPiB3cm90ZSBpbiBtZXNzYWdlIG5ld3M6ZVEjdk9wS0JGSEEuMzQxNkBUSzJNU0ZU
TkdQMDkucGh4LmdibC4uLg0KfCBJIHdhbnQgdG8gcHV0IG9uZSBvZiB0aG9zZSBidXR0b25zIG9u
IG91ciBvcmdhbml6YXRpb24ncyB3ZWJzaXRlIHRoYXQgc2F5cw0KfCAibWFrZSB0aGlzIHBhZ2Ug
eW91ciBkZWZhdWx0IGhvbWUgcGFnZSIuDQp8IA0KfCBEb2VzIGFueW9uZSBoYXZlIGEgdmJzY3Jp
cHQgdG8gZG8gdGhhdD8NCnwgDQp8IFRoYW5rcyBpbiBhZHZhbmNlLA0KfCBSYXkgTWFhcw0KfCAN
CnwgDQo=

Top