Looking for resources/archives of vb scripts?

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
    - Newbie question: GetObject & CreateObject hi, i want to execute this wmi code on an html page: Set objComputerSystem = GetObject("winmgmts:{impersonationLevel=impersonate}!root/cimv2").ExecQuery( "select * from Win32_ComputerSystem") For Each instanceComputerSystem In objComputerSystem Manufacturer = Trim(instanceComputerSystem.Manufacturer) Model = Trim(instanceComputerSystem.Model) ComputerName = Trim(instanceComputerSystem.Caption) RAM = CLng(((instanceComputerSystem.TotalPhysicalMemory) / 1024) / 1024) User = instanceComputerSystem.UserName User = Mid(User, InStr(1, User, "\") + 1, Len(User)) Next Set objComputerSystem = Nothing but of course i got an error (activeX component can not get an object) i tried with createobject, i changed security parameters but with no results. any idea please ? Javier Tag: Looking for resources/archives of vb scripts? Tag: 139794
  - 2
    - How to manage the "system" user Hi guys, I need to move the system user to a custom xp local group. I tried the normal method that applies to any ordinary local users but it does not seems to work. I had a look at MS technet site but found nothing regarding this issue. Does anybody know how to deal with this user ? Any help is appreciated ! Thanx Bar Tag: Looking for resources/archives of vb scripts? Tag: 139788
  - 3
    - Split domain from email add Hi, I need to extract the domain from any email address entered into my form. e.g. for someone@somewhere.com i want to be able to take the string and extract only the somewhere.com part to pass into a function. Can anyone please advise me of the best way to do this. Thanks in advance, Nev. Tag: Looking for resources/archives of vb scripts? Tag: 139779
  - 4
    - newbie question I have a task that is due soon. My question is: i have to copy certain files from nt 4 wks to a network share, then copy them back from the network share to the new workstation that will be xp. is there anything i need to worry about or be considered about? thanks for you help Thomas Tag: Looking for resources/archives of vb scripts? Tag: 139776
  - 5
    - trouble with process wscript.exe Hi, I have a big problem when i run my vbs script on several server (not all server). My script is automaticaly run every 1 hour. When i m looking in task manager, the process wscript.exe appear around 300 times ! So sometime the server crashs if i don't kill any process 'wscript.exe'. I enable the option "kill the script" about 600 second elapsed. Why this problem appear ? Please have you an idea ? Thanks in advance Arnaud Tag: Looking for resources/archives of vb scripts? Tag: 139775
  - 6
    - starting executable in login script I want to run an executable from a .vbs login script that starts up our virusscanner installation/update. What is the correct syntax to run an executable from this script? Thx. Tag: Looking for resources/archives of vb scripts? Tag: 139774
  - 7
    - Dazed and Confused.... Hi. I'm using an Access 2002 DB and ASP. For the purposes of this post, the simplied SQL statement in question is: UPDATE dbtable SET status=" & xstat (xstat is yes/no) The exact same code works just fine on at least a dozen different servers in the US. It's part of a common function I use all the time. I have a client in Brazil . When they run this code their server throws an error... Microsoft JET Database Engine erro '80040e10' Nenhum valor foi fornecido para um ou mais parâmetros necessários. (No value given for one or more necessary parameters) BUT, I'm 100% certain that the field names and types are correct, and as I said above, this code works fine on many servers in the US If I hardcode: UPDATE dbtable SET status=True... it works fine. If I hardcode: xstat=True SQLx="UPDATE dbtable SET status=" & xstat response.write SQLx The code fails with the error I mentioned... and the SQLx string looks like: UPDATE dbtable SET status =Verdadeiro (which means True in Brazilian) Go figure. Any ideas what I must do to have the Engine/database recognize the foreign language equivalent of True? Tim -- Posted via http://dbforums.com Tag: Looking for resources/archives of vb scripts? Tag: 139763
  - 8
    - Delete A File Using VBScript? I have a script (that I got from this group, thank you for this) that creats an Excel file from my an SQL statement. The problem is if the file already exists, it errors off. I would like to do just a 'blind' delete of the file so the Create doesn't error off. Is there a way delete a file in VBScript? Thanks Chris Tag: Looking for resources/archives of vb scripts? Tag: 139757
  - 9
    - Multithreading with script control? Hi all, I am developing a multi-threaded server-application in VB. (How this? I am using a C++ service that is instantiating VB-Objects on different threads...) I need to add scripting to my application. I am currently using the Script Control. Are there any issues running this control (which is not placed on a form but only created as an object instead) on several threads? Is it possible to implement the IActiveScriptSite interface in VB? I could not find a type library where this is defined. Thanks very much for your help! Matthias Moetje Tag: Looking for resources/archives of vb scripts? Tag: 139756
  - 10
    - Insert a line into a Txt file I want to be able to read a text file and find the line that reads: "Domain"="" Once found, I want to insert a line below it that reads: MTU=800 How do you write this in VB? Tag: Looking for resources/archives of vb scripts? Tag: 139746
  - 11
    - Scripts for explorer and desktop settings? Hello, Does anyone know where i can find a script to set Windows Explorer>Tools>Folder Options> General Tab & View Tab to select the following boxes: General>Active Desktop>Use Windows classic desktop General>Web View>Use Windows classic folders General>Browse Folders>Open each folder in same window General>Click Items as Follows>Single-click to open an item/underline icon titles consistent with my browser View>Files and Folders> * Display compressed files and folders with alternate color * Display the full path in the address bar * Display the full path in title bar * Show Hidden files and folders * Launch folder windows in a seperate process * Show file attributes in detail view In addition I'm looking for a script to set * the auto arrange desktop icons option on/off * "Show small icons in start menu" ? * set the screen resolution to 800x600 with "True Color" 32bit * display large font sizes from the display properties>advanced tab TIA -- \\||// (@@) Pardon the intrusion... __ooO_()_Ooo_____________________________ _|_____|_____|_____|_____|_____|_____|___ ___|_____|_____|_____|_____|_____|_____|_ _|_____|_____|_____|_____|_____|_____|___ .oooO Oooo. ( ) ( ) \ ( ) / \_) (_/ Tag: Looking for resources/archives of vb scripts? Tag: 139745
  - 12
    - Corporate Disclaimer I started out trying to follow through a Microsoft Knowledge Base article 317680 "How To: Add a disclaiamer to Outgoing SMTP Message in Visual Bacic Script I got it to work sending a test disclaimer. But I don't know how to write a "Sample disclaimer added in VBScript." This is from: <SCRIPT LANGUAGE="VBScript"> Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus) TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript." HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript." If Msg.HTMLBody <> "" Then 'Search for the "</body>" tag and insert our discliamer before that tag. pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare) szPartI = Left(Msg.HTMLBody, pos - 1) szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1)) Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf Else Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf End If 'Commit the content changes to the transport ADO Stream object. Msg.DataSource.Save ' Commit the changes into the transport Stream pEventStatus = cdoRunNextSink End Sub </SCRIPT> I've started reading up on WSH and cscript but not making any specific progress. Just a lot of error messages. Any help or maybe the name of a good beginner book would be great. Tag: Looking for resources/archives of vb scripts? Tag: 139736
  - 13
    - validate what option is selected How do u retrieve (for clientside validation)what option is selected in a drop down list. I have spent all week trying to find out. Why are all the code examples in my script editor in jscript? Can i get a version that gives its examples in vbscript? Could you also tell me the best place to get axamples for vbscript because there arent any at ms site.(If there is they didnt want anyone to find them.) Tag: Looking for resources/archives of vb scripts? Tag: 139730
  - 14
    - What was selected ? <h5>The reason I've spent all weekend trying to find out how to store what someone selects in this form is:</h5> <select size="1" name="Reason" id="HelpMe" onchange = "HelpMePlease"> <option>The code examples in the help files are not in vbscript</option> <option>Someone up there hates me</option> <option>I really need to get a life</option> </select> <script language = "vbscript">  </script> Tag: Looking for resources/archives of vb scripts? Tag: 139729
  - 15
    - Reading serial of CDROM remotely Hi, I am moving a cataloging application currently in VB6 to a web based ASP.NET application. The first problem that I have though is how do I read the serial number of the currently loaded CD remotely? Any help would be appreciated. Thanks, John Tag: Looking for resources/archives of vb scripts? Tag: 139726
  - 16
    - Loop Hi, When iterating through database, which loop statement is the best?Because if i use "while...wend" it will give me error when it reaches EOF and terminates with giving error even if i use "While rs.eof=false" at the top of the loop...any other better way... "if...then..else" also doesnt help much... TIA Tag: Looking for resources/archives of vb scripts? Tag: 139723
  - 17
    - A script for formating hard drive Is anyone knows the script for formating hard disk??? if it is, is that can be run on Win2k Pro. and Win2k Ser. ???? Tag: Looking for resources/archives of vb scripts? Tag: 139715
  - 18
    - Newbie ASP db question Hi All, I am learning database connectivity within ASP. I have the following code but keep getting the error shown below. --------------<snip>------------------- Set dcnDB = Server.CreateObject("ADODB.Connection") dcnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabaseLocation dcnDB.Open strSQL = "SELECT * FROM Current ORDER BY NewsItem" Set rsQuery = dcnDB.Execute(strSQL) Do While Not rsQuery.EOF response.write rsQuery("NewsItem") & "<br>" & rsQuery("Source") & "<br><br>" Loop --------------<end snip>---------------- Error Type: (0x80004005) Unspecified error The error is with 'Set rsQuery = dcnDB.Execute(strSQL)'. The database is a very simple Access 2000 file. It has 4 tables; Current, Hold, National and International. Each table has 2 fields. NewsItem and Source. All the manuals I have say that it is right. Is there something special I have to do with the Access database file in Access to make it compatible or something? Any help would be muchly appreciated. Cheers, Bill. Tag: Looking for resources/archives of vb scripts? Tag: 139710
  - 19
    - Deleting table rows at runtime Hi, I have a table that looks much like an inbox on most sites with the first column having a checkbox and other columns containing data. I want to delete those rows where the checkbox is checked at the client-side itself. I've tried looping through the table body elements to check the state of each checkbox but haven't been able to make it work. Anybody has any suggestions how this would work? Thanks, Saranjit Tag: Looking for resources/archives of vb scripts? Tag: 139699
  - 20
    - change select style Hi I need to change a <select style to multiple. I know how to change it's style (document.FormName.SElectName.style=) but I dont know how to change it to multiple . Thanks Tag: Looking for resources/archives of vb scripts? Tag: 139693
  - 21
    - error on Windows NT 4.0 server I receive this error when trying to run a script on an NT 4.0 server: ActiveX component can't create object: 'CDO.Message' Is there an update I need to download and install on the server? Here's my code: sArgument = WScript.Arguments(0) Set objEmail = CreateObject("CDO.Message") objEmail.From = server@domain.com objEmail.To = uuser@domain.com objEmail.Subject = "my subject " & now() objEmail.Textbody = "my text " & sArgument & " on " & now() & "." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "nafepncsebe6.nr.ad.newellco.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Any help would be appreciated. -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Tag: Looking for resources/archives of vb scripts? Tag: 139657
  - 22
    - adrpt.vbs,adexport.vbs,adlogconvert.vbs I need to get these sample scripts, supposed to be in site server package however I cannot open any part of site server to find these scripts. Any help would be appreciated! Tag: Looking for resources/archives of vb scripts? Tag: 139655
  - 23
    - Creating Exchange 5.5 Mailboxes via VBScript I have this script that I will use to create mailboxes and so far it works really well. The only problem I have is adding attributes like City, State, Zip etc. Where can I find what Exchange directory calls them? For example the LDAP attribute for Address field is actually postalAddress. I have full access to the Exchange 5.5 server. Another question is now when we create mailboxes through the Admin program it creates an NS record for us. But the script does not do that. Any ideas on how to do that through this script? Here is the script: 'createmailbox.vbs Const ADS_RIGHT_EXCH_MODIFY_USER_ATT = 2 Const ADS_RIGHT_EXCH_MAIL_SEND_AS = 8 Const ADS_RIGHT_EXCH_MAIL_RECEIVE_AS = 16 Const ADS_SID_WINNT_PATH = 5 Const ADS_SID_HEXSTRING = 1 Dim objMailbox, objContainer, strServer Dim strAlias, strMTA, strMDB, strSMTPAddr, strDisplayName Dim objSid, strSidHex, strComputer, strSite, strOrg Dim objComputer, strUserID, strDomain Dim objSec, objSD, objDACL, objAce strServer = "SERVER" strSite = "Site" strDomain = "Domain" strDisplayName = "Username" strSMTPAddr = "user@rfsamericas.com" strAlias = "Alias" strUserID = "UserID" 'NT UserName strAddress = "Address" strCity = "City" Set objComputer = GetObject("LDAP://" & strServer) 'get the organization strOrg = objComputer.o 'get the recipients container for the site Set objContainer = GetObject("LDAP://" & strServer & "/CN=Recipients,OU=" & strSite & ",o=" & strOrg) 'get the SID for the account to be associated with the new mailbox Set objSid = CreateObject("ADsSID") objSid.SetAs ADS_SID_WINNT_PATH, "WinNT://" & strDomain & "/" & strUserID strSidHex = objSid.GetAs(ADS_SID_HEXSTRING) 'create a new MailBox Set objMailbox = objContainer.create("organizationalPerson", "cn=" & strAlias) 'set display name and alias objMailbox.Put "postalAddress", strAddress objMailbox.Put "mailPreferenceOption", 0 objMailbox.Put "cn", strDisplayName objMailbox.Put "uid", strAlias objMailbox.Put "Home-MTA", _ "cn=Microsoft MTA,cn=" & strServer & ",cn=Servers,cn=Configuration,ou=" _ & strSite & ",o=" & strOrg objMailbox.Put "Home-MDB", _ "cn=Microsoft Private MDB,cn=" & strServer & _ ",cn=Servers,cn=Configuration,ou=" _ & strSite & ",o=" & strOrg objMailbox.Put "MAPI-Recipient", True 'objMailbox.Put "rfc822Mailbox", strSMTPAddr objMailbox.rfc822Mailbox = strSMTPAddr objMailbox.Put "textEncodedORaddress", _ "c=US;a= ;p=" & strSite & ";o=" & strOrg & ";s=" & strAlias objMailbox.textEncodedORaddress = _ "c=US;a= ;p=" & strSite & ";o=" & strOrg & ";s=" & strAlias objMailbox.Put "Assoc-NT-Account", strSidHex objMailbox.SetInfo 'create security objects Set objSec = CreateObject("ADsSecurity") Set objAce = CreateObject("AccessControlEntry") Set objSD = objSec.GetSecurityDescriptor("LDAP://" & strServer & _ "/CN=Recipients,OU=" & strSite & ",o=" & strOrg) Set objDACL = objSD.DiscretionaryAcl objAce.Trustee = strDomain & "\" & strUserID objAce.AccessMask = ADS_RIGHT_EXCH_MODIFY_USER_ATT Or _ ADS_RIGHT_EXCH_MAIL_SEND_AS Or _ ADS_RIGHT_EXCH_MAIL_RECEIVE_AS objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED objDACL.AddAce objAce objSD.DiscretionaryAcl = objDACL objSec.SetSecurityDescriptor objSD Tag: Looking for resources/archives of vb scripts? Tag: 139654
  - 24
    - Better / Difference JavaScript, VBScript - OT Discussion and observation Is there just some things that JavaScript can do that VBScript cannot do ? Vice versa? Or are there some things that one is just flat out better for than the other ? And within one web page, or asp page, can both be used and mixed or must a page/asp page be one or the other. I really dont want to take the time to learn both, since I am coding for myself only, and I can usually tell by looking at code from either whats going on. Just wondering if one is better than the other, and if one will be "unsupported" in any future time. Thanks! Jim Tag: Looking for resources/archives of vb scripts? Tag: 139647
  - 25
    - how to pass a variable from closing WIndow When one window is closing to opening another, such as; herf.location = "next.htm" how to pass a variable to the next page from closing one. Thanks in advance. ----------------------------------------- Osamu Terao Email: hag83950@ams.odn.ne.jp ----------------------------------------- Tag: Looking for resources/archives of vb scripts? Tag: 139635
- Next
  - 1
    - Querying SSL expiry dates Hi All, Does anyone know a way of querying the certicate store to return a list of expiry dates for the SSL certifcates held within it? I am attempting to come up with a way of e- mailing a warning a couple of weeks before a cert expires but as yet have found little or no info on getting this information. I have found the blob entries in the registry for the certs and when looking at the right column of the key you can see the expiry dates listed, however how would you convert a binary key from the registry to process the info...... It's all a blurr.... Any help would be appreciated. Many thanks, Aaron Tag: Looking for resources/archives of vb scripts? Tag: 139624
  - 2
    - How do I do "For Each ... " minus one ? How would you go about doing a For Each loop but only for all the items in the array minus one ? ie. (arrBasket is "Apple, Banana, Pear, Peach") For Each varFruit In arrBasket Msgbox varFruit Next So I want all the fruit apart from the Peach at the end... cheers, Steve PS. I'm not doing a grocery script :¬) Tag: Looking for resources/archives of vb scripts? Tag: 139621
  - 3
    - OE Newsgroups writing script question This is a multi-part message in MIME format. ------=_NextPart_000_0026_01C3529B.532E0800 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Okay, maybe I really should be asking here and should be in an OE group = or such. But I figure it makes the most sense since if anyone would = know if would be fellow scripters. When I type a script in OE for the newsgroups, when I type the = following: ("\\servername\sharename"), OE automatically changes it to = (\\servername\sharename) so then I have to readd the beginning and end quote. Why is it doing = that. How do I stop it. Sometimes I miss that it does it and it = obviously messes up the script. It also does it when I do LDAP: etc. = Any thought.=20 --=20 --=20 Regardless of whether my signature is long or short, I still welcome = e-mails if you know my address but won't post it. But on the positive = side, I don't try and impress by quoting others. --=20 ------=_NextPart_000_0026_01C3529B.532E0800 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.1106" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Okay, maybe I really should be asking = here and=20 should be in an OE group or such.  But I figure it makes the most = sense=20 since if anyone would know if would be fellow scripters.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>When I type a script in OE for the = newsgroups, when=20 I type the following:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>("<A=20 href=3D"file://\\servername\sharename">\\servername\sharename</A>"), OE=20 automatically changes it to (<A=20 href=3D"file://\\servername\sharename">\\servername\sharename</A>)</FONT>= </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>so then I have to readd the beginning = and end=20 quote.  Why is it doing that.  How do I stop it.  = Sometimes I=20 miss that it does it and it obviously messes up the script.  = It also=20 does it when I do LDAP: etc.  Any thought.</FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BR>-- <BR>-- <BR>Regardless of whether = my=20 signature is long or short,  I still welcome e-mails if you know my = address=20 but won't post it.  But on the positive side, I don't try and = impress by=20 quoting others.<BR>-- <BR></FONT></DIV></BODY></HTML> ------=_NextPart_000_0026_01C3529B.532E0800-- Tag: Looking for resources/archives of vb scripts? Tag: 139615
  - 4
    - pass a variable I know it's possible and probably very simple, but I'm not sure how to do it. I want to call a vbs file from a batch (.bat or .cmd) file and pass it a simple 4 digit number to be used when setting the subject line of an e-mail that the vbs file will send. How do I go about doing this? -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Tag: Looking for resources/archives of vb scripts? Tag: 139604
  - 5
    - Copying Hi, I need a script, which you can copy a folder and subfolders and files from the server to a client user everytime, when he connect to the network or log on or log off. Could you please help? Thank you very much!!!!! Luciano Tag: Looking for resources/archives of vb scripts? Tag: 139595
  - 6
    - Determine Printer Port Description I have a server that has IP printers installed on it, along with LPT, serial etc. I would like a programmatic to determine what the port type each printer is using. For example, if I open up the printer properties of a printer and click on the ports tab, I see all installed ports with a port description. I was wondering if there was a programmatic way to determine that description. Tag: Looking for resources/archives of vb scripts? Tag: 139593
  - 7
    - Table Hi, I am reading data frm database and looking fw to display them in a table(not in html <table>) but sth like grid..so that i could identify the column header uniquly to insert the data to the "location" tht i want... i idea?or excellent resource that i can refer to? TIA Tag: Looking for resources/archives of vb scripts? Tag: 139587
  - 8
    - Howto: Run startup script once Hi How do I run a startup script just one time. If I use the RunOnce registry key I'm required to login (which I'm not interested in). Is there another reg key that I can use ? Regards, Jesper Tag: Looking for resources/archives of vb scripts? Tag: 139584
  - 9
    - Internet / Intranet Hello, We are creating a favourites list for users of our INTRANET. In this regard we should be able to distinguish if anyone is adding an intranet / internet site since we cannot monitor internet sites. Does anyone have any ideas how we can find out if a URL from IE is an intranet address or an Internet address without using any configuration files ? Any help is appreciated. regards, Pratibha Tag: Looking for resources/archives of vb scripts? Tag: 139576
  - 10
    - Formatting columns in spreadsheet object Formatting columns in spreadsheet object Hi, Appended is a simple spreadsheet object I am creating in classic asp. I would like to make the spreadsheet appear more attractive on the we page. Now, I'm sure I can format the columns to make the spreadsheet look pretty but I am having great difficulty finding documentation that I can understand*. What I am looking for is instruction on how to do simple things lik emake column "I" appear as a date, how to make the spreadsheet autosize itself when the page loads so that the user does not have to drag the spreadsheet's corner, how to make column "D" appear as currency, how to make the columns align right, left, or center. Simple things like that. Can someone point me in the right direction? Thanks, --Terry *** <html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="-//W3C//DTD HTML 4.0//EN"> <body onload="fnLoadData()"> <object id="Spreadsheet1" classid="CLSID:0002E510-0000- 0000-C000-000000000046"> </object> </body> <script language=VBScript> Sub fnLoadData() With Spreadsheet1 .Cells.Clear .TitleBar.Caption = "Filter Inventory View" .DataType = "HTMLURL" .HTMLURL = "FilterInventoryResultSet.asp?RoomID=<% =intRoomID%>" .Range("A:K").AutoFitColumns .Range("A:K").AutoFilter .Range("A1:K1").Font.Bold = True End With End Sub </script> </html> *For instance, I have been plowing through msdn articles (like http://msdn.microsoft.com/library/default.asp? url=/library/en-us/vbaxl10/html/xlprofiltermode.asp ) and going around in circles never finding just what I need. To reply directly replace msdn . com with msn .com. Tag: Looking for resources/archives of vb scripts? Tag: 139573
  - 11
    - Having trouble either writing to a file or opening file. I created this script. Before I had a problem assigning the variable gpgcmd but someone on this board helped me with this. Now I get the right value in my variable but my program (gpg) is having a problem writing to the file outfile with the filename being tempname2. Any help wold be appreciated. Below is a sample of my script. ' create a unique temp file name Set tempFso = CreateObject("Scripting.FileSystemObject") tempname = tempFso.GetTempName Set tempFso = Nothing Set temp2Fso = CreateObject("Scripting.FileSystemObject") tempname2 = temp2Fso.GetTempName Set temp2Fso = Nothing 'Create Text File and give it temp name SET objFso = CreateObject ("Scripting.FileSystemObject") set infile = objFso.CreateTextFile(tempname, 8, true) 'Create Text File and give it temp name SET obj2Fso = CreateObject ("Scripting.FileSystemObject") set outfile = obj2Fso.CreateTextFile(tempname2, 8, true) infile.write "Place Text Here" infile.close gpgcmd = "c:\\gnupg\\gpg -a -r UserName --encrypt -o " & tempname2 & " " & tempname set wshShell = CreateObject("WScript.Shell") wshShell.Run gpgcmd ,1,false set wshShell=Nothing Tag: Looking for resources/archives of vb scripts? Tag: 139555
  - 12
    - FSO I am tring to rename a file using FSO, but i do not see any command to do this. Can someone help? Thanks Frank Tag: Looking for resources/archives of vb scripts? Tag: 139546
  - 13
    - Add rows of data to existing Word table? I have a template document, with the beginnings of a table in it (just the headers). I now need to read data from a textfile and add that as rows to the existing table. I have figured out how to create a new table, using ConvertToTable, but since the table is already there, I was hoping there was something that might work almost as easily with this need. So, I can get the data out of the tab delimted textfile and into an internal variable use the FileSystemObject.File.ReadAll method. Now that it's there, how can I add those row(s) to the table? Thanks for any thoughts, suggestions or directions. Larry Tag: Looking for resources/archives of vb scripts? Tag: 139536
  - 14
    - Sub Vs. Function Still new (but learning): I understand the explained difference but, is there a conventional wisdom regarding their use? I tend to use only functions whether or not I need a return value ......... -- Ratty Tag: Looking for resources/archives of vb scripts? Tag: 139533
  - 15
    - mouseover i dont know if im in the right place with this question. if not then let me know which forum i should go to. id like to write a script based on a mouseover command which allows the user to hover over a picture on a webpage and a small box pops up over the pic stating certain information gotten from a database. the user can either click or hover and that box should pop up. ive tried this in access, but it only supports 40 queries. i have about 100 - 200 different boxes iwant to pop up and this isn't supported by access. can i achieve this through vbscript? -- Posted via http://dbforums.com Tag: Looking for resources/archives of vb scripts? Tag: 139531
  - 16
    - Alias for User Profile Directory Is there an alias for the Documents and Settings folder in Win2k? In our logon scripts we want to copy a folder to the local user's profile but some users have machines that were upgraded from NT4 so their profile is stored in \Winnt\Profiles where as the Win2k machines are in \Documents and Settings\. I'm looking for an alias like %USERNAME% that I can use in a batch file. Is there such an alias? Mike Tag: Looking for resources/archives of vb scripts? Tag: 139519
  - 17
    - Deleting old files only? Hello, Can someone help me on how to write a script that will delete all files of a given type in a given folder older than a given date. Any help would be greatly appreciated! Thanks in advance. Tag: Looking for resources/archives of vb scripts? Tag: 139516
  - 18
    - Truncated data after 1st space with request.form("field") Hello, When I posted data to an ASP page. Information after the first space in the field is truncated. Why is this? Do I have to place something in the space of the space. Also, are there more "SPECIAL FEATURES" that I need to look for in ASP. the following is the code I used >> rs("field")=request.form("field") Any help would be greatly appreciated. Tag: Looking for resources/archives of vb scripts? Tag: 139513
  - 19
    - Netscape Does vbscript work with NS or IE only? -- J Tag: Looking for resources/archives of vb scripts? Tag: 139507
  - 20
    - Script doesn't work on W2K mochines Hi, All! This little script failed to execute on the Windows 2000 Sp4 machines and working properly on XP. What is a problem? Here is a script: myComputer="." Set objUser = GetObject("WinNT://" & myComputer & "/Administrator, user") objUser.SetPassword "XXXX" objUser.SetInfo Thanks. Tag: Looking for resources/archives of vb scripts? Tag: 139498
  - 21
    - VBSCRIPT line counter Software Does anyone know of a good tool to create VBSCRIPTS, currently I use Notepad for Windows which works fine until you have an error, then I have to souont every line until I find te error, any ideas? Thanks! Tag: Looking for resources/archives of vb scripts? Tag: 139488
  - 22
    - Classess: Is there a work around? Hi, I have been using classes in VB to make changes to records. For instance, if I needed to update client information, I created a form that I used for making corrections. The I would instantiate the form as a class and assign it to a variable in the calling form. I would pass the information back to the variable. I would like to do something like that with ASP but vb doesn't support classes and I do not program in Java. My problem is this. I need to make corrections to client information, but I only want to make updates to table that stores the client. I then need the screen with all the other information to reappear with the updated information. I guess it would be like: Point A ----> B do some work ---> back to A with updates. Thank you, Tag: Looking for resources/archives of vb scripts? Tag: 139485
  - 23
    - Still can't get date into a table cell I can't get the date to insert into a table cell....I must be doing something wrong...all I get displayed in the cell isb"%=Date%". What am I doing wrong? <table border="1" width="100%"> <tr> <td width="100%">%=Date%</td> </tr> </table> J > "Robert Cohen" <jerrygarcia@gratefuldead.com> wrote in message > news:%236ywqxdUDHA.2308@TK2MSFTNGP12.phx.gbl... > > when you are at the cell you want the date in, just put <% =Date %> > > > > > > > > > > > > "J" <replyto@newsgroup.com> wrote in message > > news:%23BTvZ2YUDHA.2332@TK2MSFTNGP09.phx.gbl... > > > > I can get the date to insert into a form field (text box (cell)) using > > the > > > > below code. But, how can I insert the date into a cell which is part > of > > a > > > > table. Say for example I have a table with 2 columns and 2 rows and I > > > want > > > > the date to appear in the bottom right cell...how can that be > > accomplished > > > > using vbscript? > > > > > > > > <SCRIPT LANGUAGE="VBScript"> > > > >  > > > > </SCRIPT> > > > > <body onload="InsertDate"> > > > > <INPUT NAME="Cell" TYPE="Cell" VALUE=> > > > -- > > > J Tag: Looking for resources/archives of vb scripts? Tag: 139473
  - 24
    - Re: get date into a table cell? > I must be doing something wrong...all I get displayed in the cell is > "%=Date%". What am I doing wrong? > > <table border="1" width="100%"> > > <tr> > > <td width="100%">%=Date%</td> > > </tr> > > </table> > > > -- > J > "Robert Cohen" <jerrygarcia@gratefuldead.com> wrote in message > news:%236ywqxdUDHA.2308@TK2MSFTNGP12.phx.gbl... > > when you are at the cell you want the date in, just put <% =Date %> > > > > > > > > > > > > "J" <replyto@newsgroup.com> wrote in message > > news:%23BTvZ2YUDHA.2332@TK2MSFTNGP09.phx.gbl... > > > > I can get the date to insert into a form field (text box (cell)) using > > the > > > > below code. But, how can I insert the date into a cell which is part > of > > a > > > > table. Say for example I have a table with 2 columns and 2 rows and I > > > want > > > > the date to appear in the bottom right cell...how can that be > > accomplished > > > > using vbscript? > > > > > > > > <SCRIPT LANGUAGE="VBScript"> > > > >  > > > > </SCRIPT> > > > > <body onload="InsertDate"> > > > > <INPUT NAME="Cell" TYPE="Cell" VALUE=> > > > -- > > > J Tag: Looking for resources/archives of vb scripts? Tag: 139470
  - 25
    - display documents in asp-page thats stored in database Hi all, First of all I do have to admit that I?m not sure If I?m in the right NG .. if not I do apologize. I have done an asp page that upload small files (different office document and small images) into my database. The upload part is working just fine. My problem is when I want to display the docs. It works fine if for example I do like this: < --------- > response.Expires = 0 response.Buffer = True response.Clear response.contentType = "application/pdf" Response.BinaryWrite( rs("img_data") ) < --------- > The problem is that if I do like above I need to know what kind of file type (in the example ?application/pdf?) that I expect and I would like so script to check and decide that for me. I have a field in me table that store the application type so all that I need to now is how I should check, right? < ----- -- > Set rs = dbconn.Execute ("SELECT img_pk, img_data, img_contenttype FROM image WHERE img_pk='1' ") if rs("img_contenttype") = "application/pdf" then response.Expires = 0 response.Buffer = True response.Clear response.contentType = "application/pdf" Response.BinaryWrite( rs("img_data") ) end if if rs("img_contenttype") = "application/msword" then response.Expires = 0 response.Buffer = True response.Clear response.ContentType = "application/msword" Response.BinaryWrite( rs("img_data") ) end if if rs("img_contenttype") = "application/vnd.ms-excel" then response.Expires = 0 response.Buffer = True response.Clear response.ContentType = "application/vnd.ms-excel" Response.BinaryWrite( rs("img_data") ) end if if rs("img_contenttype") = "image/pjpeg" then response.Expires = 0 response.Buffer = True response.Clear response.ContentType = "image/pjpeg" Response.BinaryWrite( rs("img_data") ) end if < ----- > Above is my last attempt to make it work, but .. I receive this in my web browser: <font face="Arial" size=2> <p>Response object</font> <font face="Arial" size=2>error 'ASP 0106 : 80020005'</font> <p> <font face="Arial" size=2>Type Mismatch</font> <p> <font face="Arial" size=2>show.asp</font><font face="Arial" size=2>, line 48</font> <p> <font face="Arial" size=2>An unhandled data type was encountered. </font> Is there anyone out there who can help me? Thanks in advanced. Regards, Fredrik *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Looking for resources/archives of vb scripts? Tag: 139468

Hello,
Could someone direct me to some comprehensive vb
archives on the web? Just trolling for some scripts that
may be of use:-)

TIA

Top

Re: Looking for resources/archives of vb scripts? by Richard

Richard
Mon Jul 28 14:10:08 CDT 2003

Hi,

For VBScript programs:

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcen
ter

--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--
"ArchiveMan" <noreply@notemail.com> wrote in message
news:3F256D5D.34856489@notemail.com...
> Hello,
> Could someone direct me to some comprehensive vb
> archives on the web? Just trolling for some scripts that
> may be of use:-)
>
> TIA
>

Top