Good IDE to write JScript or VBScript

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
    - Aaagh! cScript no longer Returning! ?? Hi, I use cScript to run the adsutil.vbs etc scripts to generate web sites during automated installations of our product. here is an example: cscript.exe C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost -w "Default Web Site" -v "adminDir","C:\MyDir\Web\Admin" This always /used/ to work just fine. Now when I try it, csript.exe appears to do the task, but it now NEVER returns from the dos prompt. Whats wrong with that? I am using stock windows2000 professional workstation with IIS 5.0 installed to do this. here is the output of the dos prompt:- ---<PRE> Microsoft Windows 2000 [Version 5.00.2195] (C) Copyright 1985-2000 Microsoft Corp. C:\>cscript.exe C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost -w "Default We b Site" -v "adminDir","C:\MyDir\Web\Admin" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. 2/18/2005 10:11:09 AM : Accessing root for IIS://localhost/W3svc/1 2/18/2005 10:11:09 AM : Done. </PRE>--- thats it! as you can see, csript never returns from the function. It performs the function ok, but then just sits there saying 'Done' and does not return. you have to end task on the dos prompt!! Aagh!! Has anyone else come across this issue??? Tag: Good IDE to write JScript or VBScript Tag: 170270
  - 2
    - virtual path hi, does someone have a vbscript to check for file existance in a virtual path ? eg. http://www.yourserver.com/someDirectory/file.doc pls help. thanks Tag: Good IDE to write JScript or VBScript Tag: 170269
  - 3
    - Mail merge - data (text+tab) via http Hello everybody ! I try since some week to lanch "automagically" fron one clic under IE on a web page : -> the download of a data file for Word mail merge, and save it on local disk WITHOUT PROMPTING, -> lanch the Word application and the merge. I've found one script (below) to do this... or nearly : in fact this script retrieve data from an sql server, instead of a poor data text file (text+tab) on a html server (what i want). And, even after several tries,.... i'm not able to modify it ....8-((( NOTA : the data text file has the first row for name header, and the second row has data (only 2 lines). So... any help would be welcome !!!!! Thanks Eric --------------------- <script language="VBScript"> Sub CreateDataDoc(oApp) ' Declare variables. Dim sServer,oDoc,oRS,sTemp,sHead,oRange,oField ' Place your server's name here. sServer = "<servername>" ' Create a new document. Set oDoc = oApp.Documents.Add ' Create a new recordset. Set oRS = CreateObject("ADODB.Recordset") ' Open the XML recordset from the server and pass the SQL statement ' to the Getdata.asp page. sSQL = "SELECT * FROM AUTHORS" oRS.Open "http://" & sServer & "/WordMailMerge/Getdata.asp?SQL=" & sSql ' Convert the recordset to a string. sTemp = oRS.GetString(2, -1, vbTab) ' 2 = adClipString ' Append the field names to the front of the string. For Each oField In oRS.Fields sHead = sHead & oField.Name & vbTab Next ' Strip off the last tab. sTemp = Mid(sHead, 1, Len(sHead) - 1) & vbCrLf & sTemp ' Get a range object and insert the text into the document. Set oRange = oDoc.Range oRange.Text = sTemp ' Convert the text to a table. oRange.ConvertToTable vbTab ' Save the document to a temp file. oDoc.SaveAs "C:\data.doc" ' Close the document (no save). oDoc.Close False End Sub Sub ButtonClick() Dim oApp Dim oDoc Dim oMergedDoc ' Create an instance of Word. Set oApp = CreateObject("Word.Application") ' Create our data file. CreateDataDoc oApp ' Add a new document. Set oDoc = oApp.Documents.Add With oDoc.MailMerge ' Add our fields. .Fields.Add oApp.Selection.Range, "au_fname" oApp.Selection.TypeText " " .Fields.Add oApp.Selection.Range, "au_lname" oApp.Selection.TypeParagraph .Fields.Add oApp.Selection.Range, "city" oApp.Selection.TypeText ", " .Fields.Add oApp.Selection.Range, "state" oApp.Selection.TypeParagraph .Fields.Add oApp.Selection.Range, "zip" oApp.Selection.TypeParagraph ' Create an autotext entry. Dim oAutoText Set oAutoText = oApp.NormalTemplate.AutoTextEntries.Add _ ("MyLabelLayout", oDoc.Content) oDoc.Content.Delete .MainDocumentType = 1 ' 1 = wdMailingLabels ' Open the saved data source. .OpenDataSource "C:\data.doc" ' Create a new document. oApp.MailingLabel.CreateNewDocument "5160", "", _ "MyLabelLayout", , 4 ' 4 = wdPrinterManualFeed .Destination = 0 ' 0 = wdSendToNewDocument ' Execute the mail merge. .Execute oAutoText.Delete End With ' Close the mail merge edit document. oDoc.Close False ' Get the current document. Set oMergedDoc = oApp.ActiveDocument ' Show Word to the user. oApp.Visible = True ' Uncomment these lines to save the merged document locally. 'oMergedDoc.SaveAs "C:\test.doc" 'oMergedDoc.Close False 'oApp.Quit False End Sub </script> Tag: Good IDE to write JScript or VBScript Tag: 170268
  - 4
    - device is in use a user is getting h drivemapped twice because he is in group IT AND LABS WHAT DO I DO? Dim objNetwork, objSysInfo, strUserDN, objUser, strUser Set objNetwork = CreateObject("Wscript.Network") Set objSysInfo = CreateObject("ADSystemInfo") strUserDN = objSysInfo.userName strUser = objNetwork.UserName Set objUser = GetObject("LDAP://" & strUserDN) If IsMember("IT") Then 'objNetwork.removenetworkdrive "q:" objNetwork.MapNetworkDrive "q:", "\\server\IT" objNetwork.MapNetworkDrive "h:", "\\server\Users\" & strUser, false End If If IsMember("Services") Then objNetwork.MapNetworkDrive "y:", "\\server\AcadServ" End If If IsMember("Administration") Then objNetwork.MapNetworkDrive "w:", "\\server\Admin" End If If IsMember("Labs") Then objNetwork.MapNetworkDrive "L:", "\\server\Lab" objNetwork.MapNetworkDrive "h:", "\\server\Users\" & strUser, false objNetwork.addwindowsprinterconnection "\\server\HP4100" End If '-------------------------------------------------------- Function IsMember(strGroup) ' Function to test one user for group membership. ' objUser is the user object with global scope. ' strGroup is the NT Name of the group to test. ' objGroupList is a dictionary object with global scope. ' Returns True if the user is a member of the group. Dim objGroup If IsEmpty(objGroupList) Then Set objGroupList = CreateObject("Scripting.Dictionary") objGroupList.CompareMode = vbTextCompare For Each objGroup In objUser.Groups objGroupList(objGroup.sAMAccountName) = True Next End If IsMember = objGroupList.Exists(strGroup) End Function '---------------------------------------------------------- Tag: Good IDE to write JScript or VBScript Tag: 170267
  - 5
    - Trying to get a file system script working I've been learning a bit of scripting and picked a task deleting a file. So I read a bit and search the net a bit. I came up with an example: www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1102.mspx which shows Const TEMPORARY_INTERNET_FILES = &H20& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES) Set objFolderItem = objFolder.Self strPath = objFolderItem.Path & "\*.*" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strPath) I wanted to modify this a bit so I change the strPath line strPath = objFolderItem.Path & "\triggerParams.js" but this fails with an 800A0035 error. I have checked that the file is in the folder, changing the script to just enumerate the filenames in the folder finds it: For each file in objFolder.Items MsgBox "Found: " & file.name next Can anyone see something I've made a mistake doing? Thanks Tag: Good IDE to write JScript or VBScript Tag: 170266
  - 6
    - Searching for a certain file name in a log file Is it possible to search a text file for a specific value in VBScript? For instance: I have a log file which contains a distribution job for software to a server. I want to interigate this log file called library.dct (regular text file) for a piece of software which was placed on this server. e.g [Windows XP Service Pack 2] Please advice, thanks in advance Tag: Good IDE to write JScript or VBScript Tag: 170263
  - 7
    - Can I use VbScript to extract a file from a CAB fie? I am trying to open a cab file on my local machine and then add or delte some file to it and then recompress it into a CAB file again. Can I use vbscript to do this? Thanks Tag: Good IDE to write JScript or VBScript Tag: 170258
  - 8
    - Script to enable/disable domain account? I'd like to be able to enable/disable a specific domain account in AD using a script. Does anyone know if this can be done? Thanks! Tag: Good IDE to write JScript or VBScript Tag: 170246
  - 9
    - Can non-admin run GPO script? I've written a vbs script that will enable/disable a GPO link, and it works fine (I'm a domain admin). However, I'd like to allow a non-admin user to run this script. Can this be done? Tag: Good IDE to write JScript or VBScript Tag: 170245
  - 10
    - generating empty 1gb files Hi all! Can I use vbscript to generate an empty file that has a specified size? I know that you can do it by opening a file for writing and then writing characters into it until it reaches the desired size. But can you gneerate the file in some other way so that you can instantly generate the file? I need to generate dummy files that have a size of 1GB. thanks Tag: Good IDE to write JScript or VBScript Tag: 170235
  - 11
    - Script startup / current path? Hi, Which command returns the script startup / current location? I'm looking for the directory which contains the script not the current working directory. Many thanks Tag: Good IDE to write JScript or VBScript Tag: 170233
  - 12
    - VPN3005 PPTP with groups Hi, Is it possible to have PPTP users on a 3005 concentrator authenticate into different RADIUS groups. I would like to have internal users assigned to one group (in one IP Pool) and have customer users assigned to another (again with another IP Pool) The concentraor is in a dmz off of the firewall, and I want to allow access on an IP address basis though the firewall. Thanks for any pointers! Jo Tag: Good IDE to write JScript or VBScript Tag: 170231
  - 13
    - Change WMI Property with WMI Hello, I'm newbie to use WMI scripting but I'm tring to use Win32_UserAccount method. Some of it properties are read/write and I don't know how to modify it !!! In fact, I would like to modify the fullname of a user per example. I can get all information with that : Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name='rhildt'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) And I try to modify with an update sql command : Set colItems = objWMIService.ExecQuery("Update Win32_UserAccount SET Fullname='Toto' WHERE Name='rhildt'") But no error message and no change. I looked on the microsoft documantation : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_useraccount.asp Fullname is a read/write property but no method to modify it and no explaination. Somebody can help me ??? Thanks a lot and sorry for my english (I'm french) Romain Tag: Good IDE to write JScript or VBScript Tag: 170224
  - 14
    - Confessions of a "Top-Poster" (ugh!)... It has come to my attention that there are participants here who condemn the practice of "top-posting" (i.e., placing the response ahead of the question), as in: A: No Q: Should I include quotations after my reply? I must confess that I do this all the time, under the rationalization that somebody reading down the thread has already read the question, and shouldn't need to re-read it in order to get to my answer. Further, I will frequently cut off or seriously abbreviate the question, to just the specific issue I hope to address. O.K. so this is offensive. But, I ain't going to quit. Here's an easy remedy. If you don't like my habit of "top-posting" then just filter out my postings, and all my annoying violations of netiquette will just disappear. cheers, jw Tag: Good IDE to write JScript or VBScript Tag: 170223
  - 15
    - LDAP Search Script - Issue Querying Terminal properties I found this handy sample script from Microsoft's website which I want to expand on. I have successfully modified this script to query other values but whenever I try to query Terminal related values the script hangs. For example, where it mentions "SELECT givenName, SN, department, telephoneNumber FROM..." Once I put "TerminalServicesProfilePath" and "TerminalServicesHomeDirectory" - the script hangs. Any idea's? Thanks in Advance ========================================= Const ADS_SCOPE_SUBTREE = 2 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Last name" objExcel.Cells(1, 2).Value = "First name" objExcel.Cells(1, 3).Value = "Department" objExcel.Cells(1, 4).Value = "Phone number" Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 100 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT givenName, SN, department, telephoneNumber FROM " _ & "'LDAP://dc=fabrikam,dc=microsoft,dc=com' WHERE " _ & "objectCategory='user'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst x = 2 Do Until objRecordSet.EOF objExcel.Cells(x, 1).Value = _ objRecordSet.Fields("SN").Value objExcel.Cells(x, 2).Value = _ objRecordSet.Fields("givenName").Value objExcel.Cells(x, 3).Value = _ objRecordSet.Fields("department").Value objExcel.Cells(x, 4).Value = _ objRecordSet.Fields("telephoneNumber").Value x = x + 1 objRecordSet.MoveNext Loop Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("B1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("C1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("D1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("C1") Set objRange3 = objExcel.Range("A1") ========================================= Tag: Good IDE to write JScript or VBScript Tag: 170222
  - 16
    - Outlook - Changing SMTP Ports VBScript Hi Everyone, We have around 100 laptops out there that arent connected to a domain, and most users arent really computer savy. I'm looking to figure out how to change SMTP ports on specific accounts in Outlook 2003 and XP (I've figured it out for Outlook Express). I'm not really sure where to look, I'm quite certain these values are in the registry, but I'm not sure where to look. Anyone have any ideas? Tag: Good IDE to write JScript or VBScript Tag: 170220
  - 17
    - Possible in vbscript? I'd to use an HTML editor to help filling/modifying a textarea in an HTML form. I am totally new in programming vbscript and would like to know whether the following scenario could be realized with vbscript. When clicked a button located near the textarea: <> Saves the contents of the textarea in a temporary file <> Launches an HTML editor installed on my PC giving it the temporary file as an argument <> Waits for the edit session to complete <> Stores the contents of the temporary file inside the textarea <> Removes the temporary file Thanks for your help. Bruno Tag: Good IDE to write JScript or VBScript Tag: 170217
  - 18
    - Looping Group Creation Script Help... Hi Firstly, I'm a newbie to vb scripting, and so I find that at the moment, I scrape along using bits of code extracted from various sources (mostly books or Microsoft), until I earn the fundamentals. Basically, I'm trying to say please don't shoot me down if my script contains glaring (to the professional eye) coding errors. At the moment, I'm trying to create a script that creates Active Directory global groups, based on information supplied from a text file (the script loops until it reaches the end of the file). The script assignes two parts to the name, which is the 'cn=' value, and the 'sAMAccountName' value. The 'cn=' part works fine, but the script falls at the 'sAMAccountName' value. The script looks like this: ########################################## Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("C:\Shared\Scripts\Groups\Groups.txt", ForReading) Set objRootDSE = GetObject("LDAP://RootDSE") strRoot = objRootDSE.Get("defaultNamingContext") Set adsContainer=GetObject("LDAP://" & strRoot) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop msgbox(strNextLine) For Each objItem in objDictionary adsGrp = objDictionary.Item(objItem) Set adsGroup = adsContainer.Create("group", "cn=" & adsGrp) adsGroup.Put "sAMAccountName", adsGrp adsGroup.SetInfo Next WScript.Echo "Group creation is complete" WScript.Quit ######################################################## I've tried putting a MsgBox in just before the 'sAMAccountName' line, to see what the value of the 'adsGrp' variable is, but it returns as empty, then fails. I've used a similar script to create Organizational Units, and it works fine, but that one doesn't assign two values. Can anyone help? -- tbennett300 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Good IDE to write JScript or VBScript Tag: 170207
  - 19
    - Error: 80072030, Facility: LDAP Provider, "There is no such object on the server." Hi, I desperetly seek for help here. I'm running this script from my local machine (2003 server) and try to connect to the exchange on a different server. I have all the CDO obejcts installed: 1 Set iExs = CreateObject("CDOEXM.ExchangeServer") 2 iExs.DataSource.Open "inquire-exch" 4 For Each storegroup In iExs.StorageGroups 5 Next As a result, I'm getting the following error on line number 4: C:\a.vbs(5, 1) (null): There is no such object on the server. Facility: LDAP Provider ID no: 80072030 Microsoft CDO for Exchange Management when running the script on the exchange serveri itself, no problem occur. I also have administrator priviliges on the exchange server. Any idea what could be the problem here? Thanks! Alon Tag: Good IDE to write JScript or VBScript Tag: 170202
  - 20
    - replacing ASCII text newbie question here: I need to create a function that will take in a string and replace any ASCII characters greater than ASCII code 127 with their HTML equivalent. E.g. something like: Replace(sInput, Chr(233), "é") but to account for every other character than might get in there. Would it be more cost-effective (processing-time wise) to just write lots of replace functions one after the other, or should I loop through the string and replace and characters as I encounter them. How would I do this? Thanks! -- "I hear ma train a comin' ... hear freedom comin" Tag: Good IDE to write JScript or VBScript Tag: 170201
  - 21
    - download and save an image from a website Hi. How do I download an image from a website and save it on the client side? Thanks a lot, MC Tag: Good IDE to write JScript or VBScript Tag: 170197
  - 22
    - Cant Access a textbox value in a div (HTA environment) Hi, I can write, access style variables to a textbox in a div. But i cant read the value of it. I am working around HTA. i tried window.textboxid.value AND document.getElementById("textboxid").value methods... The textbox is inside the <div>, also div properties has all read-write permissions. I am going to eat my keyboard. What is the definite true solution? Thanks Caglar Tag: Good IDE to write JScript or VBScript Tag: 170196
  - 23
    - CreateObject suucceed but using members fails I have one COM server that implements one method/property that returns int . The CreateObject does create the instance of com server. The problem is that I get error when trying to access its method/property with the annoying behaviour that in some computer it works and in others it doesn't Dim app Dim result Set app = CreateObject("MyApp.MyApplication") result = app.Result When trying with VB6.0 to check with more detais. I did: Dim app as Object .... and I got the same error, but if I do Dim app as MyApplication it works. Looks like the "casting" from generic Object type to use defined type is not working on those computers where I get the error. Does anyone had similar problems before, or what is the cause of it? Thanks on advance alex Tag: Good IDE to write JScript or VBScript Tag: 170192
  - 24
    - window.opener problem! Hi, When i used window.opener to access the opener from the popup window this problem (object required) has occured. I used to use this technique in my web applications without any problem. Is there a security issue for window.opener in HTA environment. Or a syntax difference? Thanks. Caglar Tag: Good IDE to write JScript or VBScript Tag: 170190
  - 25
    - Cannot get information from details view Hi all, I cannot get the information in details view of "Network and Dial-up Connections", may I have your suggestion about what is going wrong? Code start: sNetworkFolderName = "Network and Dial-up Connections" Const ssfCONTROLS = 3 set shellApp = createobject("shell.application") set oControlPanel = shellApp.Namespace(ssfCONTROLS) for each folderitem in oControlPanel.items if folderitem.name = sNetworkFolderName then set oNetConnections = folderitem.getfolder exit for end if next for each folderitem in oNetConnections.items msgbox folderitem.name 'can get the name successfully msgbox "hi " & folderitem.ExtendedProperty("Status") 'get hi only next Code End Thanks a lot Tag: Good IDE to write JScript or VBScript Tag: 170181
- Next
  - 1
    - Inserting from ASP creates 2 records instead of 1 Hi, I'm doing an insert from an ASP page (written in VBScript) and there is a problem. When I call the SP from the page, it inserts 2 records into my table. If I call the SP directly from Query Analyzer, 1 record is inserted. I removed the oRS.moveFirst. that fixed it, but it causes other problems. Any ways to get around this double insert crap? please advise Tag: Good IDE to write JScript or VBScript Tag: 170174
  - 2
    - Access share on network computer I have a limited experience with vbs scripting, so I would be grateful for some help. I need to script copying a file from one pc to another. The source part is no problem, as I can access a share on the source pc directly. Due to network configuration issues I need to set a connection/access the target WinXP Pro pc by its IP address (say 192.168.200.1) and logon with username and password (say "pcname\myname" and "mypass"). Is there a way to make this work in one go: logon remotely (maybe map the remote share to local drive letter temporarily) copy the file tothe remote share (maybe mop up) Thanks in advance, Eric Tag: Good IDE to write JScript or VBScript Tag: 170171
  - 3
    - Hidden Variable not holding value What's happening: When Select all button is clicked the hidden variable, buttonname, is supposed to be set to all and the form is submitted to itself. If the buttonname = 'all' then all of the checkboxes are supposed to be displayed as checked. However the buttonname variable is not holding it's value. When I view the final source after submitting the form, the buttonname variable is empty. I didn't know what group to post this in since my code contains both vbscript and javascript. If you can help I'd very much appreciate it. Code: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>StarNet - E-mail Admin</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <SCRIPT LANGUAGE="JavaScript"> function submitthis ( selectedtype ) { document.list.buttonname.value = selectedtype ; document.list.submit() ; } --> </script> <% getCon=Application("connectionObject") 'type is true if an ecard and false if a newsletter. dim objrs,bool,mailer set objrs=server.CreateObject("adodb.recordset") set objGroups=server.CreateObject("adodb.recordset") set objContest=server.createobject("adodb.recordset") objrs.open "select * from addstarnet where username ='" & session("whois") & "' order by groupname",getcon,3,3 If isnull(session("agentid")) or session("agentid") = "" or isempty(session("agentid")) then contestcontacts = false else objContest.open "select * from contest where agentid = '" & session("agentid") & "'",getcon,3,3 If not objContest.eof then contestContacts = true objContest.movefirst else contestContacts = false end if end if If not objrs.eof then bool = true objrs.movefirst objGroups.open "select distinct groupname from addstarnet where username = '" & session("whois") & "' order by groupname", getcon,3,3 objGroups.movefirst else bool = false end if %> </head> <body> <table width="638" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="634" height="236" valign="top" bgcolor="#FFFFFF"><div align="center"> <table width="634" border="0" cellpadding="0" cellspacing="0" style="margin-bottom:0"> <tr> <td width="634"><div align="center"><img src="images/S.gif" width="40" height="65"><img src="images/t.gif" width="50" height="65"><img src="images/a.gif" width="64" height="65"><img src="images/r.gif" width="50" height="65"><img src="images/n.gif" width="54" height="65"><img src="images/e.gif" width="48" height="65"><img src="images/t.gif" width="50" height="65"></div></td> </tr> <tr> <td><div align="center"><font color="#996600">E-mail Postcard and Newsletter System</font></div></td> </tr> <tr> <td bgcolor="#CCCCCC"><strong><font color="#000000">Step 4 - Send to... </font></strong></td> </tr> <tr> <td valign="top"> <p align="center"> </p> <p align="center"><a href="email_admin.asp">Add/Delete/Edit E-mail Addresses</a></p> <% If bool = true then%> <form action="step4.asp" method="post" enctype="multipart/form-data" name="list"> <table width="530" border="1" align="center" cellpadding="1" cellspacing="1"> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#CCCCCC"><a href="javascript:submitthis('all')">Select All </a> -<a href="javascript:getsupport('Free')"> Delete Selected</a> - <a href="javascript:getsupport('Free')">Select Contest Contacts Only</a></td> </tr> <%response.write(request("mailer")) For i = 1 to objGroups.recordcount%> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#FFFFFF"><font size="2"> <input name="buttonname" type="hidden" value=""> <input name="list<%response.write(i)%>" type="checkbox" id="list<%response.write(i)%>" value="<%response.write(objGroups("groupname"))%>" <%If request("buttonname") = "all" or request("list" & i) = objGroups("groupname") then response.write("checked")%>> <%response.write(objGroups("groupname"))%> </font></td> </tr> <% b = 1 Do until objGroups("groupname") <> objrs("groupname")%> <tr bgcolor="#CCCCCC"> <td width="45" bgcolor="#FFFFFF"><div align="right"><font size="2"> <input name="list<%response.write(i & "-" & b)%>" type="checkbox" id="list<%response.write(i & "-" & b)%>" value="<%response.write(objrs("email"))%>" <%If request("buttonname") = "all" or request("list" & i) = objGroups("groupname") then response.write("checked")%>> <%b=b+1%> </font></div></td> <td width="135" bgcolor="#FFFFFF"><%response.write(objrs("first"))%></td> <td width="145" bgcolor="#FFFFFF"><%response.write(objrs("last"))%></td> <td width="195" bgcolor="#FFFFFF"><%response.write(objrs("email"))%></td> </tr> <%objrs.movenext if objrs.eof then exit do loop objGroups.movenext Next if contestContacts = true then%> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#FFFFFF"><font size="2"> <input name="contest" type="checkbox" id="contest" value="Contest Contacts"> Contest Contacts </font></td> </tr> <%For i = 1 to objContest.recordcount%> <tr bgcolor="#CCCCCC"> <td width="45" bgcolor="#FFFFFF"><div align="right"><font size="2"> <input name="list<%response.write("c-" & i)%>" type="checkbox" id="list" value="<%response.write(objcontest("emailadd"))%>"> </font></div></td> <td width="135" bgcolor="#FFFFFF"><%response.write(objcontest("firstname"))%></td> <td width="145" bgcolor="#FFFFFF"><%response.write(objcontest("lastname"))%></td> <td width="195" bgcolor="#FFFFFF"><%response.write(objcontest("emailadd"))%></td> </tr> <%objcontest.movenext next end if %> </table> <input name="mailer" type="hidden" value="<%response.write(request("mailer"))%>"> <div align="center"><br> <input name="image" type="image" src="images/next.gif" alt="submit form" width="87" height="32"> </div> </form> <%end if%> </td> </tr> </table> </div></td> </tr> </table> </body> </html> Tag: Good IDE to write JScript or VBScript Tag: 170168
  - 4
    - how to check file access Hi all, I'm hoping that one of you can help me with the following issue. I would like to copy some files from one location to another. This is not so difficult to do with vb scripting, but in my case it's possible that the person that is executing the script has no access to some of the files. Now I can solve this with on error resume next, but then I don't have controle over the situation. I would like to check if the user is able to read the file before copying it. That way I don't have to create all the subfolders at the destionation folder if it's empty. I also can open every file that I'm copying and see if this raises an error, but that seems a lillte to much overhead if you ask me. I'm sure that there is an easier way, but I have not found it yet.... Any help is surly appriciated.... Thanks in advance... Greetings Sander Tag: Good IDE to write JScript or VBScript Tag: 170165
  - 5
    - Multiple Computer System Restore disable script Hi, I'm trying to run a script on my Network to disable System Restore on every computer in the Domain. This is what it looks like: On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT CN FROM 'LDAP://dc=domainname,dc=com' WHERE objectCategory='computer'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strComputer = objRecordSet.Fields("Name").Value ' ===================================================================== ' Insert your code here ' ===================================================================== Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default") Set objItem = objWMIService.Get("SystemRestore") errResults = objItem.Disable("") ' ===================================================================== ' End ' ===================================================================== objRecordSet.MoveNext Loop I'm not sure if there is anything run with it but it's not working. Could somebody help?? Tag: Good IDE to write JScript or VBScript Tag: 170161
  - 6
    - Excel formatting using vbscript Hi all, I'm searching for he code how to align the text in a cell to centered. anybody an idea? -- K0b3 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Good IDE to write JScript or VBScript Tag: 170159
  - 7
    - Wait for the install to finsh! Please! I am launching an install with setup.exe and need the script to wait until the install (msiexec) has completed before moving on, I have tried several command and none of them seem to work... In a vbs I am trying to uninstall any old version of NAV they have and then install the new version of NAV with the settings we want. All done with no user interaction. I am launching the uninstall with "start /w msiexec /x {GUID HERE} /qn REBOOT=REALLYSUPPRESS" And then the install with "start /W setup.exe /v""/qb+ ADDLOCAL=SAVMain,SAVUI,SAVHelp,EMailTools,OutlookSnapin,Pop3Smtp,QClient ENABLEAUTOPROTECT=1 RUNLIVEUPDATE=1 NETWORKTYPE=1 SERVERNAME=MANAGED REBOOT=REALLYSUPPRESS /l*v c:\SAV9Inst.Log"" ",1,True" I am using objshell.run "......" for both the install and uninstall. The wait command does not seem to work, it launches msiexec so when setup.exe exits it thinks it is done. How can I do this? Should I be uinsing the Windows Installer method instead? I cannot find a lot details on the use of this method. TIA. Regards. Tag: Good IDE to write JScript or VBScript Tag: 170157
  - 8
    - Add/Remove users to a machine. Is there a better way to do this? I need to make sure that one account (SMS_connection) is on all machines with domain accounts. I set it up as a startup script / GPO, and it seems to work well. I also need to remove 2 accounts 1 local,and 1 a domain account. Is there a better way? By removing the user "local_dummy" from the users group I effectively remove it from the machine...right? How would I go about removing the actual account from the machine? IS there a better way? Thanks Here is the script... Set oWshNet = CreateObject("WScript.Network") sUser = "SMS_connection" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group") Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user") On Error Resume Next oGroup.Add(oUser.ADsPath) sUser = "domain_dummy" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group") Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user") On Error Resume Next oGroup.Remove(oUser.ADsPath) sUser = "local_dummy" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Users,group") Set oUser = GetObject("WinNT://" & sComputer & "/" & sUser & ",user") On Error Resume Next oGroup.Remove(oUser.ADsPath) On Error GoTo 0 Tag: Good IDE to write JScript or VBScript Tag: 170154
  - 9
    - Creating printers through the registry I'm writing a script which creates printers with the PrnAdmin.dll. This means that I can't control the entire configuration of the printer. I'm beginning to wonder about the alternatives. Have anybody any experience with creating printers by editing the registry? Or have you tried to create the printer and then modify the registry to configure the printer (setting proper defaults). Ayy suggestions and hints will be most welcome. greetings, Tag: Good IDE to write JScript or VBScript Tag: 170153
  - 10
    - Client-Side Cache Script Automation Greetings, all! The local cache for Offline Files and Folders can be reset by holding CTRL+SHIFT and clicking the Delete Files... button in the Offiline Files and Folders dialog. Is it possible to automate this step with VBScript or something similar? Any assistance is greatly appreciated. Thanks for your time! - SB Tag: Good IDE to write JScript or VBScript Tag: 170151
  - 11
    - Getting Word Application Instance - How can I use VBScrtipt to determine wheather a particular Workd Instance is running on my computer, that has been created by the Script. For example Set oAppWord = CreateObject("Word.Application") 1. Before I execute the statement I would like to check if an instance is allready running on the client computer 2. I want to save the ProcessID and close if an error occurs in the program Thanks in advance Chris Andreou Tag: Good IDE to write JScript or VBScript Tag: 170147
  - 12
    - Account DISABLED date tracked in AD? Hello, Is there a way to obtain the date (and time if possible) that an account in AD was Disabled? Thanks, Troy Tag: Good IDE to write JScript or VBScript Tag: 170146
  - 13
    - removing the "password never expires" setting from AD accounts Hello, I have a script which goes through local accounts (on member servers and professional workstations) and ensures the password never expires option in NOT set. Now I'm trying to convert this script to work on domain controllers with active directory accounts. Basically the script enumerates all the accounts in Active Directory and then attempts to unset any password never expires options. Where I'm having problems is the conversion between the WINNT and LDAP providers. Line 8 (which is commented out) in the script below is from the working, local accounts, version of the script. Line 9 is my attempt to translate line 8 for use with Active Directory accounts. Lines 13-18 are directly from the other script too. Line 9 is broken; any help anyone can provide with regard to the proper syntax is greatly appreciated. 1. Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 2. Dim usrFlagsValue 3. 4. set objContainer = GetObject("LDAP://cn=Users,dc=mydomain,dc=local") objContainer.Filter = Array("User") 5. 6. For Each objLocalUser In objContainer 7. strUser = objLocalUser.sAMAccountName 8. ' Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user") 9. Set objUser = GetObject("LDAP://cn=" & strUser & ",dc=mydomain,dc=local") 10. 11. usrFlagsValue = objUser.Get("UserFlags") 12. 13. ' Check to see if the bit for password never expire is set; 14. ' The Xor operator toggles any "on"s to "off"s 15. If (usrFlagsValue AND ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then 16. usrFlagsValue = usrFlagsValue XOR ADS_UF_DONT_EXPIRE_PASSWD 17. objUser.Put "userFlags", usrFlagsValue 18. objUser.SetInfo 19. End If 20. Next Tag: Good IDE to write JScript or VBScript Tag: 170145
  - 14
    - error when working with CDOEXM to retreive data from remote Exchange Hi, I desperetly seek for help here. I'm running this script from my local machine (2003 server) and try to connect to the exchange on a different server. I have all the CDO obejcts installed: 1 Set iExs = CreateObject("CDOEXM.ExchangeServer") 2 iExs.DataSource.Open "inquire-exch" 4 For Each storegroup In iExs.StorageGroups 5 Next As a result, I'm getting the following error on line number 4: C:\a.vbs(5, 1) (null): There is no such object on the server. Facility: LDAP Provider ID no: 80072030 Microsoft CDO for Exchange Management when running the script on the exchange serveri itself, no problem occur. I also have administrator priviliges on the exchange server. Any idea what could be the problem here? Thanks! Alon Tag: Good IDE to write JScript or VBScript Tag: 170144
  - 15
    - Empty file problem Hello all, I created a cheap download script to download files. It works great on almost ever user we have, except for a few. I think there is some type of configuration problem on the server or browser, but I wanted to check with you guys first. Here is the script. Set objXML = Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", FilePath, False objXML.Send '// SafeFullFileName is the file we are downloading. We check to be sure it exists, right format, etc. Response.AddHeader "content-disposition","attachment;filename=" & SafeFullFileName Response.ContentType = "application/" & SafeFullFileName Response.BinaryWrite objXml.ResponseBody Set objXml = Nothing Thanks for the help. Tag: Good IDE to write JScript or VBScript Tag: 170142
  - 16
    - Loop through dictionary object I am writing a script that reads and test file, and then creates a dictionary based on set criteria. Each key that is added to the dictionary is appended with a number. This bit works OK. What I then need to do is output the data held in the dictionary, based on the first letter of the dictionary key. I need to do some sort of loop through the dictionary, that will look for all intances starting with "1", then all starting with "2", until it reaches the end of the dictionary. This piece of script will echo each key starting with "1", but I then need it to loop and show "2" etc etc. I have tried adding a Loop function, with an incremental counter i.e. n=0, n=n+1, but it's not quite doing what I need. Set objDictionary = CreateObject("Scripting.Dictionary") Set objDictionary = CreateObject("Scripting.Dictionary") objDictionary.Add "1_file.txt", "1" objDictionary.Add "2_file.txt", "2" objDictionary.Add "3_file.txt", "3" colKeys = objDictionary.Keys For Each strKey in colKeys if Left (strKey,1) = n then Wscript.Echo mid(strkey,InStr(strKey,"_")+1) Next colItems = objDictionary.Items For Each strItem in colItems if Left (strItem,1) = "1" then Wscript.Echo strItem Next Tag: Good IDE to write JScript or VBScript Tag: 170132
  - 17
    - User Generated Content I need to setup a webpage that generates links to documents based on the persons locally logged on username. The script below does the job, however I need the text "Please Click Here" to be hyperlinked to another page, I have tried doing a normal a href tag but this would not work. Any Ideas....... <script type="text/vbscript"> function greeting() i=UserName If i = administrator then document.write("Hello Administrator! Please click here") elseif i = sysadmin then document.write("Hello Sys Admin!") elseif i = Guest then document.write("Hello Guest!") elseif i = Internet then document.write("Hello Internet!") else document.write("You are not an authorised user") end if end function </script> Any help would be appreciated Tag: Good IDE to write JScript or VBScript Tag: 170131
  - 18
    - How to use vbscript to copy a header from one Word document to another I'm having trouble figuring out how to use vbscript to copy a header from one Word document to another. The code below generates an error message telling me that the requested object doesn't exist i.e., the error is produced by this line: Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text However, the document does have two sections, and each section does have a header. So, I'm stumped. Any suggestions (preferably with explanation, or a clue where I can learn what I'm doing wrong, etc.) would be much appreciated. Thanks, marceepoo Here's the code: Dim sSourcDocFulnam, sTargetDocFulnam sSourcDocFulnam = "C:\Apps\test.speedText.doc.dot" sTargetDocFulnam = "C:\Apps\New Microsoft Word Document.doc" ' Set objWord = CreateObject("Word.Application") ' Set objSourcDoc = objWord.Documents.Open(sSourcDocFulnam) Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' Set objTargetDoc = objWord.Documents.Open(sTargetDocFulnam) Set objTargetRange = objTargetDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' objTargetRange = objSourcRange Tag: Good IDE to write JScript or VBScript Tag: 170129
  - 19
    - ReDim + 2 Dimensional arrays = Errors! I have an annoying problem where my array is unable to redim whilst in a loop. I cant seem to see what the problem is, the code below shows that the array is originally redim'd at the beginning creating a 2 dimensional array. In the loop I want to increase the size of the array by 1 so I can add an extra item in the array Here is my code: dim myarray() redim myarray(1,2) for i = 0 to 10 myarray(i,0) = i+1 myarray(i,1) = i*100 response.write myarray(i,0)&"<br>" response.write myarray(i,1)&"<hr>" redim preserve myarray(i+1,2) next My result with error: 1 0 -------------------------------------------------------------------------------- 2 100 -------------------------------------------------------------------------------- Microsoft VBScript runtime error '800a0009' Subscript out of range /test2.asp, line 19 Any help would be appreciated, John Watson Tag: Good IDE to write JScript or VBScript Tag: 170127
  - 20
    - Telnet object Does anybody know of any good telnet class or objects?(ocx) We need to configure a many pieces of hardeware and it will take about an hour per unit and of course human error will happen. It would be nice to promatically configiure. Tag: Good IDE to write JScript or VBScript Tag: 170123
  - 21
    - Sending a Fax I am using the VB Script below to send an XLS file to a fax number, the problem is there is no cover page or information to say where the fax is from, who it is for etc, so all the recipient recives is the XLS (Excel)file. Can multiple files be faxed so that I can specify a cover page file as well as the main file that I want to send? or is there a way of entering more code to the example below to create some kind of header to the fax? Set doc=CreateObject("FaxComEx.FaxDocument") Set server=CreateObject("FaxComEx.FaxServer") Dim JobID server.Connect "mhsmngbntsa14" doc.Body="MY XLS FILE" doc.DocumentName="Sample Fax" doc.Recipients.Add "FAX NUMBER" doc.Priority = 1 JobID = doc.ConnectedSubmit(server) Im not a VB programmer so any feedback will have to be in baby talk! Thanks. Tag: Good IDE to write JScript or VBScript Tag: 170122
  - 22
    - WMI Timeout on Remote Computer Hi, I am having problems with running WMI query against a few remote Windows 2000 computers. Although the computer is turned on, the script just seems to hang for ages. Is there any way I can set a timeout so if no values are returned within a certain timeframe, the script will go on to the next computer? Thanks for any help... Tag: Good IDE to write JScript or VBScript Tag: 170121
  - 23
    - convert VB script code to vb application This is a multi-part message in MIME format. ------=_NextPart_000_0032_01C51447.56A8BE20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I am wondering is there a way to convert a vbscript code to vb code and = compile to be an .exe? and the exe would allow arguments.=20 thanks Frank ------=_NextPart_000_0032_01C51447.56A8BE20 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.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am wondering is there a way to = convert a vbscript=20 code to vb code and compile to be an .exe? and the exe would allow = arguments.=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV></BODY></HTML> ------=_NextPart_000_0032_01C51447.56A8BE20-- Tag: Good IDE to write JScript or VBScript Tag: 170111
  - 24
    - Dropdown (<select></select>) z-index problem I know there is a problem. But what will be the solution? Mydiv is the 1st z-indexed element. But at the back ground there is a <select> element and they are overlapping visually. any suggestions? Tag: Good IDE to write JScript or VBScript Tag: 170110
  - 25
    - Registry question Hope someone can help, I want to be able to search the registry for a particular SubKey, if that key is found then I want to delete the key... I have put together a script that will enumerate the subkeys, but I am stuck at this point... can someone help. Option Explicit Dim WSH Dim strComputer Dim objReg Dim strKeyPath Dim arrSubKeys Dim SubKey '########################################################################### ######################################### Const HKEY_LOCAL_MACHINE = &H80000002 Const DELETE = &H00010000 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Network Associates\ePolicy Orchestrator\application plugins" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 'For Each Subkey In arrSubKeys 'WScript.Echo SubKey what I would like to do next is after the Keys are displayed I want to check for a particular SubKey and if it exists I want to delete it. Thanks Gavin... Tag: Good IDE to write JScript or VBScript Tag: 170096

Hi guys,
anyone of you knows a good IDE to write JScript or VBScript? The basic
funcionalities I need are: code completion, syntax highlighting and
intellisense.
I'd like this software it's free :)

Iis it possible write JScript or VBScript using Visual Studio .NET 2003.

Thanks,

Davide

Top

Re: Good IDE to write JScript or VBScript by Torgeir

Torgeir
Fri Feb 18 07:08:18 CST 2005

Multipost; response in .wsh

Multiposting vs Crossposting
http://www.blakjak.demon.co.uk/mul_crss.htm

and

Please don't multi-post.
http://www.aspfaq.com/etiquette.asp?id=5003

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top

Re: Good IDE to write JScript or VBScript by Jussi

Jussi
Fri Feb 18 21:24:23 CST 2005

Xfobico wrote:

> anyone of you knows a good IDE to write JScript or VBScript? The basic
> funcionalities I need are: code completion, syntax highlighting and
> intellisense.

Zeus for Windows comes with support for JScript and VBScript. Here
is a list of some of the Zeus programming features:

http://www.zeusedit.com/features.html

> I'd like this software it's free :)

Zeus is shareware, cost $35-00, and the shareware version runs
fully functional for 60 days.

Jussi Jumppanen
Author of: Zeus for Windows (New version 3.94 out now)
"The C/C++, Cobol, Java, HTML, Python, PHP, Perl programmer's editor"
Home Page: http://www.zeusedit.com

Top