Increments by 10, 20, 30 ....

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
    - Permission denied shutdown script I have written my first script and am having trouble with it. It is supposed to copy a folder on the local drive to a network so that it can be backed-up. dim myDate myDate = DatePart("y", myDate) Set fso = CreateObject("Scripting.FileSystemObject") dim fromFile fromFile = "C:\Documents and Settings\lars\Application Data\Opera\Opera 8 Beta\*" dim toFile toFile = "\\server\Data\My Documents\lars\Bookmarks\Opera\Backup" & myDate Set f = fso.CreateFolder(toFile) fso.CopyFolder fromFile, f.path , true When I execute this, "cscript cp.vbs", it works fine, copying the data to the server. I then placed the above script in C:\WINDOWS\system32\GroupPolicy\Machine\Scripts\Shutdown, and, using gpedit.msc, gone to the Local Computer Policy\Computer Configuration\Windows Settings\Scripts(Startup/Shutdown), selected Shutdown, and added this script to the Shutdown Scripts for Local Computer. When the system shuts down, I get a Permission Denied error '800a0046'. What am I missing here? Thanks, Lars Tag: Increments by 10, 20, 30 .... Tag: 167643
  - 2
    - How to select multiple items from a list box on an ASP page Hi there, I got a simple list box on an ASP page. I tried to select multiple items and use the item values to do something. I was able to get the item values. However, I got the following error from IE's Error on page. I have attached my VBScript below. Any idea why? <SCRIPT language ="vbscript"> sub Launch_OnClick dim i For i = 0 To document.Myform.Mylist.size msgbox document.Myform.MyList.item(i).value Next End Sub ERROR Line: 98 Char: 8 Error: Object required: 'document.Myform.Mylist.item(...)' Code: 0 URL: ..... Tag: Increments by 10, 20, 30 .... Tag: 167641
  - 3
    - Expiration Date Is there a way to enumerate all user accounts in the domain that will expire on or after Dec, 31st 2004? Tag: Increments by 10, 20, 30 .... Tag: 167640
  - 4
    - Using the ChilKatFTP dll with VBScript I'm still fairly new to VBScript (and WMI, and WSH) but I'm getting better. What I'm trying to do though is have my script handle FTP commands on it's own (instead of having the shell run the ftp -s:command.txt stuff)... I'm trying to use the chilkatftp dll (free use). Any help would be appreciated. Thanks! http://www.chilkatsoft.com/chilkatFtp.asp Tag: Increments by 10, 20, 30 .... Tag: 167629
  - 5
    - Rename... I'd like to rename the local administrator account to something like LocalAdmin on all workstations (about 200 pcs) in our domain. Would anyone provide vbscript codings on the matter? Appreciate for the help. Fan Tag: Increments by 10, 20, 30 .... Tag: 167625
  - 6
    - Communicating Between VB6 and a HTML Document I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html, existing in the MyPath that was specified in the above VB code. The page had this code: <HTML> <HEAD> <TITLE>Communications Test</TITLE> <SCRIPT Language="VBScript"> OPTION EXPLICIT SUB PageLoaded() txtWebBrowser.Value="READY" END SUB </SCRIPT> </HEAD> <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#FF0000" ALINK="#FF00FF" SCROLL="NO" ONLOAD="PageLoaded()"> <BASEFONT SIZE=4> <FONT SIZE=4 FACE="ARIAL"> <CENTER><H1>Theme 1 Page</H1></CENTER> <TEXTAREA NAME="txtWebBrowser"ROWS=1 COLS=50 style="visibility:visible;position:absolute;top:200;left:40;"> Default Text</TEXTAREA> </FONT> </BODY> </HTML> ---------------------- Launching the webpage by itself will cause the textbox text, initially set to "Default Text", to be changed to "READY" after the page has loaded. Launching the page via running the VB project will cause the webpage textbox text to be changed to "Message from VB6 Code!". I commented out the VB code that will obtain that textbox content. This methodology lets code in the webpage communicate back and forth with VB code via the webpage textbox. This allows synchronizing of code in both of the applications. I've shown the basic way of providing cross communications between the applications, but I'll leave it up to others to do something with it! Maybe someone else will write a complete tutorial and project for others, rather than just a general explanation as I've done here. Winguy Tag: Increments by 10, 20, 30 .... Tag: 167616
  - 7
    - Remote Cacls Is there a way to change NTFS permissions on a remote server through a script. For example from Computer1 can I execute a script that will add Server1\Group1 to \\Server1\d$\Data with change access. I know I can use Cacls.exe and give a "domain" user or a "Domain" group permission to a remote server, but following Microsoft standards they say I should only apply permissions to Local Groups Thanks again. I found this site today and I have a few questions that I have been searching for answers to for a long time. -- Thanks for the help! Brian Tag: Increments by 10, 20, 30 .... Tag: 167614
  - 8
    - allowing line breaks in memo fields I'm not sure whether this question strictly speaking belongs to this group, but since a lot of you guys/gals out there are probably using ASP in connection with a database, here goes: As a relative newbie, I have discovered that a memo-type field in my access database does not accept (or simply ignores any attempt to) create line breaks. At least that's what seems to be the case when I created an standard form containing a text area field linked to an access database. When displayed, I would like the text to appear with a line break, for example: "This is line one. This is line two." However, even if insert that line break in the above-mentioned form, the text appears like this: "This is line one. This is line two." Where do I have to make provisions in order to display the line break? In the form page? In the display page? In the access field property? Or all of the above? I use pretty basic ASP/VBS for my pages. Below you can see examples of what would be the form page and and display page related to this question. Thanks in advance TB -- beginning of form page add.asp: ----- <% Set Conn = Server.CreateObject("Adodb.Connection") Dim DSN1 DSN1="Provider=MSDASQL;" DSN1=DSN1& "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN1=DSN1& "DBQ=C:\web\test.mdb;" Conn.open DSN1 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set RS = Server.CreateObject("ADODB.Recordset") RS.open "Select * From testtable Where 1 = 2;", Conn, 1, 3 RS.AddNew RS("Text") = Request.Form("Text") RS.Update RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing Response.Write ("text added.")%> <a href="list.asp">return</a> <%Else%> <Form Method="Post" Action="add.asp"> <textarea rows="3" name="Text" cols="35"></textarea><br> <input Type="submit" Value="add" name="Submit"> </form> <%End If%> -- End of form page add.asp: ----- -- beginning of display page list.asp: ----- <% Set Conn = Server.CreateObject("Adodb.Connection") Dim DSN1 DSN1="Provider=MSDASQL;" DSN1=DSN1& "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN1=DSN1& "DBQ=C:\web\test.mdb;" Conn.open DSN1 msql = "SELECT * FROM articulos" Set RS=Conn.Execute(msql) Do While Not RS.EOF response.write "text: " & RS("Text") &"<br>" RS.MoveNext Loop RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing %> -- End of display page list.asp: ----- Tag: Increments by 10, 20, 30 .... Tag: 167610
  - 9
    - LogonScript Suggustion Currently I am using KixStart95 to write my logon scripts. Right now I basically say If inGroup "XXXX" then map to \\SERVER\Share If inGroup "XXXX" then map to \\SERVER2\Share3 over and over until I've checked all the possible groups a person could be a member of. I am getting ready to deploy file servers to 150 remote locations connected over 256K Frame Relay and about 8000 users total. All of our DC's are located back at central office where the 256K connections funnel to. At least starting out each user will have only one Group drive which will be on their file server located in their building. Just wondering if anyone had a better way to map these drives without having to have 150-500 If Ingroup lines. I would also like to use as few logon scripts as possible. Obviously one solution would be to give everyone their own script which would provide fast logon but too much maintenance. Any suggestions would be appreciated. -- Thanks for the help! Brian Tag: Increments by 10, 20, 30 .... Tag: 167605
  - 10
    - Validating a Group Exists I have the following code to Create a local group. I was wondering if there is a way to see if the group already exists before I try to create it. Currently if a group already exists my script errors out, is there a way to allow the script to continue working in the event that a preexisting group is encountered? strComputer = "REQtestXP1" Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("group", "FSD") objUser.SetInfo -- Thanks for the help! Brian Tag: Increments by 10, 20, 30 .... Tag: 167604
  - 11
    - Need Help with this code!... Hi! Ive got this code that open a simple aspx page : Set oIE = createobject("internetexplorer.application") oIE.navigate "http://www.somepage.com/page.aspx" oIE.Visible = True Do until oIE.readystate=4 sSleep 1 Loop Some of the page contents have this code: <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl25:_ctl0" value="" /></td> <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl26:_ctl0" value="" /></td> <td class="celula" align="Center"><input type="submit" name="dtgAdicao:_ctl27:_ctl0" value="" /></td> Can you see see sequence in the "name" attribute (dtgAdicao:_ctl25:_ctl0, dtgAdicao:_ctl26:_ctl0)... Well, the question is: how can i FOCUS over one of these elements???.... I try this: oIE.Document.all.dtgAdicao:_ctl27:_ctl0.focus but oviously Ive got an error because the name of the element its conaints illegal caracters... Witch way can i use to focus or read de "name" tag of this elements??? Thanxs a lot! Gabriel. Tag: Increments by 10, 20, 30 .... Tag: 167596
  - 12
    - VBS Server monitor needed. New to scripting. Need Script that monitors servers and sends e-mail when they go down (and if possible, when it comes back up.) Also if anyone has any good script repository sites. Thanks, Ian Lilkendey Tag: Increments by 10, 20, 30 .... Tag: 167594
  - 13
    - Anti-virus help?! I want to write a vbscript which retrieves the current dat-version (and engine version) of different anti-virus programs. Well, I've done this for McAfee, which was very easy. Does anyone know how to retrieve such information from E-Trust (CA) and Symantec anti-virus? It seems the registry keys are encrypted and can't find any information from CA or Symantec about this subject. Greetings, Hans http://fots.nl Tag: Increments by 10, 20, 30 .... Tag: 167590
  - 14
    - Missing file extension? We have a VBScript that runs fine from the command line, but when run through CronW, it hangs. While debugging, we had the script print names of the various files it uses. (fileobject.Name) When running from the command line, it will print complete filenames, "somepath\filename.ext", but when running through cronw, we only get "somepath\filename" without the extension. Anyone know any reason it should be like that? All hints appreciated. Cheers, Anders :) Tag: Increments by 10, 20, 30 .... Tag: 167589
  - 15
    - blank character Hi, How do I create a 'blank character' on a web page? I have a table and I need a blank cell. If I create a cell with no entry, the cell doesn't appear in the table. I remember there was some sequence of keys to create the blank character that started with an ambersand. Does anyone know what it is? Thanks, Guy Tag: Increments by 10, 20, 30 .... Tag: 167586
  - 16
    - arguments to script Hi there, I have created script which use the following to find out the arguments passed to it. It works fine if I enter the script name and arguments in a DOS prompt. But if I run the same script with the same arguments in window scheduler, it will only take the default value, i.e. vDatabase='TEST'; ignoring the arguments I passed in the command. Please advise what I should do. Thanks. JW. ************ Set objArgs=WScript.Arguments if objArgs.count > 0 then vDatabase=objArgs(0) else vDatabase="TEST" end if Tag: Increments by 10, 20, 30 .... Tag: 167585
  - 17
    - replace string in txt file with another This is a multi-part message in MIME format. ------=_NextPart_000_0030_01C4ECE9.C6417450 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi there :) Was wondering if someone could help me please. This is what = I have setup to do so far: Get updated html file with 4 new image filenames each time. I have code which gets those names out using the "what's in between" = string (each imagename in the html file has a line like this : = imagename[0] =3D "blabla1234.gif" and the other images have different = numbers. The code I use gets the name but also some of the other code as = well but puts those strings to seperate text files which then I use = another string finder to get the proper name out and then put to more = seperate text files. I end up with 4 text files with each of the image = names. Then I want to replace certain strings in a new html file with = each of those image filenames, but I have no idea how to do that? How = can I open a text file, make it read it and write whatever's in there in = place of a string in a html file that already exists? Would appreciate the help. Thanks ------=_NextPart_000_0030_01C4ECE9.C6417450 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>Hi there :) Was wondering if someone = could help me=20 please. This is what  I have setup to do so far:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Get updated html file with 4 new image = filenames=20 each time.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>I have code which gets those names out = using the=20 "what's in between" string (each imagename in the html file has a line = like this=20 : imagename[0] =3D "blabla1234.gif" and the other images have different = numbers.=20 The code I use gets the name but also some of the other code as well but = puts=20 those strings to seperate text files which then I use another string = finder to=20 get the proper name out and then put to more seperate text files. I end = up with=20 4 text files with each of the image names. Then I want to replace = certain=20 strings in a new html file with each of those image filenames, but I = have no=20 idea how to do that? How can I open a text file, make it read it and = write=20 whatever's in there in place of a string in a html file that already=20 exists?</FONT></DIV><FONT face=3DArial size=3D2> <DIV><BR>Would appreciate the help.</DIV> <DIV>Thanks</DIV> <DIV> </DIV> <DIV></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_0030_01C4ECE9.C6417450-- Tag: Increments by 10, 20, 30 .... Tag: 167584
  - 18
    - Info transfer WebBrowser Control <> HTML Code? I found in XP SP2 that I can, within webpage vb code, change the webpage title: on error resume next 'Tell WebBrowser control that a state exists document.title = "Case1.html State=0" on error goto 0 'Works even in theater mode and I can use that ability to pass information to the WebBrowser Control that is hosting the webpage in VB6, and the WebBrowser control will detect the change in its TitleChange event: X = Trim(Text) If InStr(1, X, "http") = 0 And InStr(1, X, "Cannot") = 0 Then _ If X > "" Then WebStatus = X 'WebStatus is global var This allows me to have webpage script code notify the VB6 WebBrowser control about specific webpage code event happenings. Nice. But for the life of me I can not figure out how to do exactly the reverse! Anyone got any ideas OTHER than having the webpage code read, via a timer function, an existing text file that VB6 code creates? I'd rather not beat the HDD to death to see if a text file has been changed or not ... TIA Winguy Tag: Increments by 10, 20, 30 .... Tag: 167582
  - 19
    - Script only returns 1000 users when over 2000 in OU When I run the following script trying to get a list of information of all users in a particular OU which has well over 2000 users I get only a listing of 1000 users. I know there is a way using the Active Directory Users and Computers utility to up the number of objects that are visible. Is this something that has to be done and can be done with scripts in order to report all objects? I would appreciate any suggestions. Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = "<LDAP://" & strLine & "ou=Users,dc=OurDomain,dc=org>;;name,sAMAccountName,DisplayName;onelevel" Set objRecordSet = objCommand.Execute While Not objRecordset.EOF Wscript.Echo objRecordset.Fields("name") & chr(9) & objRecordset.Fields("sAMAccountName") & Chr(9) & objRecordset("DisplayName") & Chr(9) & strLine Call WriteToAllUsersTextFile(objRecordset.Fields("name") & chr(9) & objRecordset.Fields("sAMAccountName") & chr(9) & objRecordset.Fields("DisplayName") & Chr(9) & strLine) objRecordset.MoveNext Wend objConnection.Close Tag: Increments by 10, 20, 30 .... Tag: 167580
  - 20
    - Getting the path, the Fullname, etc. and why the script works I don't understand how the following script (from the MS Windows 2000 scripting guide) works: For Each strArgument in Wscript.Arguments Wscript.Echo strArgument Next 1. First, there's no statement that strArgument = something So, how does the variable strArgument get the Fullname (i.e., path and filename) assigned as the variable's value? 2. How could I modify the script to get just the path? 3.How could I modify the script to get just the file's name? 4. How could I modify the script to get just the file's date last modified? 5. Lastly, (since you have nothing to do but answer my questions) where can I find an explanation of constants? That's enough for now. Thanks again, Marc Hankin Tag: Increments by 10, 20, 30 .... Tag: 167574
  - 21
    - VBScript Image Editing Hello I want to create a script that will scan the currently directory for images, and then resize them (as in a thumbnail) and save the file. I know how to scan the dir, and save the files, etc. but I'm not sure how to get it to resize the images. Can someone help me with that? Thanks! Brett Tag: Increments by 10, 20, 30 .... Tag: 167573
  - 22
    - delete files older than X days What would be the best way to delete files in the SAME folder as the VB Script file that are X days or older? Tag: Increments by 10, 20, 30 .... Tag: 167572
  - 23
    - export query results I am new to vbscript. I would like to run a SQL 'select' query and then export the results to a file. I have been able to run the query by itself and get the desired results. The result will only be 1 line of data (6 fields). How do I export these results. Thanks in advance for your help. Tag: Increments by 10, 20, 30 .... Tag: 167569
  - 24
    - Listing computers names with a script Hello anyone can help me? I have four computers in a workgroup and I want to rescue the names of them using a Vbscript from one of them. I need the same list of net view but using a script. Many thanks Tag: Increments by 10, 20, 30 .... Tag: 167568
  - 25
    - Doing backup with Ntbackup + Vbs. I've writing a Script for launching NTbackup and checking errors in the created log. I have to make it in Vbs, Now...i have some problems in gettin it working. 1) Ntbackup launch 2) Log-check after ntbackup is ended. If errors were found an email is sended with attached the log file. The check works like a charm, process an entire txt\log file and send a mail if ERROR is found. But i have some problems in getting the last log created in the c:\doc&set\local setting\....\ntbackup\data\ dir. Someone has any idea on checking this log? Thanks in advance Stefano Tag: Increments by 10, 20, 30 .... Tag: 167567
- Next
  - 1
    - count the number of Mailboxes (Exchange Server) Hi, I would like to count the number of mailbox of each MailBoxStores in my organisation. (The final goal of this script is to create the new mailboxes in the least full store). Here is what I did, but it's not enough. I can't find any way to access to a mailbox collection so as to count the items. Please, help me ! thanks in advance, akiuni ----- my script: ----- Dim objServer ' CDOEXM.ExchangeServer Dim objSG ' CDOEXM.StorageGroup Dim objMSDB ' CDOEXM.MailboxStoreDB strServerName = "Sxxx" 'one Exchange server, I'll see later for the others Set objServer = CreateObject("CDOEXM.ExchangeServer") Set objSG = CreateObject("CDOEXM.StorageGroup") Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB") Set iDS = objServer.GetInterface("IDataSource") iDS.Open strServerName For Each storegroup In objServer.StorageGroups objSG.DataSource.Open storegroup For Each mbx In objSG.MailboxStoreDBs objMSDB.DataSource.Open mbx ' Here I am in each Mailboxes Stores... but how can I access to the mailboxes ??? ' or is there a property/method to count the items ?? Next Next Tag: Increments by 10, 20, 30 .... Tag: 167563
  - 2
    - Newby question : How to map a network drive ? Hi, I want to create a script which maps network drive. I need to do so for whichever user logs in. I want to put the script in the startup of AllUsers. How can I do that ? Thanks Maurice Tag: Increments by 10, 20, 30 .... Tag: 167562
  - 3
    - Newby question : How identify "Workstation Only" VbScript ? Hi! I want to perform some activity on WinNT/Win2K if the user is not logged in as "Workstation Only" ? How do I do that ? Thanks Maurice Tag: Increments by 10, 20, 30 .... Tag: 167561
  - 4
    - can't get field.value I have a set of text fields as <td><input name=....> placed on the page based on the number of records returned from the DB. After the page loads, I wand to change the value in the fields and send these to a new ASP. I name the fields F1, F2, etc based on the number of records. I have a JavaScript function that pulls the new values from these fields, F1.value, F2.value, etc. by assigning them myvalue1[1] = F1.value, myvalue2 = F2.value, ... But what I really need to do is pick up the field values programmatically: for (i=1; i<num; i++) { myvalue[i] = "F" + i + ".value" } But I end up with a string in myvalue[i] instead of F1.value from the field. I missing something fundamental here. Can someone help? Tag: Increments by 10, 20, 30 .... Tag: 167556
  - 5
    - Check emails inside/outside the domain Hi There, I've write the script bellow that should send a email from 3 Exchange Servers and 1 email account from outside the domain at the same time. The purpose of this script is to check if the Exchange Servers are receiving and sending emails to and outside the domain with no problems. So we could answer faster until the users call us with this kind of problems. Can someone help me?... Thanks Nuno Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Testing incoming / outgoing domain email" objMessage.Sender = "exchangeServer_1@helpme.com; exchangeServer_2@helpme.com; exchangeServer_3@helpme.com; externalEmailAccount@givemeatip.com" objMessage.To = "exchangeServer_1@helpme.com; exchangeServer_2@helpme.com; exchangeServer_3@helpme.com; externalEmailAccount@givemeatip.com" objMessage.TextBody = "Email Test" objMessage.Send Tag: Increments by 10, 20, 30 .... Tag: 167555
  - 6
    - CreateTextFile Permission Denied error under Windows XP I've written a VBS script that runs under W98, NT4, W2K, and WXP Home/Pro. Users under Windows XP only are encountering an *intermittent* problem when the script attempts to create a text file in the script directory. Here's the relevant code: ----------START CODE---------- Dim Wshso : Set Wshso = WScript.CreateObject("WScript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim oNetwk : Set oNetwk = WScript.CreateObject("WScript.Network") Dim ScrPath ScrPath = Fso.GetParentFolderName(WScript.ScriptFullName) If Right(ScrPath,1) <> "\" Then ScrPath = ScrPath & "\" strFN = ScrPath & "Some Name Here (" & oNetwk.ComputerName &_ ") " & FmtDate & ".txt" Public oFN 'THE ERROR OCCURS ON THE NEXT LINE Set oFN = Fso.CreateTextFile(strFN,True) 'script does a lot more stuff here Function FmtDate FmtDate = Year(Now) & "-" & Right("0" & Month(Now),2) &_ "-" & Right("0" & Day(Now),2) End Function ----------END CODE---------- The error is always the same: Windows Script Host Script: C:\Script File Path\Script File Name.vbs Line: CreateTextFile_line_number_here Char:1 Error: Permission Denied code: *00A0046 Source: Microsoft VBScript runtime error The error only occurs with a small number of users when the script is first launched. The error may occur repeatedly with those users, but the script ultimately runs normally. Once the script completes, the error is unlikely to repeat, even if the text file is deleted. I encountered the error on my own MS Virtual PC 2004 install of Windows XP Pro. I can't explain the error. What could account for a CreateTextFile "Permission Denied" error using the above code in a WXP Home (or Pro) installation where Everyone has Full Control over the script directory and the user is an Administrator? regards, Andy -- ********** Please send e-mail to: usenet (dot) post (at) aaronoff (dot) com To identify everything that starts up with Windows, download "Silent Runners.vbs" at www.silentrunners.org ********** Tag: Increments by 10, 20, 30 .... Tag: 167553
  - 7
    - Get XML page issue Hello to all, iÂ´m developing a script to retrieve a xml web page, in order to create a statistics file. IÂ´m Spanish, and the XML have special characters, like Ã? (espaÃ±a), accents, like Ã³ Ã Ã©, etc... when i retrieve the XML this characters appears as an error caracter, and i not be able to work with the result of the get. there is a representative part of my code: strURL="http://setiathome2.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=team_lookup_xml&name=Sondas%20Espaciales" Set objHTTP = CreateObject("MSXML2.XMLHTTP") 'MSXML2 Call objHTTP.Open("GET", strURL, FALSE) objHTTP.setRequestHeader "Accept-Language","sp" objHTTP.setRequestHeader "Pragma","no-cache" objHTTP.setRequestHeader "Content-Type","text/html; charset=iso-8859-1" objHTTP.Send wscript.echo objHTTP.Responsetext IÂ´ve searching info in spanish forums about this issue and i have been able to find something, but dont work fine. Can anyone help me with this issue??? Thanks in advanced and merry Xmas Tag: Increments by 10, 20, 30 .... Tag: 167551
  - 8
    - Prevent access to floppy drive and USB ports Hey, I would like to read in IP's / computer names from a text file and then connect to those computers and somehow prevent users from using both the floppy drive and USB ports by disabling them. I would also like the flexibility of re-enabling them all or just specific ones. I'd appreciate if someone could show me how to do this with a script. Thanks Tag: Increments by 10, 20, 30 .... Tag: 167550
  - 9
    - Merry Christmas Today we celebrate the birth of Jesus Christ our Lord. Luke 2:11 11For to you is born this day in the town of David a Savior, Who is Christ (the Messiah) the Lord! Happy Birthday Jesus and Merry Christmas to you all. Roland Hall Tag: Increments by 10, 20, 30 .... Tag: 167542
  - 10
    - A Politically Correct Holiday Greeeting Please accept with no obligation, implied or implicit, my wish for an environmentally conscious, socially responsible, politically correct, non-addictive, low stress, gender-neutral celebration of the winter solstice holiday, practiced within the most enjoyable traditions of the religious persuasion of your choice, as well as the secular practices of your choice, but with full respect for the religious/secular persuasions and/or traditions of others, or their choice not to practice religious or secular traditions at all. And further, please accept my wish for a fiscally successful, personally fulfilling, and medically uncomplicated recognition of the onset of the generally accepted calendar year 2005, but not without due respect for the calendar of choice of other cultures whose contribution to our diverse society has helped make this country great (not to imply that USA is necessarily greater than any other country, and without regard to the race, creed, color, age, physical ability, religious faith, veteran status or sexual orientation of the wisher, wishee or their third party beneficiaries). These wishes are limited to the customary and usual good tidings for a period of approximately one year, or until the issuance of a subsequent holiday greeting, whichever comes first. Use of the term "Holiday" herein is not intended to, nor shall it be considered to be, limited to Judeo-Christian celebrations or observances, nor to such activities of any organized or ad hoc religious community group, individual or belief (or lack thereof). In particular, the word "holiday" is used herein without reference to its etymology. Note: By accepting this greeting, you are accepting these terms. This greeting is subject to clarification or withdrawal, and is revocable ab initio at the sole discretion of the wisher at any time, for any reason or for no reason. This greeting is freely transferable provided that there is no alteration to the original greeting text. Any transfer is to be at the risk of the transferor who, by making such transfer, thereby agrees to hold the wishee harmless from any and all adverse consequences resulting from such transfer. This greeting implies no promise by the wisher to actually take any action or fail to take any action to implement any of the wishes for the wishee her/himself or others, or responsibility for the consequences which may arise from the implementation or non-implementation of same. This greeting is void where prohibited by law, custom or policy and is offered irrespective of any card, hard copy greeting or embarrassing self-indulgent letter summarizing achievements in 2004, however mendacious, which may or may not have been purveyed by myself or any member of my extended family. Best (sorry, reasonably endeavored) Wishes. <author unknown> Tag: Increments by 10, 20, 30 .... Tag: 167528
  - 11
    - Merry Christmas Best Wishes to all for the Holiday Season. from jawarproductions ----------------------------------------------------- your source for the ultimate in untrustworthy and unreliable code... Tag: Increments by 10, 20, 30 .... Tag: 167527
  - 12
    - Determining if a server is a cluster I wrote the following procedure: Function Check_Cluster(msgserver) Wscript.Echo "Check_Cluster against --> " &msgserver On Error Resume Next Set objCluster = CreateObject("MSCluster.Cluster") objCluster.Open msgserver If objCluster.Nodes Then Set Check_Cluster = objCluster.nodes Else Set Check_Cluster = Nothing End If msgserver = empty End Function My question: How can I tell if a server is a cluster or not? I am not sure which property to check. Tag: Increments by 10, 20, 30 .... Tag: 167526
  - 13
    - New URL All, My web site's base URL has changed from: http://home.comcast.net/~stewartb/ OR http://mywebpages.comcast.net/stewartb/ TO: http://www.cybermesa.com/~bstewart/ The current site is still up but will be down by the first of the year. -- Bill Stewart Tag: Increments by 10, 20, 30 .... Tag: 167517
  - 14
    - How to quit excel application in DTS using VBScript I am using a VBScript in DTS that opens a excel file, adds one excel sheet daily and deletes one old excel sheet which is one week old. each time I run DTS one instance of EXCEL is added in taskbar and it is not terminated automatically. File is saved properly but I couldn't find out the reason why this instance of excel is not terminated. Can anyone Help me? Thanks in Advance Rahul Khedekar I am using Windows Server 2003 enterprise Edition with SQL server 2000 with Microsoft Office Excel 2003 I am using following code to create excel opjects Dim Excel_Application Dim Excel_WorkBook Dim Excel_WorkSheet Dim sFilename sFilename = "c:\\Report.xls" Set Excel_Application = CreateObject("Excel.Application") Excel_Application.Visible = False Excel_Application.DisplayAlerts = False Set Excel_WorkBook = Excel_Application.Workbooks.Open(sFilename) --And To close Excel Application Excel_WorkBook.Save Excel_WorkBook.Close Excel_Application.Quit Excel_Application.Application.Quit Set Excel_WorkSheet = Nothing Set Excel_WorkBook = Nothing Set Excel_Application = Nothing *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Increments by 10, 20, 30 .... Tag: 167511
  - 15
    - What's wrong here I made this little script to create user, homedir and set permissions on the dir, but I can't get it to set permissions for the user, everything else works fine. I have tryed moving the line --wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True-- both before and after the --User.Setinfo-- but nothing helps, WHAT the heck is wrong???? ---------------------------------------------------------------------------------------------------- 'adduser.vbs - Create user in OU + homedir + homedir rights. Dim RootDSE Dim ouHO Dim sFirstName, sLastName, sUserName, sPromt, sAdresse, sPostnr, sBy, sTlf Dim iInput Dim user Dim ou Dim ounavn Dim fso, wshShell Dim fldUserHomedir ounavn = InputBox("Organizational Unit?", "Skriv OU") ou = "OU=" + ounavn Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject("Wscript.Shell") Set RootDSE = GetObject ("LDAP://RootDSE") Set ouHO = GetObject ("LDAP://" + ou + "," & RootDSE.get("DefaultNamingContext")) Do sFirstName = InputBox("Fornavn ?", "Fornavn") sLastName = InputBox("Efternavn ?", "Efternavn") sAdresse = InputBox("Adresse ?", "Adresse") sPostnr = InputBox("Postnr ?", "Postnr") sBy = InputBox("By ?", "By") sTlf = InputBox("Telefon ?", "Telefon") sUserName = LCase(Left(sFirstName, 1) & sLastName) sPromt = "Ny bruger " & sFirstName & " " & sLastName & Chr(10) & "med brugernavn " & sUserName & "?" iInput = MsgBox(sPromt, vbYesNo, "bekræft bruger") if iInput = vbYes then Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr User.put "l", sBy User.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True User.put "scriptPath", "logon.vbs" User.SetInfo user.SetPassword "12345" wscript.echo "bruger oprettet." else wscript.echo "bruger ikke oprettet." end if Loop While msgBox("opret ny bruger ?" , vbYesNo, "Question") = vbYes wscript.echo "Dette afslutter scriptet." & Chr(10) & "Click ok for at afslutte." ---------------------------------------------------------------------------------------------------- Regards, Ole Rasmussen Tag: Increments by 10, 20, 30 .... Tag: 167509
  - 16
    - class problem (class) i have two class and i create them but i dont assign a value and run the subroutines.. what is my mistake? the error is --- Object reference not set to an instance of an object.---- i think it is about this line ws2.ProductDefinitions(i) = New WebReference1.ProductDefinitionType() ************************************* Public Class ProductUpdateServiceImpl Public Sub getProductUpdate(ByVal productUpdate As ProductUpdate_TYPE) Me.Invoke("getProductUpdate", New Object() {productUpdate}) End Sub End Class ********************************** Public Class ProductUpdate_TYPE Public KangurumShopId As String Public ProductDefinitions() As ProductDefinitionType Public UpdateDate As Date End Class ****************************** ************codes****************** Dim ws2 As New WebReference1.ProductUpdate_TYPE() Dim wsbaba As New WebReference1.ProductUpdateServiceImpl() for i=0 to 100 ws2.ProductDefinitions(i) = New WebReference1.ProductDefinitionType() wsbaba.getProductUpdate(ws2) next ************************************** Tag: Increments by 10, 20, 30 .... Tag: 167504
  - 17
    - OLE /COM programming Could anyone tell me where I could find good resources on how to capture events from Microsoft word using straight C++ without the help of MFC/ATL. Micosoft's MSDN provides code fragments on how to do some of it, but I'm still having problems. To reiterate, I know how to do this using MFC, but I need to be able to capture these events without the help of MFC. Any help would be VERY greatly appreciated. Tag: Increments by 10, 20, 30 .... Tag: 167502
  - 18
    - Include files Hi, Is it possible to include another vbs file in a vbs file just as you would in asp? Or better still, register a vbscript class? Thanks, Jesse Tag: Increments by 10, 20, 30 .... Tag: 167493
  - 19
    - Get WINS info machine in OU Hope someone can help, I am trying to get the WINS info for the machines that I have in a particular OU. Can someone give some info on how this can be done. Thanks Gavin... Tag: Increments by 10, 20, 30 .... Tag: 167491
  - 20
    - Edit REG_BINARY with VBS Does anyone know if there is a way of using a vbs script to edit reg_binary data. I am currently using the WshShell.Run "regedit /s " & SwapFile, 1, true method to do this already. However this means shelling out to another process and i like to know if it can be done within vbs. I am looking to enter this 01,00,00,00 into the registry. Here's the code i'm using... WshShell.RegWrite "HKCR\Folder\shell\NewFolderCommand\","New Directory","REG_SZ" WshShell.RegWrite "HKCR\Folder\shell\NewFolderCommand\EditFlags","01,00,00,00","REG_BINARY" WshShell.RegWrite "HKCR\folder\shell\NewFolderCommand\Command","cmd.exe /c MD %1\NewFolder","REG_SZ" The purpose is that when i right click on a folder within Explorer it will give me an option to create a New Folder without having to go to the File menu all the time - i get sick of doing that. JP Tag: Increments by 10, 20, 30 .... Tag: 167488
  - 21
    - SNMP COM Object Greetings All! I'm looking for an SNMP COM object that I can use either with ASP OR VBScript that will allow me to query a remote agent and send a get request. There's several excellent free ones that exist, but they only allow sending to the default SNMP port of 161. The systems I need to query use a non-standard port for security reasons, which can not be changed. I have yet to find any free objects, nor any paid objects which don't attempt to include "everything but the kitchen sink" in the package. Does anyone know of an SNMP COM/ActiveX object, free or paid for, that can do the following: Query a machine on a non-standard port Allow customized Community names Stores the values into an array for later parsing Any other basic SNMP abilities. Any help would be greatly appreciated, as I've been looking for several months now with no luck in finding what I'm looking for. Thanks! Jeremy Tag: Increments by 10, 20, 30 .... Tag: 167484
  - 22
    - Running VBScript As A Service Could anyone tell me what the advantages are of running a VBScript as a service rather than from a Scheduled Task. And in what situations would you want to do this? I'm writing more and more scripts for people that have to be run once a minute / every five minutes ect... And our task scheduler is getting rather congested. Although I dont see this as a problem, I'm just wondering if any of them could/should be run another way. I would appreciate any advice anyone could offer. TIA, Colin Tag: Increments by 10, 20, 30 .... Tag: 167472
  - 23
    - Keep Script CLI window open Is there a way to keep the VBScript CLI window open if you execute the script from the GUI? As you know when you execute the script from the CLI it processes and then displays the results however when you execute the script by double clicking it in the GUI it runs then closes, can you keep the window open? I still want to remain in cscript not wscript... Tag: Increments by 10, 20, 30 .... Tag: 167470
  - 24
    - InternetExplorer COM help This is a multi-part message in MIME format. ------=_NextPart_000_0006_01C4E8CE.CD82E0B0 Content-Type: text/plain; charset="windows-1255" Content-Transfer-Encoding: quoted-printable Hi, I am trying to write script using InternetExplorer COM methods. Where can i get info on all methods and properties of InternetExplorer? 10x. ------=_NextPart_000_0006_01C4E8CE.CD82E0B0 Content-Type: text/html; charset="windows-1255" 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=3Dwindows-1255"> <META content=3D"MSHTML 6.00.2900.2523" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3D"Times New Roman">Hi,</FONT></DIV> <DIV><FONT face=3D"Times New Roman"></FONT> </DIV> <DIV><FONT face=3D"Times New Roman">I am trying to write script using=20 InternetExplorer COM methods.</FONT></DIV> <DIV><FONT face=3D"Times New Roman">Where can i get info on all methods = and=20 properties of InternetExplorer?</FONT></DIV> <DIV><FONT face=3D"Times New Roman"></FONT> </DIV> <DIV><FONT face=3D"Times New Roman">10x.</FONT></DIV></BODY></HTML> ------=_NextPart_000_0006_01C4E8CE.CD82E0B0-- Tag: Increments by 10, 20, 30 .... Tag: 167461
  - 25
    - Missing variable in procedure For Each myserver in colKeys strMyserver = myserver Set colServers = Check_Cluster(myserver) For some reason, the myserver variant can never be enumerated after it is passed to the Check_Cluster procedure. Is this normal? As a workaround I have strMyserver assigned the myserver value and everything works. Does the passing to a procedure null the value? Tag: Increments by 10, 20, 30 .... Tag: 167457

Hi All,

I need a function that only allows Increments by 10, 20, 30.....

How do I achieve this in VB Script?

Any help is appreciated.

TIA,

--

Santosh

Top

Re: Increments by 10, 20, 30 .... by McKirahan

McKirahan
Thu Dec 30 08:22:11 CST 2004

"Santosh" <santoshNoSpam@NoSpam.net> wrote in message
news:usrwvik7EHA.2276@TK2MSFTNGP09.phx.gbl...
> Hi All,
>
> I need a function that only allows Increments by 10, 20, 30.....
>
> How do I achieve this in VB Script?
>
> Any help is appreciated.
>
> TIA,
>
> --
>
> Santosh

For i = 0 To 1000 Step 10
...
Next

Top