how to open a file and set window properties?

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
    - set x=nothing Hi, Instead of set x=nothing does it do the same thing to do this: x="" After all when you set x=nothing you find that x is still an object. set x=nothing msgbox isObject(x) 'still object Thanks,K Tag: how to open a file and set window properties? Tag: 201906
  - 2
    - Newbie Question: Classes and Arrays Hi, Folks! Let say I have a class like: Class clsMyClass Public iNumber Public szQuestion Public szResponse End Class How can I extend this: Dim myTest : Set myTest = New clsMyClass ...into an array? Would it be like: Dim myTest(2) : Set myTest = Array(New clsMyClass, New clsMyClass, New clsMyClass) How could you do this dynamically? TIA... Tag: how to open a file and set window properties? Tag: 201894
  - 3
    - Take DropDown selection and Write to a text file Can anyone help me? I am attempting to take the selection from a DropDown box and write that selection to a text file. Any help would be greatly appreciated. Thanks, Cisco <html> <head> <title>HTA Helpomatic</title> <HTA:APPLICATION ID="objHTAHelpomatic" APPLICATIONNAME="HTAHelpomatic" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="maximize" > </head> <SCRIPT Language="VBScript"> Sub RunScript Msgbox DropDown1.Value End Sub '''''''''''''''''''''''''''''''''''''''''''''''' strtext = DropDown1.value Const FOR_READING = 1 Const FOR_WRITING = 2 strFileName = "test.txt" strNewContent = "sample string content" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName,FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName,FOR_WRITING) objTS.WriteLine strComputer objTS.Write strContents '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' </SCRIPT> <body> <fieldset> <select size="1" name="DropDown1"> <option value="1">Option 1</option> <option value="2">Option 2</option> <option value="3">Option 3</option> <option value="4">Option 4</option> </select> </fieldset> <input id=runbutton class="button" type="button" value="Run Script" name="ok_button"onClick="RunScript"> <input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript"> <P> <span id=DataArea></span> </body> </html> Tag: how to open a file and set window properties? Tag: 201878
  - 4
    - select from list box and write to file Can anyone help me with this. I am attempting to make a selection from a Drop Down menu and write that selection to a text file. Any help would be greatly appreciated. Thanks, Cisco <html> <head> <title>HTA Helpomatic</title> <HTA:APPLICATION ID="objHTAHelpomatic" APPLICATIONNAME="HTAHelpomatic" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="maximize" > </head> <SCRIPT Language="VBScript"> Sub RunScript Msgbox DropDown1.Value End Sub '''''''''''''''''''''''''''''''''''''''''''''''' strtext = DropDown1.value Const FOR_READING = 1 Const FOR_WRITING = 2 strFileName = "test.txt" strNewContent = "sample string content" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName,FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName,FOR_WRITING) objTS.WriteLine strComputer objTS.Write strContents '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' </SCRIPT> <body> <fieldset> <select size="1" name="DropDown1"> <option value="1">Option 1</option> <option value="2">Option 2</option> <option value="3">Option 3</option> <option value="4">Option 4</option> </select> </fieldset> <input id=runbutton class="button" type="button" value="Run Script" name="ok_button"onClick="RunScript"> <input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript"> <P> <span id=DataArea></span> </body> </html> Tag: how to open a file and set window properties? Tag: 201876
  - 5
    - Waiting for Refresh to done I need help with VBScript. Using active X script of SQL 2000 DTS package, I am trying to open an Excel workbook, refresh data, save workbook and close the workbook. I have code to do all that, but I have problem with timing issue between Refresh command and save workbook command. I don't have enough time between refresh and save commands. I am doing this to several workbooks that I can't set fix time. I need to find a way to parse until refresh is done and go on to next step. Is there a command to do this? Thanks for any help you can give... Tag: how to open a file and set window properties? Tag: 201867
  - 6
    - can not run sc command in the wmi script I am using the ping status WMI script that check if a remote server is up or not. I have the ping status working but I would like to run "sc start WZCSVC" on the local server or some way to start a service after the remote server do not respond. Here is the code: strComputer = "." Set objWMIService = GetObject(_ "winmgmts:\\" & strComputer & "\root\cimv2") Set colPings = objWMIService.ExecQuery _ ("Select * From Win32_PingStatus where Address = '137.1.3.85'") For Each objStatus in colPings If IsNull(objStatus.StatusCode) _ or objStatus.StatusCode<>0 Then WScript.Echo "Computer did not respond." do "sc start WZCSVC" Else Wscript.Echo "Computer responded." End If Next Tag: how to open a file and set window properties? Tag: 201865
  - 7
    - Script to set folder attributes? Can I use a script to open a specific folder and set its attributes: menu or not, toolbar or not, vertical and horizontal sizes, and vertical and horizontal position on the desktop? If so, can someone point me to an on-line resource that demonstrates this? Thank you. Ed Tag: how to open a file and set window properties? Tag: 201864
  - 8
    - Printer Preferences Settings Is there a way to modify printer settings via a script? I have over 30 computers on the network connected to 2 network printers shared via Win 2K3 server. I already have a script to connect the printers and set the default based on user groups. Is there a method to modify the printer prefences globally? I am looking for default printer tray options and other options that my be printer specifiy. IE make sure each workstation knows that printer a has a duplexer and stapler where printer b only has a duplexer. When I make theses changes on my printer share it does not seem to effect the clients settings. Any thoughts? Thank you, Adam Tag: how to open a file and set window properties? Tag: 201856
  - 9
    - replace part of a string I use a object that returns a list of computernames to perform a function. Since we have done a good job with our computer naming conventions I am using this object but want to replace just part of the computername to query the other device on network. For example, I get a list of machines named: DC1RES000101 DC2RES000102 DC3RES000103 As I get each machine using a For Each statement...I need to replace the 'RES' with a 'SCS' DC1SCS000101 DC2SCS000102 DC3SCS000103 How can I do a replace of the three letters in middle of computerName. Tag: how to open a file and set window properties? Tag: 201849
  - 10
    - Create a registry key with a script Hi, I want to create a key in the registry because I want to push that change on my domain, here is a part of my script: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" strValueName = "WUServer" strValue = "http://server" oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" strValueName = "WUStatusServer" strValue = "http://server" oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue The key WindowsUpdate don't exist on some of the computer, what can I add on my script to create that key? thanks for your help. Tag: how to open a file and set window properties? Tag: 201848
  - 11
    - VBScript Parsing XML Question Hello everyone, I have an xml file which I need to loop through using vbscript. The format looks like the following: <?xml version="1.0" ?> <hotfixes> <Server> <ServerName>Server1</ServerName> <hotfix>KB819696</hotfix> <hotfix>KB823182</hotfix> <hotfix>KB823353</hotfix> <hotfix>KB823559</hotfix> <hotfix>KB824105</hotfix> </Server> <Server> <ServerName>Server2</ServerName> <hotfix>KB823182</hotfix> <hotfix>KB823353</hotfix> <hotfix>KB823559</hotfix> <hotfix>KB824105</hotfix> <hotfix>KB824141</hotfix> </Server> </hotfixes> I am very familiar with vbscript but I don't know much in the way of reading xml files. I am looking for some help to read this file. I would need to store each servername for each server element, of which there could be anywhere from 1-300. I also need to loop through the hotfix nodes for each server element save the hotfix name with the servername if it matches a certain string. Basically, I need to do the following: 1. Loop through each server node. 2. Get the server name. 3. Loop through each hotfix element in the current server node and save the name if it matches some text. 4. Save the servername and any hotfix names found for that server node. 5. Move onto the next server node and repeat the process until the xml file is complete. If anyone could help me out with a script or some code to get me started, it would be much appreciated. Tag: how to open a file and set window properties? Tag: 201847
  - 12
    - File renames, en masse Hi - a client running a W2k domain w/XP Pro workstations (not that it's specifically relevant) has currently got a slew of files in their main shared folder tree, which they'd like to rename for organization/sorting purposes. There are probably about 3000 files in total, in multiple subfolders. They're mostly Office files (Word & Excel). Currently, the files are named similarly to the following: X-00-dd-mm-yy-keywords-author.doc ...where the "X" is some initial for the type of file (e.g. M=memo), "00" is the last two digits of the project number, etc. To make things easier to sort, they're looking at something like the following, instead: X-00-yyyy-mm-dd-keywords-author.doc ....I'd suggested that even if this is possible, it might be more useful to use yyyy-mm-dd-X-00-keywords-author.doc for sorting purposes. However, as I'm a complete moron when it comes to this sort of thing, I thought I'd post in here. I know how to do some extremely simple things with batch files, and that's about it. I'd do a complete full backup first, of course, and would run this overnight. Anyone want to help me look brilliant for this client? I won't steal credit for the idea; I told them I had no clue and was going to ask some smart people. Tag: how to open a file and set window properties? Tag: 201843
  - 13
    - MS Word handling server side. PLEASE HELP Hy I know there are a lot of MS Word topics, but none of them helped me with my problem. I'm trying to open a word file wich is situated on our server and to safe it into the same directory as an HTML file. But i get always the same error "Command failed" on the line of the Open statement. I actually tried almost everything and i'm running out of time. I checked that the there are full control permissions on the winword.exe and on the file directory i also tried to to the word part client side, but nothing and i mean nothing happens. Would appreciate help with my code and also if somebody has got a better idea to upload, edit and display formated text files without word Here is my code: <% dim filFile dim dxbconn dim Upload dim blnError dim count dim strErrorText dim strPath dim strFileExt dim strSQL dim userid dim word dim doc Sub SaveAsHtml() Set word = server.createobject("word.application") word.visible = false Set Doc = word.documents.open(strPath & strFileName & strFileExt) Doc.SaveAs strPfad & strFileName & ".htm", wdFormatHTML Doc.Close Word.Quit Set Word = Nothing end sub userid = Request.Querystring("user") Response.write(userid) Set dxbconn = CreateObject("ADODB.Connection") dxbconn.Open "CMSDXB" Set Upload = Server.CreateObject("Persits.Upload.1") Upload.IgnoreNoPost = True count = Upload.Save() set filFile = Upload.Files("txtFiles") blnError = FALSE If Count < 1 Then blnError = TRUE strErrorText = "No file was selected<BR>" End If If Len(Upload.Form("txtTopicAdd")) = 0 Then blnError = TRUE strErrorText = strErrorText & "Topic can not be empty" & "<br>" End If If not blnError Then strPath = "c:\inetpub\wwwroot\dxb\files\" Upload.CreateDirectory strPath, True If len(filFile.FileName) > 4 Then strFileExt = Right(filFile.FileName,4) Else strFileExt = ".???" strFileName = Upload.Form("txtTopicAdd") filFile.SaveAs strPath & strFileName & strFileExt call SaveAsHTML() End If If not filFile is nothing Then set filFile = nothing End If If blnError Then Response.Write "An error occurred while trying to upload the file<BR>" Response.Write "Please see the error description(s) below for further info :<BR><BR>" Response.Write strErrorText Else Response.Write "File successfully uploaded!" End If strSQL = "INSERT INTO tblNews (strNewsfile, strTopic, date, blnShow, FK_userid) Values('" strSQL = strSQL & strFileName & ".htm', '" strSQL = strSQL & Upload.Form("txtTopicAdd") & "', " strSQL = strSQL & "NOW(), 1, " & userid & ")" dxbconn.execute strSQL Set Upload = nothing dxbconn.close set dxbconn=nothing response.redirect("news_control.asp") %> Tag: how to open a file and set window properties? Tag: 201842
  - 14
    - Export DHCP/WINS Using VBscript Hi, Have anyone done script which lists f. ex. DHCP servers on network and exports all settings to .csv or .txt -file? Tag: how to open a file and set window properties? Tag: 201841
  - 15
    - response.write question I have written an asp/vbscript script that returns some personal details to a flash frontend using the following code. response.write "vRESPONSE=success&vUSER_ID=45&vNAME=Fred&vCOMPANY=some company" This works fine until the variable value has an ampersand in it i.e response.write "vRESPONSE=success&vUSER_ID=45&vNAME=Fred&vCOMPANY=Fred & Co." and then it fails since it looks like the start of a new variable name. So I then tried to urlencode the values so ampesand became %26, which works fine for the ampersand but then some other characters get screwed up, particuarly extended unicide values. Could anyone give me any pointers on how I should be doingf this? Many thanks Dave Tag: how to open a file and set window properties? Tag: 201840
  - 16
    - Need help on simple "FOR" script For maintenance purposes I need a script that will delete the Temp files and Temporary Internet Files. Due to the nature of a utility we're using to manage client PCs, this script will run as a scheduled task with admin credentials, and preferably will clear out these files under all profiles on the target system. I know there are other approaches (eg, edit the login script or logoff script), but if someone can get the script below to work (I found it through searches though the poster could not get it to function), it would be greatly appreciated. Or potentially suggesting an alternative script to the one below - whatever works! SET SRC1=C:\Documents and Settings SET SRC2=Local Settings\Temporary Internet Files SET SRC3=Local Settings\Temp FOR /D %%X IN ("%SRC1%\*") DO FOR /D %%Y IN ("%%X\%SRC2%\*.*") DO RMDIR /S /Q "%%Y" FOR /D %%X IN ("%SRC1%\*") DO FOR /D %%Y IN ("%%X\%SRC3%\*.*") DO RMDIR /S /Q "%%Y" FOR /D %%X IN ("%SRC1%\*") DO FOR %%Y IN ("%%X\%SRC3%\*.*") DO DEL /F /S /Q "%%Y" Tag: how to open a file and set window properties? Tag: 201836
  - 17
    - execquery using variable Hi all, I'm trying (unsuccessfully) to query to a profile specific folder. I keep recieving an error message ' Invalid query' I need to use a varible as it will be the username's folder name. Here is the snippet of the code: strComputer = "." Set WSHShell = CreateObject("Wscript.Shell") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set WshNetwork = WScript.CreateObject("WScript.Network") name = WshNetwork.UserName fullpath = "c:\\documents and settings\\" & name & "\\Application Data\ \Microsoft\\Signatures\\mysig.htm" Set colFiles11 = objWMIService. _ ExecQuery("Select * From CIM_DataFile Where Name = " & fullpath & "'") What am I doing wrong? Cheers Tag: how to open a file and set window properties? Tag: 201834
  - 18
    - Add User to Local Administrators Group Hi all- I need a script that I can run from my admin workstation. It would add a user to the remote workstations Administrators group. Now the tricky part, I need to be able to add the current user who is logged on to the Administrators group. Why you ask? We use a legacy app that requires the user be a local admin and I screwed up and set a Restricted Groups policy that erased all of the local admins except the Domain Admin group. I am not a script writer, I'm only an editor :) I have found scripts to add users/groups to the local admin (easy if you know who to add) and scripts that detect the logged on user but nothing that I can cobble together to do both. I'm thinking of something like this: get list of domain computers from AD use generated list to call psloggedon and get the user info use that list to call psexec and cmd /c net localgroup administrators "psloggedon user"/add log success / failure Anyone want to take a crack at it? Tag: how to open a file and set window properties? Tag: 201829
  - 19
    - Calculate time difference in mini-second with VBScript Hi All, I have two questions. First, we wrote a script to monitor file server response time. But datediff() function can only calculate time difference in seconds. We are asked to provide data in mini-second. Is this possible in VBScript? Or, i have to use vb.net? 2nd question, we wrote a script to list file service connection information on a fie server, then try to check virus defination file on connected client using WMI. But some of this client is not in our domain. When this occurs, the script tale very long time to retry. Is is possible to set a timeout value before create a wmi connection? Thank you very much for your time and any help. Eric Wu Tag: how to open a file and set window properties? Tag: 201825
  - 20
    - Closing Word instantly Frequently, my Word 97 gets frozen and then I use the Close Program dialog box to kill it, but the Close Program d.b. often takes a good long time to display the dialog that actually closes Word, so I'm sitting there waiting for maybe 30 seconds or more to complete this process. Is there a way via a .vbs file (or maybe some other kind of file) whereby Word can be closed instantly and in one step, without having to deal with two dialog boxes? Thanks. Tag: how to open a file and set window properties? Tag: 201822
  - 21
    - Adding a .reg with vbs Hi, Is the a way to add a .reg file into the registry via a vbs script? thank Tag: how to open a file and set window properties? Tag: 201821
  - 22
    - Exchange 2003 SP2 scripting question We are trying to uncheck the following: "automatically update the email addresses based on the recipient policy" Also basically we want to removed all email address except for the user.cn plus our domain name. For some reason this still leaves the CCMAIL which we don't want in our accounts either. We are at Windows 2003 SP1 and Exchange 2003 SP2 *************************************************************************************************** Set ouStu = getObject(LDAP://OU=XXX,DC=XX,DC=XXX) for each User in ouStu User.PutEx 1, "msExchPoliciesExcluded", array("{26491CFC-9E50-4857-861B-0CB8DF22B5D7}") - This does not work User.SetInfo User.proxyAddresses= user.cn & "@XXX.XXX" User.SetInfo next Set User = Nothing Set ouStu = Nothing **************************************************************************************************** Any help would be appreciated. Thanks, Eric Sabo Tag: how to open a file and set window properties? Tag: 201819
  - 23
    - Multilevel Explorer context menus You can add to the (right click) context menu of a file type (say .min is of type myFile => HKCR\.min has default property myFile) by putting into the registry: HKCR\myFile\shell\open (with defualt key something like: &Open with myProg HKCR\myFile\shell\open\command (with default key something like: c: \winapps\myProg.exe "%1" %* To add this context menu for all files (for example, for your favorite editor), replace myFile with * (asterisk) in the above. Furthermore, you could replace open, above, with Cmd or Edit or Edit2 since it is only used for ordering within the context menu (not 100% true since there are some special words like open). If there is a conflict between HKCR\myFile\shell\myCmd and HKCR\*\shell\myCmd then the more specific one (with myFile) is used Nifty. I have two questions: 1. Is there a simple minded way to get a multi level entry in the context menu? In other words, suppose I want (within the context menu) a right arrow at the right of &Open with myProg which will then display: myProg options so that if I click on that my script can do its thing and show me an options dialog. This would help alleviate clutter in my context menu. There is an example of multi level menus with WinZip -> Add to recently used Zip file -> ... zip file list ..., although they have their own context menu handler so it's not simple minded in the sense of only requiring trivial registry changes. 2. The simple introductory example at the top (with the asterisk (*)) inserts the menu item when right clicking of any explorer file. It does not insert the menu when clicking over a folder or over empty space in explorer. Is there a simple way to hook the menu in for either of those cases? Thanks for any tips, Csaba Gabor from Vienna Tag: how to open a file and set window properties? Tag: 201815
  - 24
    - Multileve Explorer context menus You can add to the (right click) context menu of a file type (say .min is of type myFile => HKCR\.min has default property myFile) by putting into the registry: HKCR\myFile\shell\open (with defualt key something like: &Open with myProg HKCR\myFile\shell\open\command (with default key something like: c: \winapps\myProg.exe "%1" %* To add this context menu for all files (for example, for your favorite editor), replace myFile with * (asterisk) in the above. Furthermore, you could replace open, above, with Cmd or Edit or Edit2 since it is only used for ordering within the context menu (not 100% true since there are some special words like open). If there is a conflict between HKCR\myFile\shell\myCmd and HKCR\*\shell\myCmd then the more specific one (with myFile) is used Nifty. I have two questions: 1. Is there a simple minded way to get a multi level entry in the context menu? In other words, suppose I want (within the context menu) a right arrow at the right of &Open with myProg which will then display: myProg options so that if I click on that my script can do its thing and show me an options dialog. This would help alleviate clutter in my context menu. There is an example of multi level menus with WinZip -> Add to recently used Zip file -> ... zip file list ..., although they have their own context menu handler so it's not simple minded in the sense of only requiring trivial registry changes. 2. The simple introductory example at the top (with the asterisk (*)) inserts the menu item when right clicking of any explorer file. It does not insert the menu when clicking over a folder or over empty space in explorer. Is there a simple way to hook the menu in for either of those cases? Thanks for any tips, Csaba Gabor from Vienna Tag: how to open a file and set window properties? Tag: 201814
  - 25
    - Format Date Syntax Problem I need to display the last time a school hosted the SAT exam as mm/dd/yy. I have been fighting for two days to try to get the correct syntax My code is: <TD><%Response.Write Format(rsSchools("LastTestDate"), "mm/dd/yy")%></TD> I get the message: Microsoft VBScript runtime (0x800A000D) Type mismatch: 'Format' /USExams/SatPageAct.ASP, line 169 What am I doing wrong? Thanks in advance Granny Tag: how to open a file and set window properties? Tag: 201805
- Next
  - 1
    - InternetExplorer.Application / objShell.Windows + obj.document.parentWindow Hey, I finally found out how to access the window properties of an InternetExplorer.Application / objShell.Windows objects. First I thought this wasn't even possible, since the InternetExplorer.Application / objShell.Windows objects basically represent the window themselves, so the next DOM level is the document: set objShell = CreateObject("Shell.Application") set objShellWindows = objShell.Windows set FirstWindow = objShellWindows.Item(0) WScript.Echo FirstWindow.document.nodeName ---------------------------------------------------- Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_") WScript.Echo objIE.document.nodeName But on this page: http://msdn.microsoft.com/workshop/author/dhtml/reference/properties/parentwindow.asp Microsoft tells us about the parentWindow Property of the document. This way you can move again upwards the DOM to the window object and access all of its properties: Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_") WScript.Echo objIE.document.parentWindow.name will return the name of the current Internet explorer window, whereas WScript.Echo objIE.name will return the name of the objShell.Windows (="Internet Explorer") Also, it would be interesting to convert the entire VB/VBA syntax for the WebBrowser control to VBScript, since there is no reference on MSDN for the VB Scripting edition: http://msdn.microsoft.com/workshop/browser/webbrowser/reflist_vb.asp For example, the MSDN VB reference for the NavigateError event of the IE/WebBrowser objects reads as follows: Private Sub object_NavigateError( _ ByVal pDisp As Object, _ ByVal URL As Variant, _ ByVal TargetFrameName As Variant, _ ByVal StatusCode As Variant, _ ByRef Cancel As Boolean) In order to use this event in VBScript, it has to look like this: Sub objIE_NavigateError(pDisp,URL,TargetFrameName,StatusCode,Cancel) wscript.echo "objIE_NavigateError" End Sub Here's a script that will change the name property of the InternetExplorer.Application object every time you open a new document or download a file: ON ERROR RESUME NEXT Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_") objIE.Visible = True objIE.Navigate2 "http://www.google.com" Do While objIE.Visible WScript.Sleep 1000 Loop Sub objIE_NavigateComplete2(pDisp, URL) objIE.document.parentWindow.name = "_new" End Sub Sub objIE_FileDownload(ActiveDocument,Cancel) if (objIE.Document.all.length > 0) then objIE.document.parentWindow.name = "_new" end if End Sub Sub objIE_OnQuit() WScript.Quit End Sub I am still trying to get the NewWindow3 Event to fire through VBScript: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/events/newwindow3.asp I wonder what the VBScript syntax for this event is Tag: how to open a file and set window properties? Tag: 201802
  - 2
    - If Then Exit Do I have created a user creation script. It reads user attributes from a text file and creates one user at a time. It basically runs like While there are rows in the text file Do read value1 read value2 read value3 read value4 do a whole bunch of stuff (set attirbutes, add users to groups, etc) Loop Let's say though that value2 must be exactly 6 digits in length. If not, the script should fail creating this user account and move on to the next. I thought of using Exit Do, but won't that end the script rather then moving to the next user? Is there a way to do this. I just figure it would be faster and make the most sense to stop the creation of the specific account and move on to the next one. Tag: how to open a file and set window properties? Tag: 201791
  - 3
    - Modifying the Registry Hi, Here's my problem: I want to shedule on legacy Windows Servers (Windows 2000 Servers) to run the Sysinternals contig.exe application, which is very useful and powerful to defragment drives and folders. But before running the contig.exe, you have to accept the EULA by clicking on the "I accept" button of a pop-up window. Once accepted, several keys and a dword are added to the registry. I want to schedule this task by using a "special user" allowed to connect as a batch job only. It doesn't have any profile, and, very important, doesn't have any keys in the registry under the HKEY_USERS. Once running this script for the first time by the scheduler, the EULA pop-up is not displayed, so no new keys can be added to the registry, and then the script cannot run and waits for the click on the "I accept the EULA" button. My goal is to create automatically the keys and the dword value before the schedule task runs this script, and then the EULA will be already accepted without clicking on this button. Can someone explain me why in the following script, the creation of the keys and the value is not working. Thanks a lot. The steps are: 1 - getting the SID of my special user 2 - creating the key with the SID under HKEY_Users 3 - creating all the key and subkeys for the Sysinternals contig application 4 - creating the new dword named "EulaAccepted" with a value of '1' ---------------------------------------------------- ' Get the Account SID of the user used by the scheduler strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objAccount = objWMIService.Get("Win32_UserAccount.Name='user',Domain='domain'") accountSID = objAccount.SID ' Add the reg entry so it accepts the Sysinternals EULA Const HKEY_USERS = &H80000003 Set StdOut = WScript.StdOut Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = accountSID Wscript.Echo "Creating the key with the SID: " & strKeyPath objReg.CreateKey HKEY_USERS,strKeyPath strKeyPath = strKeyPath & "\Software" Wscript.Echo "Creating the key with Software: " & strKeyPath objReg.CreateKey HKEY_USERS,strKeyPath strKeyPath = strKeyPath & "\Sysinternals" Wscript.Echo "Creating the key with Sysinternals: " & strKeyPath objReg.CreateKey HKEY_USERS,strKeyPath strKeyPath = strKeyPath & "\C" Wscript.Echo "Creating the key with C: " & strKeyPath objReg.CreateKey HKEY_USERS,strKeyPath strEntryName = "EulaAccepted" dwValue = 1 Wscript.Echo "Setting the value of " & strEntryName & " to " & dwValue objReg.SetDWORDValue HKEY_USERS,strKeyPath,strEntryName,dwValue objReg.GetDWORDValue HKEY_USERS,strKeyPath,strEntryName,dwValue Wscript.Echo strEntryName & " = " & dwValue ------------------------------------------------------ And here's the output: ============================== accountSID = S-1-5-21-2304659736-2020637620-97400744-1039 Creating the key with the SID: S-1-5-21-2304659736-2020637620-97400744-1039 Creating the key with Software: S-1-5-21-2304659736-2020637620-97400744-1039/Software Creating the key with Sysinternals: S-1-5-21-2304659736-2020637620-97400744-1039\Software\Sysinternals Creating the key with C: S-1-5-21-2304659736-2020637620-97400744-1039\Software\Sysinternals\C Setting the value of EulaAccepted to 1 EulaAccepted = =================================== Nothing is created in the registry. I am a local administrator of my server (not attached to any domain). Thanks again for your help. Yann Tag: how to open a file and set window properties? Tag: 201788
  - 4
    - running a vbs script in scheduled task I believe I saw this topic before but I cannot see any suggested solution. My question is: I got a vbs script that runs perfectly if I execute in a cmd shell cscript sample.vbs > outfile All output is captured in the outfile. If I put the same line in a schedule task, the task will be executed but no output is captured in the outfile. How can I overcome this? Thanks for any suggestion. PS. Please do not suggest amending the vbs script itself to capture the output. This is not a solution. Tag: how to open a file and set window properties? Tag: 201778
  - 5
    - call a batch file within VB script??? I am newbie with scripting and programming. I have a VB script that run a ping.exe command to see if the other server is up. The ping.exe VB scripts works fine but I would like to include a statement where if the ping command return request time out (the other server is down) instead of a reply (meaning the other server is up) then it will call the batch file call service.bat. here is my code for the ping VB script and the batch file. How could I do this? Ping VB Script: Set objShell = CreateObject("WScript.Shell") Set objWshScriptExec = objShell.Exec("ping 10.0.0.1 -t") Set objStdOut = objWshScriptExec.StdOut Do Until objStdOut.AtEndOfStream strLine = objStdOut.ReadLine If Len(strLine) > 2 Then WScript.Echo Now & " -- " & strLine Else Wscript.Echo strLine End If Loop Batch File to start Windows Service sc start WZCSVC Tag: how to open a file and set window properties? Tag: 201772
  - 6
    - VBScript calling a function with onclick I'm trying to call a vb function in an asp page. I'm using the following code: <table> <tr> <td valign="top" width="200" align="left"> <% Response.Write "<input type='image' src='images/header_collapsed.jpg' onClick='ShowAspLog'>" %> <font size=2 color="0000FF">ASP Log </font> </td> </tr> </table> The Function is: <% Function ShowAspLog Response.Write "<table>" Response.Write "<tr>" Response.Write "<td>" Response.Write "<td valign=top>" & getSQLTable("SELECT date as Date, action as Action, comment as Comment FROM RPSSAspLog WHERE client = " & Request.QueryString("client") & " and (date > GETDATE() - 180) ORDER BY date DESC") & "</td>" Response.Write "<td width=20></td>" Response.Write "</td>" Response.Write "</tr>" Response.Write "</table>" End Function %> The image is displayed but when I click it I get an error on the page. Any ideas? Tag: how to open a file and set window properties? Tag: 201758
  - 7
    - ping and start a service on remote server Hi! I am a newbie with programming. I have two Windows 2003 servers. Both servers have the same service that only one can run at one time. I would like to create a script that would check the network status of Server A using ping.exe. If the ping fail on Server A, Server B will start the service. I figure out how to write teh ping but not sure how to incorporate the other step. Set objShell = CreateObject("WScript.Shell") Set objWshScriptExec = objShell.Exec("ping 10.0.0.1 -t") Set objStdOut = objWshScriptExec.StdOut Do Until objStdOut.AtEndOfStream strLine = objStdOut.ReadLine If Len(strLine) > 2 Then WScript.Echo Now & " -- " & strLine Else Wscript.Echo strLine End If Loop Tag: how to open a file and set window properties? Tag: 201754
  - 8
    - VBScript to enumerate all members of groups Just some background: My organization is an OU within a larger OU. Within my organizational unit I have OU's for Users, Computers and Servers. Within my Users OU, I want to dump the membership of all the groups into a text file. Which I can then import into excel. Anyone have any pointers or example scripts I can look at? Thanks Chris Tag: how to open a file and set window properties? Tag: 201752
  - 9
    - Change local Admin Pwd - [WP] How can I change local admin pwd w/o going to the machines? I don't wont my pwd to be visible if I am pushing via GPO, BAT or Script? How would Microsoft do this, do they rely on third party, my guess No???? Advise Please. Tag: how to open a file and set window properties? Tag: 201751
  - 10
    - Logoff Backup script doing nothing Not sure if this is the right news group, if not i apologise I have written a simple vbs script to backup our users outlook express files on a certain day that i am trying to get running at logoff by group policy the script is below: Dim MyDate, MyWeekDay MyDate = Date MyWeekDay = Weekday(MyDate) If MyWeekDay = 6 Then Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "cmd /K C:\WINDOWS\system32\ntbackup backup ""c:\documents and settings\%username%\local settings\application data\identities"" /j ""Mail Backup"" /F ""\\Mailserver\Mail Backup\admin\%username%\%username%.bkf"" /V:yes" Set oShell = Nothing Else End If Now when the script is run form my documents folder (or anywhere else for that matter) it runs fine, it will check the day and proceed if it is correct. However when it is deployed by group policy the script does not appear to run (i.e. backup does not start) even though it claims to be running logoff scripts, is there something in the code that might prevent this? Cheers in advance Tag: how to open a file and set window properties? Tag: 201749
  - 11
    - Script that uses an array of file names to copy and overwrite file I need to copy and overwrite a number of files programmatically and I'd like to know how to modify the following code from technet to use an array of "copy from" names. 'starting point Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting 'end starting point 'start pseudo code dim ary(3) ary(1) = "C:\FSO\ScriptLog1.txt" ary(2) = "C:\FSO\ScriptLog2.txt" ary(3) = "C:\FSO\ScriptLog3.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") For i = 1 to 3 ' something on the lines of: objFSO.CopyFile "" & ary(3) &"" , "D:\Archive\", OverwriteExisting Next 'end pseudo code Any help will be greatly appreciated. Thanks, Raul Tag: how to open a file and set window properties? Tag: 201735
  - 12
    - script that uses an array copy an array of file names I need to copy and overwrite a number of files programmatically and I'd like to know how to modify the following code from technet to use an array of "copy from" names. 'starting point Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting 'end starting point 'start pseudo code dim ary(3) ary(1) = "C:\FSO\ScriptLog1.txt" ary(2) = "C:\FSO\ScriptLog2.txt" ary(3) = "C:\FSO\ScriptLog3.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") For i = 1 to 3 ' something on the lines of: objFSO.CopyFile "" & ary(3) &"" , "D:\Archive\", OverwriteExisting Next 'end pseudo code Any help will be greatly appreciated. Thanks, Raul Tag: how to open a file and set window properties? Tag: 201733
  - 13
    - Mapping Problem I administer a hospital network using a Win2003 domain. I have a requirement to also provide service for some applications to medical offices that are not part of my domain. Most of these offices connect to my domain using either a client or a site-to-site VPN. To connect to a recent deployed application I wrote a VB script that maps a drive then calls the application. Problem is that sometimes the application starts before the drive is mapped. Some of the VPN connections are slow and it may take 30 secs or more to get the drive mapped. When this happens the application fails to run. How can I change my script so that the application is not called until the mapping is successful? My script follows. '*********************************************************************** 'Script: HealthPort_Map 'This script maps a drive for healthport then calls the application '************************************************************************ On Error Resume Next Dim objNetwork, objShell Set objNetwork = CreateObject("WScript.Network")objNetwork.MapNetworkDrive "Z:", "\\Nazgul\Healthimages",,"NVh1\password" Set objShell = WScript.CreateObject("WScript.Shell") ObjShell.Run "C:\HP.lnk", 1, True -- Tag: how to open a file and set window properties? Tag: 201731
  - 14
    - RegEx Part 2 I'm reposting this because I had said that I was finished with the previous thread, but then this came up... I have another problem (I'm really bad at RegEx)... and I spent the last few hours looking for a resolution... I want to remove all the double double (""a"") quotes, and replace them with single double ("a") quotes... but In my file I have the following: =""2"" (not valid) But also, ="" (valid) Sometimes there is a space at the end followed by another tag: =""3"" FrameId=""BR1"" and sometime not, =""8wR4""> And sometimes the value is correct: ="1" Ayush or anyone following this thread - if you can help that would be great - I will continue with the 'trial and error', but so far no luck. Tag: how to open a file and set window properties? Tag: 201721
  - 15
    - MI5 Persecution: A doubting Thomas is heard 9/5/95 (1189) From: pao1@ukc.ac.uk (P.A.Orrock) Newsgroups: uk.misc Subject: Re: BBC's Hidden Shame Reply-To: pao1@ukc.ac.uk (P.A.Orrock) Date: Tue May 9 05:54:20 1995 >have laws that protect the individual from harassement - >you can't just threaten people willy nilly. There are laws >against that. And if someone lies about you in the press >or tv then you have recourse to libel/slander etc. laws. Yup, agreed >True, Britain has no 'privacy' laws as such, but isn't that >a good thing? As of this moment, the govt. are considering >a privacy law, but it is unlikely to succeed. Why? Because any >such law would benefit the priviledged and those in power. >Privacy laws, while supposedly protecting the individual, help >those in power hide their mistakes/scandals. They stop the press >etc. investigating. Privacy laws are undemocratic - they prevent >the people from keeping an eye on govt. Agreed again. >Douglas. I am slightly confused here as to who is writing what. this just seems to be an amalgam of posts and replies posted to here to keep the thread going. >Confession time - the victim is/was me (except my name isn't >Corley, but that's irrelevant). What happened was not threats; >just invasion of privacy, in a partiicularly flagrant and >shocking way, in a way which most people would consider to >constitute harassment. >You know there's a particular category of person with mental >illness to whom TV and radio "talk", ie they feel the broadcast >is directed at them in particular? This happpened to me, You mean the category where they think that everyone is after them ? that one ? So lets get this straight you know you are paranoid and you think that they are out to get you ? Uh huh, try putting the two together and see what you come up with. >quite some time ago in the UK (I'm originally from London >so I've seen plenty of British media print and other). >They invaded my home with their bugs, they repeated what I >was saying in the privacy of my home, and they laughed that it >was "so funny", that I was impotent and could not even communicate >what was going on. Who did this? Our friends on BBC television, >our friends in ITN, last but not least our friends in Capital >Radio in London and on Radio 1. Oh yeah, I can see it now. All of them banding together, in a united effort against one man. So ITN, the BBC, and Capital all decide to sit round the table and they come up with idea of breaking into someones house, putting bugs everywhere, listening in to his conversation, and shoving it out on the news everyday. This someone has nothing to do with politics, or business, or entertainment, just an ordinary Joe Bloggs who seems to be extremely paranoid. Have some sense, grow up and smell reality. What you are talking about would take loads of planning, tens of thousands of pounds and lots of people involved in the planning, execution and maintenance of it. You must have a very high opinion of yourself to think you are worth it. >How did they do this? I'll give you an example. About a year ago, >I was listening to Chris Tarrant (Capital Radio DJ among other >pursuits) on his radio morning show, when he said, talking about >someone he didn't identify, "you know this bloke? he says we're >trying to kill him. We should be done for attempted manslaughter" >which mirrored something I had said a day or two before >(I'm not paranoid, honest!). Now that got broadcast to the whole >of London - if any recordings are kept of the shows then it'll be >there. Of course you are not paranoid, just slightly mad. Did you ever look for the bugs in your house ? If not, why not ? I mean if I thought that was happening to me, I'd search the place from top to bottom, I mean I live there I would know if anything was out of place. If I was really paranoid, whoops I mean suspicious, I would call in one of those bug detection teams which have those machines that pick up the transmitted radio waves. This reminds me of BUGS, that new programme on BBC1 on saturdays which is all about this kind of stuff, but, shown as a drama / thriller. I suppose thats based on you as well is it ? >is that there is a conspiracy in Britain, that it encompasses the >broadcast media, and there is no way of breaking the conspiracy. >The people who are involved in it will not open up. What a load of jolly hollyhocks, I would say something else but, apparently students are not allowed to swear on newsgroups in case it damages the reputation of the university or some such jolly hollyhocks. This guy is extremely paranoid to suggest that the entire British media is after him in such a big way. He gives no real reason as to why they are after him, just that he suffers/suffered from a slight mental disorder, could it be paranoia perhaps ?? No surely not. I put it to the house that he has never recovered from this mental disorder, lets come out with it and call it paranoia, and thinks everyone is after him. Remember just because you aren't paranoid, doesn't mean they aren't after you. This guy has a serious problem to suggest that the media would go to such lengths just to single out and ridicule one person. I mean apart from anything else, we ( the listening masses) wouldn't be interested unless it concerned the royal family, politicians or showbiz personalities. e.g. the camillagate tapes. I would think that almost everyone, no matter how much they went on about infringements of privacy read the transcripts with interest. I really don't think that Joe Bloggs ordinary guy or paranoid nutter would have the same appeal. Well actually I dunno. :) Regards, Paul. -- Paul Orrock, Websurfer wannabe, http://www.idiscover.co.uk/paul/home.html PC Consultant and HTML freelance Writer, http://www.idiscover.co.uk/paul/ =========================================================================== Diplomacy is the art of saying "nice doggy" until you can find a rock. 1189 -- Posted via a free Usenet account from http://www.teranews.com Tag: how to open a file and set window properties? Tag: 201714
  - 16
    - Outlook Public Calenders Any ideas ... I'm trying to write a script that will sync any data in a public calendar to a personal calendar. Exchange 2003 / Outlook 2003 -- Kevin Callanan MSCA 2003, A+, Network+ www.weblabtechs.com Please let us know if this response was helpful... Tag: how to open a file and set window properties? Tag: 201708
  - 17
    - MI5 Persecution: Intelligence agency sources on the Web (1189) Intelligence agency sources on the Web http://intelweb.janes.com/ Intelligence Watch Report covers public and private intelligence agencies around the world. kim-spy http://www.kimsoft.com/kim-spy.htm The Korea WebWeekly kim-spy Intelligence and Counter-Intelligence link page. http://www.lobster-magazine.co.uk/ Lobster Journal publishes research on the intelligence community. http://cryptome.org/ Cryptome is an online source of intelligence related material. http://www.mi5.gov.uk/ MI5 has a website, too, but you should prepare yourself for some serious "alternative reality" if you plan to visit it. 1189 -- Posted via a free Usenet account from http://www.teranews.com Tag: how to open a file and set window properties? Tag: 201707
  - 18
    - number of logon users per domain controller per day Hi , I am trying to find the number of users logging on to either each domain controller or per domain. I am not sure how domain controller keeps track of logon users. I would need to generate a report that shows how many users are logging on to domain per day OR how many users logging on to each DC per day. I will appreciate if you can help me in finding. If anything available in MOM 2005 then it would be very helpful Thanks Saeed A Tag: how to open a file and set window properties? Tag: 201705
  - 19
    - Reset AD property to null How can I reset an AD property to null, like the comment on a Computer in AD? Tag: how to open a file and set window properties? Tag: 201700
  - 20
    - Return all users except built-in How can I return a list of AD users, omitting the built-in users? Tag: how to open a file and set window properties? Tag: 201699
  - 21
    - RegExp I have what seems to be a simple Expression but for the life of me I can't get it to work: What I want to do is replace the information between tags with vbCrLf: This: ... Rule>" jhsadkjsk asjlksd lkjlsadj "<Rule Id ... With This: ... Rule> <Rule Id ... Here is the code: Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "[Rule>.<Rule Id]" strNewText = objRegExp.Replace(strNewText, "Rule>" & vbCrLf &"<Rule Id") Set objRegExp = Nothing Thank you in advance for your help! Tag: how to open a file and set window properties? Tag: 201686
  - 22
    - Win32_NTEventlogFile Hi All Not sure if anyone can help. I am running the query "select * from Win32_NTEventlogFile" on several servers and desktops with varying results. In addition to the standard logs SYSTEM, APPLICATION and SECURITY I have another log "MYLOG" that is created and appended to by several in house applications. Unusually, if I run the above query on an Server 2003 without a SP1 I do not get the instance of my own log file "MYLOG" returned. If I run the query on a Server 2003 with SP1 then I do. I also seem to be unable to find the instance on any XP SP2 machines. Furthermore, to add to the confusion the Win32_NTLogEvent table does contain events for all 4 logs including my inhouse eventlog "MYLOG". Does anyone have any ideas on what may be going wrong? I would like to be able to use the ClearEventlog method on my Win32_NTEventlogFile instance. Tag: how to open a file and set window properties? Tag: 201685
  - 23
    - Delete Rows In Excel, I need a macro that will delete an entire row based on a name entered into an input box that would match a worksheet with that name in column "A". Thanks, Bernie Tag: how to open a file and set window properties? Tag: 201682
  - 24
    - Copy random files from one folder to another Hi everyone, I'm trying to create a script that gives the user the option to select a source folder and a destination folder. What I want to do is: - delete all files in destination folder - randomly, copy files from the source folder to the destination folder, until destination folder is full But I'm having trouble with the second part, since I don't know how to use the Rnd function to randomly select files in the source folder. Any ideas? Thanks, from Spain Tag: how to open a file and set window properties? Tag: 201680
  - 25
    - VBScript or VB.Net? Hi All, I need to write a program/script that gathers some data from Windows systems, compare it with SQL Database and update if it's changed. My question is what should i use? VBScript or VB.Net? Here is my background.. I am a systems administrator. I have experience with: C, C++, Visual C++, VBScript I know little bit about: VB 6.0, Java I don't know anything about: dotNet (but would like to learn :) ) I am sure that i can do my task with VBScript. But since this is not going to be a small script/program, should i go with more powerful language like VB.Net even though i don't know much about it? Based on my experience, do you think i should go with VB.Net? or just stick to VBScript? Thank you all for your help. Tag: how to open a file and set window properties? Tag: 201678

Hi,

I want to open several programs at once and specify their window size
and screen position (just from the command shell or a quick start
shortcut). I know how to open the programs with for example a file
containing:

set ifShell = CreateObject("WScript.Shell")
ifShell.run """C:\Program Files\TADS 3\htmltdb3.exe""",1

However I have not been able to figure out how to set the window size
and screen position. I've read various references to window.open,
resizeto, etc. but nothing seems to work by trial and error and I
haven't found a basic tutorial on this procedure. Does anyone have
some pointers?

many thanks, George

Top