Bringing IE to focus from add-in

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
    - Help with Calculation of Multiple Records I need help in calculating a score for each employee based on values submitted from drop-down boxes Example: Emp1 TeamScore(1-10) Emp2 TeamScore(1-10) Emp3 TeamScore(1-10) Emp4 TeamScore(1-10) Emp5 TeamScore(1-10) I want to take the values from each drop-down and multiply them by a weighted score that I get from another database table (ie 0.11 etc) I get a Type Mismatch (string) error when I run the following code: MLevel2 = "0" On Error Resume Next Set C9 = Server.CreateObject("ADODB.Connection") C9.Open "Provider=sqloledb;Data Source=ebs-sqlc1-vs3.edn.runi.com\SSS;UID=casuser;PWD=hppccas;DATABASE=skills" Set rsScors= Server.CreateObject("ADODB.Recordset") sSQ5 = "Select * from WgtScore where org = '" & session("orgg") & "' AND mgmtlevel = '" & MLevel2 & "'" rsScors.Open sSQ5, C9, adOpenKeySet,adLockReadOnly, adCmdText D5 = rsScors("QDiv5") SS5 = "0.0" S11 = round(rsScors("WS1"),2) rsScors.close set rsScors = Nothing strID = split(request.form("Emp"), ", ") QQ1 = split(request.form("Q1")* S11,",") FOR i = LBound(strID) TO UBound(strID) sSQL = "UPDATE EAPcurrentyear SET Q1= '" & trim(QQ1(i)) & "' where (empid ='" & strID(i) & "')" C9.Execute(sSQL) NEXT C9.Close Set C9 = Nothing %> Any help with this would be Greatly appreciated. Tag: Bringing IE to focus from add-in Tag: 200002
  - 2
    - Enumerating files in a folder beginning with ... Hello, I want to do some DIR command with VBscript. The following code is what i already have: <code> Set objFolder = objFSO.GetFolder(DrvLetter & "\") Set colFiles = objFolder.Files For Each objFile in colFiles LogBO = LogBO & objFile.Name & ", " & VbTab & FormatNumber(objFile.Size * BytesToKB, -1) & "KB, " & VbTab & objFile.DateLastModified & VbCrLf Next </code> This script enumerate the file name, the filesize in KB's and the Last Modified date. Now i want to enumerate only the files beginning with export*.mdb. How can I do this? Thnx in advance, Cees van Altena Tag: Bringing IE to focus from add-in Tag: 199998
  - 3
    - How to call a remote vbscript from a .Net windows application? How to call a remote vbscript from a .Net windows application? For example, there are 2 PC in the network. one is PC1 and another one is PC2. 1. A vbscript is stored in PC1. 2. windows application in PC2. In the scenario above, is there any way to call the vbscript which is located in PC1 from the windows application in PC2. Tag: Bringing IE to focus from add-in Tag: 199996
  - 4
    - Logic connection between exchange mailboxes and AD? Hi! :) I need to get data on our user accounts and the associated exchange mailboxes. I can enumerate eather separatly but have failed to find a common property or anything to connect them. I'm sure it's something simple, but what? I intend to enumerate one and then search for the matching entries in the other. So a matching searchable property would be great! :) Thanks a million! :) /Sofia Tag: Bringing IE to focus from add-in Tag: 199990
  - 5
    - Merge script does not merge in order 1, 2, 3. Hi The problem is that the merge is not done in order. Instead of merging 1, 2, 3.. it merges 1, 10, 11, 12, 2, 20, 21 and so on.. Anyone got some good advise to solve this? Thanks in advance. ------------------------------------ Option Explicit dim oArgs: Set oArgs = WScript.Arguments Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") dim filefolder Dim filefolderN Dim CurrentFolder Dim Files Dim File dim objts dim strContents dim endoffilepos filefolder = "C:\Test\" filefolderN = "C:\Test\Data\" Set CurrentFolder = fso.GetFolder(filefolder) Set Files = CurrentFolder.Files For Each fileName In files If left(File.Name,13) = "NewTestData_1" Then Set objTS = File.OpenAsTextStream(1) strContents = objTS.ReadLine objTS.Close Set objTS = fso.OpenTextFile(filefolderN & "\NewTestData.", 8,true) objts.writeline strContents objts.close Set objTS = fso.OpenTextFile(filefolder & "\NewTestData.log", 8, true) strContents = "Merge Completed for " & File & vbcrlf objts.write strContents objts.close File.delete end if Next Tag: Bringing IE to focus from add-in Tag: 199986
  - 6
    - Registry Permissions & Win APIs Hello all, First of all, I'd like to apologize if this has been asked before. I searched the group several times and to my dis-belief my mail reader did not come up with results. I find this to be very suspicious. Anyway, below are my questions. I'd like to modify registry key permissions with VBS and I would like to do it by using the Win APIs. I have a key under HKEY_LOCAL_MACHINE that I want to give full rights to Administrators and System. I want to give read rights to power users and I want to revoke all other rights for all other users. I've done VB, but am new to VBS so please do not ostercize me for this noob question. I have found how to do this in VB using the RegSetKeySecurity function in advapi32.dll. However, I can't even open a key in VBS using RegOpenKey because I receive a VBScript compilation error on the declaring function saying "Expected Identifier" [code] Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long [/code] Also, in setting up some constants, I get a compilation error of "Expected Literal Constant" [code] Private Const KEY_SET_VALUE = &H2 Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) [/code] Is it possible to directly use the Windows APIs from VB Script? If it is possible, what do I need to do to make this work? If it isn't possible, then what can I do that will work on Win 2k, XP Pro, and 2003 to change the security permissions on a registry key? Thank you, Travis Tag: Bringing IE to focus from add-in Tag: 199982
  - 7
    - HTML Tabs I have 3 ASP pages. I want to create a simple Tabbed layout in DHTML or some FREE ware code which will host these 3 pages in 3 different tabs...Do you know if such free code to create tab available...any samples will help Thanks Tag: Bringing IE to focus from add-in Tag: 199979
  - 8
    - .bat to VBScript Will someone please be so kind as to help me translate a .bat to vbscript? I can't seem to do it despite my best attempts. Here's the .bat: @echo off "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BGInfo Server\BGInfo.exe" "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BgInfo Server\Server.bgi" /SILENT /NOLICPROMPT /timer:0 As you can see, I am trying to run the BGInfo app from a share. I don't want to copy the .bat to everyone's startup folder rather I would like to run the vbscript command from group policy logon script. Thanks for any help you can offer. Tim Tag: Bringing IE to focus from add-in Tag: 199978
  - 9
    - 'loop' without 'do' Error I am having trouble with the following script file. Please help!!! '========================================================================== on error resume next Set fso = CreateObject("Scripting.FileSystemObject") Set noton = fso.CreateTextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\error.log") ' path to error log '**************************** Start of loop ************************** set bF = fso.opentextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\ComputerList.txt",1) ' open list of machines Do While bF.AtEndofStream <> True strmachine = bF.readline If objFSO.FileExists("\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp") Then objFSO.DeleteFile "\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp", True If err.number <> 0 Then noton.writeline strmachine & err.number 'writes to noton.txt machine that error End If err.clear LOOP '*************************** End of loop ************************************ wscript.echo "DONE!" Tag: Bringing IE to focus from add-in Tag: 199976
  - 10
    - Problem with IE7 vbscript and javascript Hi I need to call a javascript function from vbscript: <script type=3D"text/javascript"> function JSAlert(str){ alert(str); } </script> <script language=3D"vbscript"> Sub VideoPlayer_onGoToURL(url,target) call JSAlert(url) End Sub </script> It doesn=B4t work, but if I put 'msgbox url' before 'call JSAlert(url)' works. Could somebody help me? Tag: Bringing IE to focus from add-in Tag: 199973
  - 11
    - On Change.. Hi, can anyone help me? I am trying to make an input box not visible or readonly when a slect box above is changed. Here's my code: <select name=selStake style="Width: 146px;"> <option value="Mentor">Mentor</option> <option value="Institution">Institution</option> <option value="None">None</option></select> And i would like to make this box invisible or readonly when the above selct box is changed to "None" : <INPUT name=InstName> Any ideas or suggestion will be highly appreciated.Thanks Tag: Bringing IE to focus from add-in Tag: 199966
  - 12
    - vbscript to view users connected to active directory Hi all, I need to view who is connected to my active directory 2003 domains controllers, anyone knows how to do that in vbscript/asp ? thanx in advance greets, Greg Tag: Bringing IE to focus from add-in Tag: 199962
  - 13
    - Script naming problem ( why i should not name my script as Telnet.vbs) Hi i have written a script to launch the telnet window. The code is contains the following line 'strPath = Path of the text file to store telnet session 'strHost = host name or IP address\ 'numPort = Port number Set objShell = CreateObject("Wscript.Shell") objShell.Run "cmd /k telnet -f "&strPath&" "&strHost&" "&numPort When i save this code as Telnet.vbs and run it, it opens many telnet windows ! I know that there is nothing wrong with code because when i rename it to something else, it works fine! Please inform me why i should not name it as Telnet.vbs (are there any restrictions or some thing else etc..?) Tag: Bringing IE to focus from add-in Tag: 199961
  - 14
    - Restart Services remotely Hi, Is there a way to connect to another system service.msc to start and stop remotely, using visual basic or .net. Thanks Pete Tag: Bringing IE to focus from add-in Tag: 199957
  - 15
    - Question regarding FileSystemObject I am currently working on a project to consolidate our customer's file & print servers and incorporate the data structures within a DFS-R design. I have been asked to initially produce a report detailing compressed files on the source server and calculate the amount of storage required to store this data in an uncompressed state. Using vbScript, is it possible to return the compressed size (or Size on Disk) from FileSystemObject, as opposed to the uncompressed size returned by objFile.Size? Any help would be greatly appreciated, Adam Tag: Bringing IE to focus from add-in Tag: 199956
  - 16
    - "Clever" way to avoid mapping a drive in network log copy operation? Hi, Goal - avoid using a mapped drive or //unc as I grab log files from multiple servers and copy them to my workstation. Solution Idea: Instead of copying files the traditional way - Since WMI seems to be able to communicate and stream data without a mapped drive, why should I bother? Can't I just use the port and protocol WMI/WSH uses to stream my data to variables and then write them locally: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strFilePath, True) ...pointing to a local file? Sounds deceptively easy but I don't see many people recommending or using this method. Pitfalls...am I missing something? Thanks! L, Samiam Tag: Bringing IE to focus from add-in Tag: 199943
  - 17
    - Lookup fields in active directory I have a third party program that creates e-mail signatures which I run from the users login script. Unfortunately the program does not alter the signature template correctly if a field is blank. There's really only one field that I'd want to check: Mobile Phone. Here's what I'd like to do in the login script. If the mobile phone field is blank run command1 else run command2. I think I can manage the if...else statement, but how do I retrieve the mobile field from active directory. Can anyone help? Thanks ab Tag: Bringing IE to focus from add-in Tag: 199942
  - 18
    - Using SendKeys to respond to a prompt... Hi- My environment is Windows 2003 Server SP1. Is it possible to respond to a command line confirm prompt using send keys? If so, could someone point me to an example? I've not been able to figure out a way to do this. The scenario is this: I'm using the command line interface of PGP 7.0x to encrypt a file before transferring it and the process prompts for a 'Y' to confirm use of the specified public key. I reviewed PGP documentation and there is no parameter available to suppress this so I'm trying the sendkeys approach as a workaround. I have no problem calling the PGP executable, but I can't get a 'Y' and 'enter' sent to it to get by the prompt.. Any help would be greatly appreciated. Thanks Tag: Bringing IE to focus from add-in Tag: 199936
  - 19
    - Microsoft VBScript runtime (0x800A0005) in ASP Hi members, When I try to copy a folder contents into another folder of the same application path, I get Microsoft VBScript runtime (0x800A0005) Invalid procedure call or argument. Can anybody solve this? Tag: Bringing IE to focus from add-in Tag: 199931
  - 20
    - Vista computername change Hi, How do I write vbscript that change Windows Vista computername? I can run vbscript in vista, but do not know code that allow me to change computername stored in variable. Thanks! Tag: Bringing IE to focus from add-in Tag: 199928
  - 21
    - Get csvdata to server for processing to BE datasource Hi all, I'm new to asp.net, and using Visual Web Dev express. As such I cannot see the spreadsheet control and directly access the object properties from the VB code in the back of my page. I have declared it as an object as follows: <object classid="clsid:0002E559-0000-0000-C000-000000000046" id="Spreadsheet1" name="Spreadsheet1" style="width: 331px; height: 215px" > note: all users have Office 2003 Web Components Can only interact with this user entered data client-side, via "document.all.item("Spreadsheet1").csvdata" <input type=hidden id="TextBox1" name="TextBox1" /> Can only use this client side, so I can't get the contents of spreadsheet in here and use it on the server. (If someone knows how it can be done, please share ) <asp:TextBox ID="TextBox2" runat="server" TextMode="MultiLine" AutoPostBack="True" Height="76px" Width="99px" Visible="false"></asp:TextBox> This is an asp box, so users can interact with, but it is not recognized in client side vbscript. It works if I make it visible and paste directly. I was also unsuccessful at getting a javascript function to recognize this textbox. I kept getting "Object Required" errors. What I am trying to do is get the csvdata into my temp table. I tried to do it in the following function (VB on back) and it works if I can get the data: Private Sub fnBeforePaste(ByVal txtPassed As String) Dim i As Int32 Dim Idata() As String = Split(txtPassed, Chr(13) & Chr(10)) 'or use Environment.Newline If InStr(txtPassed, Environment.NewLine) Then MsgBox("Environment.Newline") For i = 0 To Idata.GetUpperBound(0) - 1 Dim stCells() As String = Split(Idata(i), Chr(9)) 'or use ',' for csvdata stCells(0) = Replace(stCells(0), Chr(10), "") If Len(stCells(0)) < 2 Then GoTo ExitPasteGrid AccessDataSource2.InsertCommand = "INSERT INTO Temptbl (ESN,[MIN]) SELECT '" & stCells(0) & "' AS Expr1, '" & stCells(1) & "' AS Expr2;" '"INSERT INTO Temptbl ( ESN, [MIN] ) SELECT " & stCells(0) & "," & stCells(1) AccessDataSource2.Insert() Next ExitPasteGrid: 'TextBox2.Text = "" GridEntry.DataBind() End Sub This way I can run a query in the database, and return the query results in a second grid on the page. I have to use something easy for users to enter two columns of unknown rows of numerical text values in a temp table in order to join it to the other query table. Any suggestions on how to approach this problem are much appreciated. :) Tag: Bringing IE to focus from add-in Tag: 199925
  - 22
    - Silent Copy Options I am using the following: Set DestFldr=objShell.NameSpace(Ag(1)) Set SrcFldr=objShell.NameSpace(Ag(0)) Set FldrItems=SrcFldr.Items DestFldr.CopyHere FldrItems, &H214 However, I continually get prompted to overwrite files. Is there a way to answer "YES FOR ALL"? I thought I have the options correct. TIA Mark Tag: Bringing IE to focus from add-in Tag: 199923
  - 23
    - Create and array from a CSV file I am in the process of writing a script to rename some computers based on 3 characters of their current computer name. I have the code to change the name, but I need a way of getting the new 3 character site code based on the old 3 character site code. The CSV file is formated as follows: OLD CODE, NEW CODE AL1, AUL BGS, BHG ZHG, ZGH I need help with creating an array and then reading into it the 2 columns of data. Then I need a way of extracting the correct new site code based on the old site code. Any help would be greatly appreciated as I am now banging my head against a brick wall......!!! THanks Keith Tag: Bringing IE to focus from add-in Tag: 199916
  - 24
    - Script to check the ownership of cluster quorum I need a script to check the ownership of the cluster quorum and if it's owned by the host the script runs on it should fail the quorum . Can anyone help me with this ? thanks Stefano Tag: Bringing IE to focus from add-in Tag: 199915
  - 25
    - Read text fiile help.......... Hi there I need some help with reading a CSV file............ I have three parameters I will obtain from the pc, A, B and C. And then I have a csv file list with different values for A, B and C I need some help reading the text file such that it will first read all the entries for value A in the text file and find a match and then find the match for value B and then find the value for C............ Something like Read Text file for A and find match Read text file for B until match Read Text file for C until match Basically I want to match values A, B and C then do something Many thanks Tag: Bringing IE to focus from add-in Tag: 199909
- Next
  - 1
    - IE sequencing and cookie notification popups Something has been annoying me lately when my script brings up IE and navigates it to certain pages. I am getting multiple popups asking me whether I want to allow cookies from the site, and do I want to uniformly allow free access or block them? These popups seem to happen whether or not IE is visible, and the popups can even stick around after the script has terminated and IE has been (or at least attempted to be) dismissed: Set ie = CreateObject ("InternetExplorer.Application") ie.Navigate2 "http://search.ebay.com/search/search.dll?...blah...blah...blah" ... ie.Quit So, how can I get rid of these pesky popups? The pages navigate fine (pretty much), and the script runs through to completion (I have a sequence of page navigations), so these cookies are not that important for me to set, but I don't want to deny them uniformly since that might affect my personal browsing. What I'm saying is: I don't want to have these cookie notification popups when I am bringing up IE via script, but otherwise they are serving a useful purpose. Any tips on how to turn this off for scripted IE (IE 6 on Win XP Pro)? Thanks, Csaba Gabor from Vienna Tag: Bringing IE to focus from add-in Tag: 199906
  - 2
    - string combination script? Does anyone have an example of vbScript that provides a listing of all string permuations from a given input string? It appears to be more difficult to actually get a VbScript example that works - I can find php, java etc etc examples... but not vbscript.... Tag: Bringing IE to focus from add-in Tag: 199904
  - 3
    - reading after xmlHTTP.responseText ? Hello What is the instruction for reading line after line in a file open with xmlHTTP.Open ? for a tTextStream I use this : Set myText = FSO.OpenTextFile(myFile, 1) Do While Not TxtCstes.AtEndOfStream S = TxtCstes.Readline Loop with xmlHTTP, I use this : xmlHTTP.Open "GET", sSource, bGetAsAsync xmlHTTP.Send ' send it (to the web, wait for result) playlist = xmlHTTP.responseText ' (note: as TEXT) Do while ? ? Loop It should be simple but I don't know the right instruction Thanks Tag: Bringing IE to focus from add-in Tag: 199900
  - 4
    - disable/enable NIC? in WMI, is there a way to enable and disable a NIC on your local computer? if so how? Tag: Bringing IE to focus from add-in Tag: 199899
  - 5
    - Problem solved: Opening a Word document based on a particular template A few weeks ago, I was trying to get help with a .vbs script that would open a new Word document based on a particular template. The problem was that running the template directly from the .vbs file opened the template as a document, instead of opening a new blank document based on the template. There were VB script ways of doing this that folks here showed me, but they were clunky. But there's a simple answer I just realized: open the new document based on the template through Word itself, like this: ' Grab Word. Dim oWd On Error Resume Next Set oWd = GetObject(, "Word.Application") ' If Word is not open, open Word. If TypeName(oWd) <> "Application" Then Set oWd = CreateObject("Word.Application") End If ' Run code that opens a new document based on the template If oWd.WindowState <> 0 then oWd.WindowState = 0 oWd.Visible = True oWd.Activate oWd.Documents.Add ("Template.dot") Tag: Bringing IE to focus from add-in Tag: 199898
  - 6
    - Delete User I use "Net User Name Delete". This user is on an local member on an comuter that is member of Domain, its not work. Whats wrong ?? Any Ide Erik Gjertsen Norway Tag: Bringing IE to focus from add-in Tag: 199896
  - 7
    - Create Foulder I need to create folder with premission. Administrator have full control User have change premission. Thanks Erik Gjertsen Tag: Bringing IE to focus from add-in Tag: 199895
  - 8
    - Create Partition on HD I nead to create script that create on E partition on a harddisk. I shal use rest of free spayse. It is posible ? thanks Erik Gjertsen Tag: Bringing IE to focus from add-in Tag: 199894
  - 9
    - Need Help I found this great script that will end a windows process (I am not a programmer) I would like to add one more item of logic. For example, this script kills the "calc.exe" process but I only want to stop it if is using more than 120,000 K of memory. Can some one please assist me? Thanks! ' ProcessKillLocal.vbs ' Sample VBScript to kill a program ' ------------------------ -------------------------------' Option Explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer = "." strProcessKill = "'calc.exe'" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WSCript.Echo "Just killed process " & strProcessKill _ & " on " & strComputer WScript.Quit ' End of WMI Example of a Kill Process Tag: Bringing IE to focus from add-in Tag: 199889
  - 10
    - installing the windows installer provider Does anyone have any ideas for installing the windows installer provider on a group of server 2003 machines? I am looking for a script or a way to do it via group policy. Tag: Bringing IE to focus from add-in Tag: 199884
  - 11
    - Detecting OLEDB jet provider or DAO version We will compact access database on many w2k machines. We don't know what oledb jet provider or dao version are running on machines. How can we detect the oledb jet provider or dao version installed? Thanks. Tag: Bringing IE to focus from add-in Tag: 199883
  - 12
    - Calling an Oracle Stored Procedure in VB Script I wrote a WMI script to populate some server info into a DB. Our DBA wrote the SP. So now i want to run the exact same SP update from within my WMI script - this is failing - what am i doing wrong? I know i'm connecting to Oracle just fine - i can run a adodb.recordset and parse thru entries - no prob. i get an error from the Ora provider telling me that "non-numeric value where numeric was expected..." This SP provides not returned data - it just takes inputs. _________________ strConnection = "Provider=OraOLEDB.Oracle;Data Source=CSDD;User Id=myuserid;Password=mypassword" Set conn = CreateObject("ADODB.Connection") conn.Open strConnection Set Comm = CreateObject("ADODB.Command") Comm.ActiveConnection = conn Comm.CommandText = "BEGIN CSD.UPDATE_WINDOWS_SERVER('EMTTULDMZWEB01', 254, 3, 'PowerEdge 2450', 200, 1024, 2, 993, '6/1/2001', 'DMZ', 54508896256, 5858009088);END;" Comm.Execute conn.Close Set conn = Nothing Set Comm = Nothing _____________________________ This command below runs perfectly well from the SQLPlus > prompt - so i think the stored proc is working on the Oracle side: ____________ SQL Plus userid/password@DB > EXEC CSD.UPDATE_WINDOWS_SERVER('EMTTULDMZWEB01', 254, 3, 'PowerEdge 2450', 200, 1024, 2, 993, '6/1/2001', 'DMZ', 54508896256, 5858009088) ____________ Tag: Bringing IE to focus from add-in Tag: 199882
  - 13
    - dummy collection for testing Hello everyone and thank you in advance for your help. I am writing a script that queries Active Directory for information as such: set oGrp = GetObject(path) mems = oGrp.GetEx("member") I'm writing most of this script off-site, so I don't have access to AD. I'd like to create a dummy collection like that which is returned by oGrp.GetEx( "member" ) so I can test the rest of my code. Is Dictionary my best option? Does anybody have any other suggestions? Matt Carlino Tag: Bringing IE to focus from add-in Tag: 199878
  - 14
    - CDO Multiple attachments Hi Can anyone tell me how to send multiple attachments with CDONTS? Thanks Leon Tag: Bringing IE to focus from add-in Tag: 199876
  - 15
    - Proof of Concept: Bat & Vbs Mixed Programming Proof of Concept: Bat & Vbs Mixed Programming By est, electroniXtar (from) GMail.com University of Electronic Science and Technology of China, http://www.uestc.edu.cn/ vbs.bat :On Error Resume Next Sub bat echo Batching_codez_here_following_vbs_rules & pause start wscript -e:vbs "%~f0" Exit Sub End Sub MsgBox "This is vbs" Save the code above as vbs.bat, double click it, and you'll find a Batch echo: Batching_codez_here_following_vbs_rules and after press any key, you'll find a vbs prompt saying "This is vbs" These little code costed me a whole night >_< So I think it's worth commentating. :On Error Resume Next In batching, any character that follows the colon : will be neglected. So the first line means same as rem On Error Resume Next But this line fucking useful for the 6 lines bellow. start wscript -e:vbs "%~f0" First I thought about wscript //e:vbscript ~%f0" And the vbscript interpreter could not recognize // even I "Resume Next". So after many trials and errors, finally I got this line both right for cmd.exe and wscript.exe. For cmd.exe, it launched the batch file itself, "%~f0". Instead of using %0, I choose %~f0. For example, you save this vbs.bat in directory D:\test, then you type these commands in cmd.exe D: cd test vbs Stop! Now, %0 is vbs , and for %~f0 is D:\test\vbs.bat ! wscript.exe will not start vbs.bat if you just run wscript -e:vbs vbs Another problem, if I save this vbs.bat in a directory like C:\Documents and Settings\Administrator\Desktop\vbs.bat, quotes are needed to make "Documents and Settings" complete string. So what may wscript.exe regard this line? start wscript -e:vbs "%~f0" "start" here possibly means a undefined Function() or Sub(), it's called with the variant named wscript, after this Function(), it's return value substract "e", "e" here is, maybe, another undefined variant like "wscript". The following : is a colon separating two statements in vbs grammar. The statement on the right of the colon : asks wscript.exe to call a function named "vbs" the the parameter "%~f0". After all, our dear wscript.exe is cheated, and cmd.exe is fooled! Now this little code is using wscript to call itself to run like a real vbs, but, on the other hand, cmd.exe is trying to understand every line of the fake bat file. I have to do something to stop that, using "exit", but in vbs exit is a keyword, you must exit Exit Do, Exit For, Exit Function, Exit Property, or Exit Sub. And to me, Exit Sub looks good, so in the second line of my code I wrote Sub bat cmd.exe may look for a external program called sub.exe, and normally this program does not exist, so go on, after start wscript -e:vbs "%~f0" we Exit Sub To cmd.exe, the batch quits. To wscript.exe, the Sub() exits. And after that End Sub cmd.exe is over now, so wscript will just regard an end of a usual Sub(), but as a bat file, it succesfully launched itself just like a vbs. You may ask: why must I do this after all? I just use a bat to "echo" out a genuine *.vbs file, and wscript that *.vbs and that's all? Truely this is the normal ways people call scripts between bat and vbs. But think about an extra large vbs? I have an experience here. I wrote a vbs that can spawn a 400KB file, the vbs itself is 600KB, and I tried to "echo" out the vbs in a 700KB bat file, what happened? My XP SP2 rush up to 1.5GB memroy cost for 1 minute, and failed to spawn that 400KB file saying: "vbs error in line (2,7): Not enough memory to create a string". If I use the little codez above, wscript will run quite well just like a real vbs. Another advantage of my code is, no tmp file needed for switching between two languages. simply write batch code above start wscript -e:vbs "%~f0" and write vbs code below it! Hope everyone can find extra usage of my code. Thanks for taking time reading my article. If you have any better ideas, please let me know. MSN: electronixtar (from) msn.com Blog: http://www.dormforce.net/blog/electronixtar Tag: Bringing IE to focus from add-in Tag: 199874
  - 16
    - get a format like "000"? hallo, I have a result number=5. how can I format it to a string with 3 chars , so: 005 thanks frank Tag: Bringing IE to focus from add-in Tag: 199869
  - 17
    - add multiple local users to local group - but theres a catch Hi, How can i say add any account beginning with anon to group1, group2 and group3? To try and be clearer, on a system say if i've five local anon accounts (anon001,anon002,anon003,anon004 & anon005). How can i get a script to add any account beginning anon to the desired local groups? Many thanks Tag: Bringing IE to focus from add-in Tag: 199867
  - 18
    - Howto read particular fields from a CSV-file Hello, I am completely new to scripting. The problem is I have to come up with some kind of script to read out a particular column from a CSV-file. I only need the last 4 or 5 characters from the information which looks like this for example: Column A Row 1 FR00000FG3AT08 Row 2 FR00000FG3AR06 Row 3 FR00000FG3A402 . . . So what do I need to read out the last few characters? For example ROW1 "G3AT08" Now, if I have this information, I need this information to trigger a printout of a TXT-file wich is saved in a particular folder. The TXT-file hase the exact same characters in ist filname. What I want to do is: Read out the CSV, take this info and trigger a printout of TXT-files saved in a folder on my pc. It=B4s just to synchronize the printorder regarding the order in the CSV-file. Sadly I can=B4t just use some kind of "sort by function" by windows (explorer) cause the files are not in alphanumeric order. One more problem: The CSV is generated by an OCR-process and sometimes has one space in between. The last digits are read out correctly anyway. Can someone help me please? Do you know what I mean? =20 Thanks from Germany Damien Tag: Bringing IE to focus from add-in Tag: 199863
  - 19
    - Need help with reading input file and outputting from an Array! Am fairly new to VB Scripting, however i am trying my best to put a script together to do the following: Basically i have a file full of usernames in the form: John Doe; Jane Smith; William Bill; Etc etc; I need to input these usernames in the following command: wls "Administrator/Usernames" | grep STEP It has to include the parenthsis / apostraphies. I want to output the results in a file called output.txt or echo it to screen. So far i have the following: '*** VBSCRIPT - GET STEP ADMINISTRATORS *** ' '*** THIS SCRIPT IS DESIGNED TO BE RUN ON A MANAGED NODE ONLY *** ' 'Declaring variables Dim objFSO 'Object file system Dim objStream 'Object for entering inputfile Dim strText 'Variables to contain lines from inputfile Dim objWshShell 'Object shell Dim arrField 'Array which contains mapping info after Split function Dim outputArray 'Output of the Array 'Creating object objWshShell Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWshShell = Wscript.CreateObject("Wscript.Shell") '*** CHECKS LIST OF ADMINS AND GREPS WHATEVER*** Set objStream = objFSO.OpenTextFile("g:\input.txt", 1) Do While not(objStream.AtEndOfStream) strText = objStream.ReadLine arrField = Split(strText,";") Err.Clear On Error Resume Next outputArray = "wls " & chr(34) & Administrators/arrField(0) & chr(34) & " "| grep "STEP"",0,"true" objWshShell.Run(outputArray) Wscript.Echo ""arrField(0)" \ "outputArray"" if Err.Number <> 0 then Wscript.Echo Err.Number, Err.Description, Err.Source end if Loop objstream.close What am i doing wrong? Any help greatly appreciated. Cheers Tag: Bringing IE to focus from add-in Tag: 199859
  - 20
    - objFolder.LastModified Please explain objFolder.LastModified to me. Does it mean the folder name last modification or files in the folder last modification? I want to identify folders on a server which files has not been modified for the last 2 years Tag: Bringing IE to focus from add-in Tag: 199858
  - 21
    - Machine startup script privileges Hi to all. I'd like to know what is the best way to run a Machine Startup Script (via GPO) that installs an application (installshield .exe) in the computer. The users that log on the computer have no admin privileges, so I need to use a Machine startup script. The problem is that the script executes but doesn't make any registry change and doesn't create application menu items in programs menu. Thanks in advance. Tag: Bringing IE to focus from add-in Tag: 199848
  - 22
    - Dialog box to choose file to load Hi, Is there an easy way to implement a pop up dialog box for a user to choose a file to get the file path? Currently, the users of this script have to type the path in. csvFilePath = InputBox("Enter the exact path of the CSV File to be imported") and I was hoping to avoid that. Thanks. Tag: Bringing IE to focus from add-in Tag: 199845
  - 23
    - Loading the contents of an Outlook Address Book Hi, I am writing a script to take a CSV file of customers and load them into an Outlook Contact List. This is a huge list and I am trying to save my customer relations folks some time. I would like to make this script a little more robust and be able to have my customer relations people run it periodically to update as we grow. Is there a way to load the entire contact list from the user's outlook? I would like to then check the values of the CSV file against this to make sure there aren't any duplicates. All I would need are the name, phone number, and email address to match up (since some people leave only an email or only a phone, and some people live in the same household and share a phone). Thanks for any suggestions. Tag: Bringing IE to focus from add-in Tag: 199843
  - 24
    - Insert Line break, execute file, run commands ? How ? I am new to VbS so i am reading http://www.w3schools.com/vbscript/default.asp. I am creating vbs files, i am not making a html page with the help of vbs. Now, i am just experimenting with it to learn it so i have some questions : 1. How can i insert line breaks. For example : I have this msgbox function : msgbox "Some text that will display like critical message.I want this in Line 2", 16, "TheTitle" I cant find the info anywhere (even when searching gOOgle) 2. How can i execute a file ? 3. Is there a way to run commands of Command Prompt (that you can run in bat files) ? 4. Can i display formatted text (bold,italics, font size etc.) in alert window ? If yes, how ? 5. Is there some better site for learning VBS. -- Ayush Tag: Bringing IE to focus from add-in Tag: 199834
  - 25
    - Add TCPIP Network printer with a script Hi Guys, I want to write a script (vb script or batch file) to add a network printer with e.g. IP 172.20.17.98 The driver should be installed automatically. How can I realize this? I want to put these script into the intranet that all employees can install a printer if needed. What about the driver? Is it necessary to download the driver, too? Tag: Bringing IE to focus from add-in Tag: 199832

We're having an issue in bringing IE to focus on loading from PowerPoint
add-in. Can you please help us in this regard. Steps are:

1) Create a DLL that has a form with a button in it

a) Form should be a modal dialog

b) On Click of the Button Internet Explorer should be automated and made
visible --- shdocvw.dll is used to automate Internet explorer

2) Create an Add-ins referring that DLL

3) Include that Add-ins in excel application

4) Run the Macro of Add-ins to display the Form in DLL

5) Click the button to display IE

6) IE is loaded, but appears in a minimized mode in the Taskbar.

Any Idea to make it visible in maximized mode

Re: Bringing IE to focus from add-in by Franz

Franz
Thu Dec 07 19:41:38 CST 2006

Ganesh Palaniappan wrote:

> 6) IE is loaded, but appears in a minimized mode in the Taskbar.
> Any Idea to make it visible in maximized mode

Maybe is not minimized but just not "on top" ?

by the way...

add the -k parameter to IE command line :

iexplore -k

this will launch IE in kiosk mode (supported since IE v4)
but no toolbar will be shown, so the only way to close IE
is by the control+f4.

or....
instead launching IE directly, launch a shotrcut to IE
which has the property "window mode" set to "maximized"

or....
by the means of the sendkeys method, send the keyboard
combination which bring IE to the maximized state

Re: Bringing IE to focus from add-in by Ganesh

Ganesh
Fri Dec 08 07:21:19 CST 2006

This was helpful. Thanks for the help.

"Franz aRTiglio" <franzgol@N0SPAMtin.it> wrote in message
news:4578c3a1$0$19107$4fafbaef@reader4.news.tin.it...
> Ganesh Palaniappan wrote:
>
>> 6) IE is loaded, but appears in a minimized mode in the Taskbar.
>> Any Idea to make it visible in maximized mode
>
> Maybe is not minimized but just not "on top" ?
>
> by the way...
>
> add the -k parameter to IE command line :
>
> iexplore -k
>
> this will launch IE in kiosk mode (supported since IE v4)
> but no toolbar will be shown, so the only way to close IE
> is by the control+f4.
>
> or....
> instead launching IE directly, launch a shotrcut to IE
> which has the property "window mode" set to "maximized"
>
> or....
> by the means of the sendkeys method, send the keyboard
> combination which bring IE to the maximized state
>
>
>
>
>
>
>
>
>