need help creating a VBS for an Excel file.

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
    - CDO.ReplyTo Method? Is there a CDO.ReplyTo Method? I would like the email to be From a NAME but I need to include an email address for them to reply to. For instance, I do not want it to show up as FROM: email@domain.com but rather FROM: NAME and then have them able to reply to the email. Thanks. Tag: need help creating a VBS for an Excel file. Tag: 203185
  - 2
    - Interfacing with Exchange Address Contact List Hi, I have written a VBScript that takes a tab delimited file of customer's contact information and loads it into a users contact list, and loads into distribution lists by state. This works great. The user runs the script, chooses the file's location, and it runs while their outlook is open. This is great except that it needs to be run relatively often as our customer base grows. Is it possible to schedule a VBScript to run at night that will run against a file and add it to specific user's contact list? Currently, Outlook must be open and it connects to the running account. Can i write something that does this without the user needing to be logged in? Thanks very much for your help. Tag: need help creating a VBS for an Excel file. Tag: 203181
  - 3
    - How to refresh the start menu? Is there a way to script a refresh of the start menu (including Windows XP and newer)? Iâ??m using start menu redirection and when my file share (where the shortcuts are located) goes down and up again, I can refresh my desktop (which is also redirected) to get my shortcuts back, but for the start menu I have to kill and restart the explorer process, which isnâ??t the nicest way. Surely there must be a way to refresh the start menu in another way? Tag: need help creating a VBS for an Excel file. Tag: 203178
  - 4
    - 0x80041001 accessing WMI from script Hello all, I am trying to use a vbs script that changes alert resolution state in MOM2005 SP1 using WMI ROOT\MOM, class MSFT_Alert. Script is here: http://msdn2.microsoft.com/en-us/library/ms812714.aspx For some object instances when I use command "Call objAlert.Put_" I got error "SWbemObjectEx: Generic failure". Also when I am trying to change resolution state value and save the object using wbemtest utility it shows me more error data: "Number: 0x80041001, Facility: WMI, Description: Generic failure". For some object instances script works ok WMIDiag from http://www.microsoft.com/downloads/details.aspx?familyid=d7ba3cd6-18d1-4d05-b11e-4c64192ae97d&displaylang=en says that "SUCCESS: WMIDiag determined that WMI works CORRECTLY". I tried to update only part of an instance, but it still fails: http://msdn2.microsoft.com/en-us/library/aa393949.aspx Related link: http://www.mombu.com/microsoft/mom-sdk/t-set-alert-resolution-state-put-method-fails-with-error-generic-failure-205225.html What this error means and how to resolve the issue? Mazhas Tag: need help creating a VBS for an Excel file. Tag: 203176
  - 5
    - Screen Refresh Im having a hard time getting a hta application to update the screen while processing. >From what i have read i should be using settimeout but i can not work out how. I must be just a dunce. The vbscript file just does a wscript.sleep for 5 seconds while i troubleshoot this issue. Any help will be greatfully received. gui-report.hta <html> <link type="text/css" href="gui-report.css" rel="stylesheet" /> <head> <title>GUI-Report</title> <HTA:APPLICATION ID="objHTAGUI-Report" APPLICATIONNAME="HTAGUI-Report" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > <OBJECT width="0" height="0" classid="clsid: 550dda30-0541-11d2-9ca9-0060b0ec3d39" id="complist" VIEWASTEXT=""> </OBJECT> <body onload="Initialize();" onunload="Cleanup();" class="MainBody"> <script language="vbscript"> Dim fs, sh Const sCmdString = "cscript /nologo test.vbs " Const MaxForks = 1 'starts from zero (ie, 0 = one fork, 5 = six forks) Const MaxRunTime = 15 ' Seconds 'wshExec Const WshRunning = 0 Const WshFinished = 1 Sub Initialize() Dim xmlDoc Set xmlDoc = complist.XMLDocument Const THESETTINGS = "C:\work\xmlreport\test.xml" Set fs = CreateObject("Scripting.FileSystemObject") Set sh = CreateObject("Wscript.Shell") xmlDoc.Async=False if fs.FileExists(THESETTINGS) Then xmlDoc.load THESETTINGS Else xmlDoc.loadxml ("<?xml version=""1.0"" encoding=""utf-8"" ? ><computerlist><computer><Name>BLANK NAME</Name><Status></ Status><Reboot>0</Reboot><Enabled>-1</Enabled></computer></ computerlist>") End If End Sub Sub Window_Onload End Sub Sub ChangePointer If window.event.srcElement.id = "notesbuttonrun" Then notesbuttonrun.style.cursor="hand" ElseIf window.event.srcElement.id = "notesbutton" Then notesbutton.style.cursor="hand" End If End Sub Sub OK_OnClick Dim xmlDoc Set xmlDoc = complist.XMLDocument xmlDoc.save "test.xml" SetStatus "Saved!" End Sub Sub Load_OnClick Dim fso, oFile, sHTML, sFilename, rc Dim sLine, aLine Dim xmlDoc, sXML Set FSO = CreateObject("Scripting.FileSystemObject") sFilename = FileName.Value 'on error Resume Next Dim iLine If FSO.FileExists(sFilename) Then Set xmlDoc = complist.XMLDocument Set oFile = FSO.OpenTextFile(sFilename) sXML = "<?xml version=""1.0"" encoding=""utf-8"" ?><computerlist>" Do Until oFile.AtEndOfStream iLine = iLine + 1 SetStatus "Loading Line: " & iLine sLine = oFile.ReadLine aLine = Split(sLine, vbTab) If Len(aLine(0)) > 0 Then sXML = sXML & vbNewLine & "<computer><Name>" & aLine(0) & "</ Name><Status></Status><Reboot>0</Reboot><Enabled>-1</Enabled></ computer>" End If ' ' If isArray(aLine) Then ' Else ' sXML = sXML & vbNewLine & "<name>" & TypeName(aLine) & "</ Name><Status></Status><Reboot>0</Reboot><Enabled>0</Enabled>" ' End If Loop oFile.Close sXML = sXML & vbNewLine & "</computerlist>" rc = xmlDoc.loadxml (sXML) SetStatus "Loaded file: " & RC Else SetStatus "File Not Found" End If End Sub Sub SetStatus(sMsg) code.InnerHTML = "<textarea cols=100 rows=1>" & sMsg & "</textarea>" End Sub Sub cancel_OnClick TheStatus.Value = "Cancel" End Sub Dim aThreadInfo Dim iVal Sub CheckBool() SetStatus Now() window.clearTimeout iVal MsgBox "HH" ' iVal = window.setTimeout("CheckBool()", 100) End Sub Sub Process_OnClick Call ProcessTest() End Sub Sub ProcessTest Dim xmlDoc, xmlList, xmlComp SetStatus "Processing" Set xmlDoc = complist.XMLDocument Set xmlList= xmlDoc.SelectNodes("computerlist/computer") SetStatus TypeName(xmlList) Redim aThreadInfo(MaxForks, 2) Dim i For i = 0 To UBound( aThreadInfo, 1) Set aThreadInfo(i,0) = Nothing ' wshExec aThreadInfo(i,1) = 0 ' Time Set aThreadInfo(i,2) = Nothing ' xmlComp Next Dim xmlStatus, sEnabled, sCompName ' sEnabled = xmlComp.SelectSingleNode("Enabled").text ' If cBool(sEnabled) Then ' Else ' Set xmlStatus = xmlComp.SelectSingleNode("Status") ' xmlStatus.Text = "Disabled" ' End If Dim iThread For Each xmlComp in xmlList iVal = window.setTimeout("CheckBool()", 100) Set xmlStatus = xmlComp.SelectSingleNode("Status") SetStatus "Processing: " & xmlComp.SelectSingleNode("Name").text sCompName = xmlComp.SelectSingleNode("Name").text xmlStatus.text = sCompName sCommand = sCmdString & " /Workstation:" & sCompName iThread = -1 Do until iThread <> -1 iThread = GetNextThread() SetStatus "GetNextThread = -1" ' wscript.Sleep 100 Loop Set aThreadInfo(iThread,0) = sh.exec(sCommand) aThreadInfo(iThread,1) = Now() Set aThreadInfo(iThread,2) = xmlComp Do Until ProcessCheck() ' wscript.sleep 200 Loop Next Do Until ProcessCount()=0 'call ProcessCheck () Loop End Sub Dim idTimer Sub PausedSection() idTimer = window.setTimeout("PausedSection", 2000, "VBScript") End Sub Function GetNextThread ( ) Dim i GetNextThread = -1 For i = 0 to UBound( aThreadInfo, 1) If aThreadInfo( i, 1) = 0 then GetNextThread = i SetStatus "GetNextThread" & i Exit Function End if Next End Function Function ProcessCount() Dim i, t call ProcessCheck () t=0 For i = 0 to UBound(aThreadInfo) If NOT isNothing(aThreadInfo(i,0)) Then t=t+1 End If Next ProcessCount=t SetStatus "ProcessCount" & ProcessCount End Function Function ProcessFinished() Dim i ProcessFinished = True 'wscript.sleep 100 For i = 0 to UBound(aThreadInfo) If NOT isNothing(aThreadInfo(i,0)) Then ProcessFinished = False End If Next End Function Function ProcessCheck() Dim i, stdOut ProcessCheck = False 'wscript.sleep 100 For i = 0 to UBound(aThreadInfo) If isNothing(aThreadInfo(i,0)) Then 'Check those objects that are running ProcessCheck = True Else If aThreadInfo(i, 0).Status = WshRunning Then UpdateXMLStatus aThreadInfo(i, 2), Now() - aThreadInfo(i, 1) ' If Now-aThreadInfo(i,1) > MaxRunTime Then ' Call ProcessStdIO(aThreadInfo(i, 2), "Thread took longer than MaxRunTime") ' DebugPrint "Terminating thread " & i & " and processid " & aThreadInfo(i,0).ProcessID ' DebugPrint "Terminating thread Started:" & aThreadInfo(i,1) ' 'aThreadInfo(i,0).Terminate ' Run ".\kill.exe " & aThreadInfo(i,0).ProcessID ' wScript.Sleep 1000 ' Set aThreadInfo(i,0) = Nothing ' aThreadInfo(i,1) = 0 ' aThreadInfo(i,2) = vbNullString ' End If Else stdOut = vbNullString stdOut = aThreadInfo(i, 0).StdOut.ReadAll UpdateXMLStatus aThreadInfo(i, 2), "Completed" 'ProcessStdIO (aThreadInfo(i, 2), aThreadInfo(i, 0).StdOut.ReadLine) aThreadInfo(i, 1) = 0 Set aThreadInfo(i, 0) = Nothing Set aThreadInfo(i, 2) = Nothing ProcessCheck = True End If End if Next End Function Function isNothing(oTemp) If TypeName(oTemp)="Nothing" Then isNothing = TRUE End Function Function UpdateXMLStatus(oXML, sStatus) Dim xmlStatus Set xmlStatus = oXML.SelectSingleNode("Status") xmlStatus.Text = sStatus End Function Function ProcessCompThread (xmlComp) End Function </script> <title>Gui Report Title</title> </head> <body> <table border="0" width="100%"> <tr> <td width="50%">FileName:<input type="file" value="FileName" name="FileName" size="40"> <input type="button" value="Load" name="Load" class="button"></td> <td width="50%"><input type="button" value="Process" name="Process" class="button" size=50></td> </tr> <tr> <td width="50%"> <input type="button" value="OK" name="OK" class="button"><input type="button" value="Cancel" name="Cancel" class="button"></td> <td width="50%">ReportDir:<input type="text" value="ReportDir" name="ReportDir" size="50"></td> </tr> <tr> <td width="100%" colspan="2"> <div id="InsertBuildSelect"></div> <table cellspacing="1" cellpadding="2" id="actionheader" width="100%"> <tbody> <tr> <th width="300">Computer Name</th> <th width="250">Status</th> <th width="50">Enabled</th> <th width="50">Reboot</th> <th>output</th> </tr> </tbody> </table> <DIV STYLE="overflow: auto; width: 100%; height: 550; padding:0px; margin: 0px"> <table datasrc="#complist" width="100%" cellspacing="1" cellpadding="2" id="actionlist"> <tbody> <tr> <td width="300"><span datafld="Name"></span></td> <td width="250"><span datafld="Status"></span></td> <td width="50"><input type="checkbox" datafld="Enabled" style="width:12; height:12" /></td> <td><input type="checkbox" datafld="Reboot" style="width:12; height:12" /></td> </tr> </tbody> </table> </DIV> <table> <td width="100%" colspan="2"> <div ID=code_header></div> <div id="code"></div> </td> </table> </div> </td> </tr> </table> <input type="hidden" name="TheStatus" size="20"> </body> </html> test.xml <?xml version="1.0" encoding="utf-8"?> <computerlist> <computer><Name>ADMIN</Name><Status></Status><Reboot>0</ Reboot><Enabled>0</Enabled></computer> <computer><Name>ADMIN1</Name><Status></Status><Reboot>0</ Reboot><Enabled>0</Enabled></computer> <computer><Name>ADMIN2</Name><Status></Status><Reboot>0</ Reboot><Enabled>0</Enabled></computer> </computerlist> Tag: need help creating a VBS for an Excel file. Tag: 203173
  - 6
    - Sort multi-dimensional array using vb.net Hi all, I have a recordset (result after executing a SQL query) containing names of employees and their information. The [EmployeeName] column is in unicode. Due to limition of sorting unicode results in T-SQL, I would like to dump the recordset in an array and sort them according to the [EmployeeName]. Sample data will be as follows: [EmployeeNo]......[EmployeeName]......[Dept]......[Title] 193......Peter......Finance.....Manager 632......Amy......Marketing......(blank) 8765......Chris......Marketing......Clerk 87......John......HR......(blank) I guess the data should be put in an array (arr(no.ofRecords,4))similar to the one below: arr(0,0) = 193 arr(0,1) = Peter arr(0,2) = Finance arr(0,3) = Manager arr(1,0) = 632 .... I find it impossible to use the "sort" method in vb.net because it deals with 1-dimensional array only. May I know how to sort the above data in vb .net (2003) so I can have the [EmployeeName] in ascending order? I will need to display the rest of the information as well. Thanks very much. Tag: need help creating a VBS for an Excel file. Tag: 203172
  - 7
    - Need Some Help I have created a script to force the replication on one of our DFS servers. Set wmi = GetObject("winmgmts:\\" & strcomputer & "\Root\MicrosoftDfs") Set query = wmi.execquery("Select * from DfsrConnectionInfo where partnername = 'FAOSFPS-HO01'") For Each item In query item.forcereplication() Next i am getting SWbemObjectEx: Invalid parameter when i call the method forcereplication. I don't know what parameters to use or what i am doing wrong Tag: need help creating a VBS for an Excel file. Tag: 203168
  - 8
    - Using InStr to find $$ I need to find the existence of two dollar signs in a string. I tried the InStr command but could not make it work: barcode = "whatever$$asdfa" twodollarsigns = "$$" If InStr(barcode,twodollarsigns)=0 Then MsgBox "there is missing data" It works with other characters, not the $$. Any ideas on how I can do this? Thanks DG Tag: need help creating a VBS for an Excel file. Tag: 203158
  - 9
    - external vbscript file I've programmed in VB in Windows for years but new to web dev and VBScript... I'm trying to write a popup balloon to display when user hovers or clicks a link... The text will be data returned from a SQL query. That function works works but I'm trying to put it in an external vbs file. I have my vbs file KJVQuery.vbs with the function that returns a <p> tag with the recordset data: Function GetKJVBibleVerse (sBook, sChapter, sVerse) .... End Function In my calling ASP I;m just trying to test the call with this: <script type="text/vbscript" src="KJVQuery.vbs" language="vbscript"></ script> <% response.write( GetKJVBibleVerse ("Mark", "003", "'001' AND '012'")) %> When I run I get this: Microsoft VBScript runtime error '800a000d' Type mismatch: 'GetKJVBibleVerse' /test3.asp, line 13 PS - anyone know where I can find some code already written with a nice popup that will disappear when it loses focus - not when user clicks close button? Thanks...Tom Tag: need help creating a VBS for an Excel file. Tag: 203154
  - 10
    - initialize input value Trying to initialize an input text box with a date. I thought using < % Date %> in value would do it... <input name="iDate" type="text" maxlength="50" value="<%Date%>"> Thanks... Tag: need help creating a VBS for an Excel file. Tag: 203151
  - 11
    - Open URL links and save page Hi, I'm looking to see if it is possible to create a script that can open a list of links (url's) one by one is fine and save that page? Is this possible? Thanks, Sanj Tag: need help creating a VBS for an Excel file. Tag: 203149
  - 12
    - I need to check Folder and make sure it is empty. I have 4 folders that are used all night and populated with text files. In the morning, the files have all been processed and the foldrs are ( or should be) empty. Occasionally text files get left behind. I need to modify an existing VBScript to check and make sure each folder is empty before allowing operator to continue with script's operation. Psuedocode: 'Check Folder1 Is Folder empty? If Folder is empty, then 'procede with next step, ELSE 'display message box "Text Files have been left unprocessed in Folder1. Move and process files, and empty Folder1, then restart this script."VBCRLF,"This program will now end". '(The vbscript will end and no further action taken if files still exist.) END IF I can handle the actions to take, but I don't know the best way to determine if a folder is empty or if any files exist. The filenames would be multiple and various. Tag: need help creating a VBS for an Excel file. Tag: 203138
  - 13
    - Power Management I currently have about 500 portables that I need to modify the power scheme on. They are defaultly set to the "Laptop/Portable" Scheme. It is causing multiple problems in my environment. I need to change the scheme to "Always On" but making these changes require modification to the below keys of the registry. And non-admin users don't have permissions to change them. HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ControlsFolder\PowerCfg HKU\.DEFAULT\Control Panel\PowerCfg HKCU\Control Panel\PowerCfg I have created scripts that modify the HKCU and can apply it as a login script but I need to modify the machine and .default. Thanks in advance, James Tag: need help creating a VBS for an Excel file. Tag: 203114
  - 14
    - Call a vbscript file from a dos batch file? Can I call a vbscript from a dos batch file? I am creating Windows 2000 and XP unattended installations. The way I have things set up is that I boot the subject computer from a dos based network boot disk. First the user is given the option to choose the Student or Teacher domain. Then the user is given the option to install either XP or 2000. I'd also like the user to be able to enter whatever the end computer's name should be (as a variable I guess). Then a vbscript residing on the appropriate server would be called. That script would read what the computers name is supposed to be, delete an existing account in Active Directory if it exists, and then create the computer account. Is this possible? Thanks, Jeremy Tag: need help creating a VBS for an Excel file. Tag: 203111
  - 15
    - Need Help with file deployment script I have struggled mightily with this, but it is well beyond my fairly pathetic coding abilities. If someone could please help it would be greatly appreciated. What I have is a program that runs scripts or other executables every 5 seconds. The program will not run the script if there is already 1 instance running, so no worries about multiple instances. What I want is a script that when run, will check C:\Deploy If any files exist in the folder it will move them to C:\Backup \YYYYMMDDHHMMSS It will deploy copies of those files to a list of network destinations \\MM00156\C:\deploy for example Under normal circumstances, 3 folders will be dropped into C:\Deploy There will be any number of files within those folders, and those folder names will be static I need to copy ONLY certain files from within those folders to the network destinations preferably from a list such as C:\Backup\20070221155536\Config\Dbapi.pcs C:\Backup\20070221155536\Junk\Config.ini etc etc etc The files when delivered to the network locations will always be overwriting old files, so would need some sort of overwrite without confirm setting or something. My thinking was that the list could be an array populated from an ini file (I suck at arrays), or could just be listed within the script itself, the list of filenames would never change, so it doesn't really matter. I got as far as being able to create the backup folder, but am really struggling with how to make it not create a backup folder every 5 seconds, and how to copy only the files in my list. Option Explicit Dim N, objFSO, objFolder Dim strDirectory N = Now strDirectory = "C:\Backup\" & ((((Year(N)*100 + Month(N))*100 + Day(N))*100 + Hour(N))*100 + Minute(N))*100 + Second(N) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder(strDirectory) Permissions would already be set on all folders to allow the necessary operations, so no issues there. Anyway, I'd really like some help on this one if possible Thank you SO much in advance. Jason Tag: need help creating a VBS for an Excel file. Tag: 203100
  - 16
    - Script to remove and create directories would some assist me in creating a vbs script file to do the following commands: del /q "c:\Documents and Settings\%username%\cookies\*.*" del /q "c:\Documents and Settings\%username%\Local Settings\Temp\*.*" del /q "c:\Documents and Settings\%username%\Templates\*.*" del /s /a:h /q "c:\Documents and Settings\%username%\*.tmp" del /q "c:\Documents and Settings\%username%\Templates\*.*" rmdir /s /q "c:\Documents and Settings\%username%\Local Settings \Temporary Internet Files" rmdir /s /q "c:\Documents and Settings\%username%\Local Settings\Temp" i'm trying to use a .vbs file rather than a .bat file for this process for my users to clear out data from the above locations. thank you in advance, don Tag: need help creating a VBS for an Excel file. Tag: 203098
  - 17
    - Script to Delete Internet Cache Files? I am looking for a way to delete the internet cache files via a script, without deleting cookies. I have a website which is being upgraded, and the new version crashes due to old internet cache files that are not refreshed properly. Deleting the cache files corrects the problem, but I want to avoid having each user do this when they access the app after the upgrade, as it will generate a lot of calls for our help desk. IE is already configured to check for new files on every visit to the page, but this is not working in this case. We could simply delete the contents of everyone's temporary internet files, but this would remove their cookies and all their favorite settings would be lost. This would upset some users, and politically be a bad move, so it is not really an option. I was hoping there would be some way to script this so we could delete all of the cache files, excluding offline content and cookies, just like you do from the Tools, Internet Options, Delete Files. Does anyone know of a way to do this? Tag: need help creating a VBS for an Excel file. Tag: 203097
  - 18
    - ActiveD I have a logon script that is assigned to all my users through and Active Directory Group Policy that attempts to setup a network drive mapping. If the drive letter is already mapped to another path it removes the mapping first using RemoveNetworkDrive. It then creates the new mapping using MapNetworkDrive. If the correct mapping already exists the script does nothing. At the end of the script I loop through the emumerated drives to verify that the mapping exists and it does, but My problem is that for most users the drive mapping seems to vanish as soon as the script ends. Any ideas why? The script, with some of my debugging still there follows. ' MapDrives.vbs ' Removes any existing mapping for the K drive and maps ' it to \\denali\Academics ' ------------------------------------------------------' Option Explicit Dim strDriveLetter, strRemotePath Dim objNetwork, objShell Dim CheckDrive, RemoveConnection, NotAlreadyConnected, intDrive ' The section sets the variables. strDriveLetter = "K:" strRemotePath = "\\denali\Academics" 'Create shell and network objects Set objShell = CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") ' Get network drive count Set CheckDrive = objNetwork.EnumNetworkDrives() ' Loop throuh drives and determine if drive letter exists On Error Resume Next RemoveConnection = False NotAlreadyConnected = True For intDrive = 0 To CheckDrive.Count - 1 Step 2 If CheckDrive.Item(intDrive) = strDriveLetter then If CheckDrive.Item(intDrive + 1) = strRemotePath then NotAlreadyConnected = False Else RemoveConnection = True End If End If Next ' If RemoveConnection then remove the existing network drive If RemoveConnection = True then objNetwork.RemoveNetworkDrive strDriveLetter, "True", "True" End if ' If NotAlreadyConnected then map the network drive If NotAlreadyConnected = True then objNetwork.MapNetworkDrive strDriveLetter, strRemotePath ' WScript.Echo "Mapped " & strDriveLetter & " to " & strRemotePath End If ' Get network drive count Set CheckDrive = objNetwork.EnumNetworkDrives() For intDrive = 0 To CheckDrive.Count - 1 Step 2 If CheckDrive.Item(intDrive) = strDriveLetter then If CheckDrive.Item(intDrive + 1) = strRemotePath then WScript.Echo "MapDrives: " & strDriveLetter & " is mapped to " & strRemotePath End If End If Next WScript.Quit 'End of MapDrives Tag: need help creating a VBS for an Excel file. Tag: 203093
  - 19
    - VBScript/Regex Question Greetings, Example Code: ----------------------------------------------- testString = "<div>Hi there, what's new?</div>" objRegEx.Pattern = "<div>(.*)</div>" objRegEx.Global = true objRegEx.IgnoreCase = true str = objRegEx.Replace(testString, "The results are: $1") ---------------------------------------------- Unless I have something wrong, it appears that $1 is only "returned" by VBScript. In other words, I can't put it into a variable or call functions on it. I need to put the value of $1 into a javascript variable and need to escape all of the single quotes, backslashes, newlines, etc. Is there any way I can change the last line to: str = objRegEx.Replace(testString, "The results are:" & replace("$1", "\", "\\'") and also have it work? Help appreciated! DRN Tag: need help creating a VBS for an Excel file. Tag: 203087
  - 20
    - Appending a text file Hi, Everyone I am trying to move log files from one server to another. the Log files are text files. I am checking that if the file exists in destination folder than I am appending the text file to the same text file in destination folder.But, If the file does not exists in Destination Folder than I move that file from source folder to destination folder. Thanks, Tag: need help creating a VBS for an Excel file. Tag: 203086
  - 21
    - Appending a text file Hi, Everyone I am trying to move log files from one server to another. the Log files are text files. I am checking that if the file exists in destination folder than I am appending the text file to the same text file in destination folder.But, If the file does not exists in Destination Folder than I move that file from source folder to destination folder. Thanks, Tag: need help creating a VBS for an Excel file. Tag: 203085
  - 22
    - Appending a text file Hi, Everyone I am trying to move log files from one server to another. the Log files are text files. I am checking that if the file exists in destination folder than I am appending the text file to the same text file in destination folder.But, If the file does not exists in Destination Folder than I move that file from source folder to destination folder. Thanks, Tag: need help creating a VBS for an Excel file. Tag: 203084
  - 23
    - NOOB QUESTION: How to overwrite specific data in a .csv? Okay, I've got another one for you vets to boost your egos on: Say I have a .csv file that has the following columns: Date Serial Number Location I want to take a variable, compare it to what's in the "Serial Number" column and, if it matches, overwrite all three values. (or delete them and append the new values, which ever is easier) I can open and read and compare the information just fine.. but vb wont allow both read/write access to a file, so how do I achieve this? Can someone draw up a simple example? Tag: need help creating a VBS for an Excel file. Tag: 203079
  - 24
    - Creating a directory structure Please forgive my being a novice on the subject of scripting. I have no previous history with any type of coding (except a little HTML). I'm not looking for the solution. I wouldn't ask that of anyone (unless you really want to give it to me). I've been a part of help forums before and I hate it when people have no desire to actually do it themselves. What I am looking for is perhaps a good resource to begin researching the solution. What steps should I be looking to take? Here's what needs to be accomplished: The script needs to read a file (I'm not sure if it's an excel spreadsheet or a text document). In this document is a list of items. The script will need to create a folder with the names in the document. Then, the script needs to also create 10 subfolders with specific names. The names of the subfolders will be the same for all of the main folders. Within those subfolders, there'd be other subfolders, again - identical throughout. The file that the script reads will only provide the names of the main folders. Any information you can give would be greatly appreciated. Thank you, TriZz PS: I think my boss has me a bit over my head here. Tag: need help creating a VBS for an Excel file. Tag: 203075
  - 25
    - script to determine java install and version Hi All, I am trying to find a script to tell on a number of computers if java is installed and is what version. We are trying to determine what dst patched we need to apply for java. I know I can run java -version remotely but how do I get the response back from that to a file/log. Thanks Mike Tag: need help creating a VBS for an Excel file. Tag: 203074
- Next
  - 1
    - Creating variable on the fly in HTA Hi. I have an HTA which include a span id created on the fly (e.g. <span id="span" & id & "Status">Bla</span>) I would like to change the InnerHTML on that span but am having problems creating the variable on the fly. For example I have tried: strA = "1" <--equivalant to id in the span span&strA&Status.InnerHTML = "Blabla" But that doesn't work. I've also tried strA = "1" <--equivalant to id in the span strB = "span" & strA & "Status" strB.InnerHTML = "Blabla" And that doesn't work either. Can anyone help me or provide any suggestions on how I might do this? Thanks! Tag: need help creating a VBS for an Excel file. Tag: 203070
  - 2
    - Show Desktop Is there a way I can run "Show Desktop" from VBScript? Thanks Tag: need help creating a VBS for an Excel file. Tag: 203067
  - 3
    - English equivenent of VBS Factory is the an English equivalent of this http://www.astase.com/produits/vbsfactory/?PHPSESSID=3b5c2340886018bdcf2249a04dc807ad cheers Tag: need help creating a VBS for an Excel file. Tag: 203065
  - 4
    - Question about WQL statement Hello All I want to get some information about the AntiVirus program installed on the machine, using WMI. By using wmic and the following command line options, I can get what I expect: wmic /NAMESPACE:\\root\SecutiyCenter PATH AntiVirusProduct GET ALL In my WMI client application, I want to use the equivalent WQL statement. What is the equivalent WQL statement? Best Regards Ali Majdzadeh Tag: need help creating a VBS for an Excel file. Tag: 203061
  - 5
    - Read value from some other webpage I'd like to read a value, i.e.the value in a text field with the name='TempInLondon' on the remote page: "www.bbc.com/ weather.htm" (example only, this page does not exist), and use this value in my page, 'www.dot.com/allthewheater.asp'. Is this possible in any way by using scripting or other tech.? A Tag: need help creating a VBS for an Excel file. Tag: 203060
  - 6
    - Design Month "2" into "02" Hi, I have a problem with my VBS. I want to replace an old date with the currently date in a special file. The Replace-Funktion works but the replaced month is "2". I want to replace it with "02". Do you have any Idea how this could work? Heute = Date contents=replace(contents, a, Year(Heute) & "-" & Month(Heute) & "-" & Day(Heute)") The result should be: 2007-02-23 Kind regards Tina Tag: need help creating a VBS for an Excel file. Tag: 203058
  - 7
    - How to change Encoding and CSS in the running HTA? Is it possible to change the Encoding and CSS in the running HTA? For example, user presses the button to change current Encoding or CSS. Tag: need help creating a VBS for an Excel file. Tag: 203051
  - 8
    - Null Error in Script when Saving Distribution List for Outlook I have a script that loads people into a users outlook contact list. It also creates distribution lists by state and then adds everyone into the appropriate distribution list by state. This runs fine for a while but then fails after about 100 or so people. Here is where it fails: wscript.echo name(i) wscript.echo state(i) wscript.echo j Set currentDistro = objContacts.Items(stateNames(j)) wscript.echo stateNames(j) wscript.echo VbCrLf Set myTempItem = objOutlook.CreateItem(0) Set myRecipients = myTempItem.Recipients myRecipients.Add (name(i) & "-" & state(i)) currentDistro.AddMembers(myRecipients) currentDistro.Save <---- Error occurs on this line, line 141 The output when it fails looks like this: Jane Smith CA 4 CALIFORNIA addCSVtoOutlookTAB.csv(141, 4) (null): Operation aborted <--- from cscript at command line Error Code 80004004 Source (Null) from WSH. It fails at this point EVERY TIME but there is nothing special about this record. Many other people have been successfully added into the CALIFORNIA distribution list, such as Jane Doe CA 4 CALIFORNIA in the output just before Jane Smith. I am confused at what this means. Thanks for any guidance. Tag: need help creating a VBS for an Excel file. Tag: 203034
  - 9
    - List folder and subfolders on remote computers I have this script that I execute from an asp page that lists a computer's C:\Windows subfolders and gives thier size but only shows the first level. I would like to have it list all subfolders past the first level too. It is my understanding that FileObject doesn't work on remote computers so I've been using WMI. Here is my current script and hopefully someone can help. Thank you. Server.ScriptTimeout = 420 '7 minutes Const FOR_WRITING = 2 Const FOR_READING = 1 strComputerName = MyComputer strFileName = "C:\Temp\FolderList.txt" strLogName = "C:\Temp\FolderList.log" 'Connect to FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Only create FolderList.txt if it doesn't exist If objFSO.FileExists(strFileName) Then Response.Write strFileName & " already exists." & "<BR>" Else Set objCreateFile = objFSO.CreateTextFile(strFileName, False) objCreateFile.Close End If 'Open FolderList.txt in write mode and start adding all the local folders to it Set objTextFile = objFSO.OpenTextFile (strFileName, FOR_WRITING) Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerName & "\root \cimv2") Set colDirectory = objWMIService.ExecQuery ("Associators of {Win32_Directory.Name='C:\Windows'} WHERE AssocClass = Win32_Subdirectory ResultRole = PartComponent") For Each objFolder in colDirectory objTextFile.WriteLine objFolder.Name Next objTextFile.Close 'Open FolderList.txt in read mode and getting ready to replace C: prompt Set objOldFile = objFSO.OpenTextFile(strFileName, FOR_READING) 'Create an instance of the regexp object Set objRegExpr = New regexp objRegExpr.Global = True objRegExpr.IgnoreCase = True objRegExpr.Pattern = "C:" 'With FolderList.txt still open, read it to a varialbe, close it and then 'run the replace expression against the variable strOldFile = objOldFile.ReadAll objOldFile.Close strNewFile = objRegExpr.Replace(strOldFile, "\\" & strComputerName & "\c$") 'Open the same file and write mode overwrite the variable Set objFile = objFSO.OpenTextFile(strFileName, FOR_WRITING) objFile.WriteLine strNewFile objFile.Close 'Open FolderList.txt in read mode Set objOpenFile = objFSO.OpenTextFile(strFileName, FOR_READING) %> <TABLE border="1" Align="Center"> <TR> <TD>Folder</TD> <TD>Size</TD> </TR> <% Do while Not objOpenFile.AtEndOfStream strReadLine = objOpenFile.ReadLine Set objFOL = objFSO.GetFolder(strReadLine) On Error Resume Next strWriteSize = FormatNumber(objFOL.Size,0) strWriteSize = Space(15-Len(strWriteSize)) & strWriteSize & " " Set objFOL = Nothing %> <TR> <TD><% Response.Write strReadLine %></TD> <TD><% Response.Write (strWriteSize) %></TD> </TR> <% Loop %> </TABLE> Tag: need help creating a VBS for an Excel file. Tag: 203024
  - 10
    - Noob needs help. Why doesn't this work? Here's the script: ----------------------------------------------------------------------------------- strTempfile = "go_temp.txt" set objShell = WScript.CreateObject("WScript.Shell") Set UserEnv = objShell.Environment("USER") Const WaitOnReturn = True Const WindowStyle = 1 objShell.run "date /t >" & strTempfile & "", WindowStyle, WaitonReturn ------------------------------------------------------------------------------------ and here's the error: ---------------------------------------------------------- Script: e:\try.vbs Line: 8 Char: 1 Error: The system cannot find the file specified. Code: 80070002 Source: (null) ---------------------------------------------------------- Why? The go_temp.txt is there. In fact, even if I just use the "date / t" command, it gives the same error. Tag: need help creating a VBS for an Excel file. Tag: 203020
  - 11
    - script adding/changing network printers and drivers We have many users that move between locations and need to print at each location. The concept is to put a script on an intra-net page that will allow users to choose their location and then be able to download and/or click a link that will automatically install printers and drivers for the location. I am new to scripting, have some understanding of vbscript, but need help with how/if this might be done. Any help would be very appreciated. Tag: need help creating a VBS for an Excel file. Tag: 203019
  - 12
    - Do...Loop search execution problem Hi- I've patched some code together for a script that will (hopefully) delete an icon when the script detects that the cd the icon is linked to is no longer in the drive. This is part of an HTA file I've created for software support/installation. Problem is that when the script loops that it doesn't actually search again. I've tried playing with the placement of the do...loop stuff but all I've succeeded in doing is getting the "loop without do" error. The rest of the script works great but halfway isn't complete. Here's the offending code... strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive") For Each objItem in colItems strDrive = objItem.Drive Set colFiles = objWMIService.ExecQuery _ ("Select * From CIM_DataFile Where FileName = 'autorun' " & _ "AND Extension = 'hta' AND Drive = '" & strDrive & "'") Do Do While colFiles.Count = 1 wScript.Sleep 10000 If colFiles.Count = 0 Then Exit Do End If Loop Loop Until colFiles.Count = 0 Set fso = CreateObject("Scripting.FileSystemObject") ThisDrive = fso.GetDriveName(currdir) Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strDesktop & "\cdrom.lnk") Set objFSO = CreateObject("Scripting.FileSystemObject") strScript = Wscript.ScriptFullName objFSO.DeleteFile(strScript) Next WScript.quit Thanks for the help in advance Tag: need help creating a VBS for an Excel file. Tag: 203015
  - 13
    - Environment Problem Hi, I have patched together a script that creates a share, enumerates the network, adjusts the registry, runs a harddware/software inventory and send the output back to the share. This is primarily to be used in Server 2003 domain environments. In some it works perfectly, but in others the audit runs but the output never gets back to the share. '************************Automated Win Audit****************************************************************** On Error Resume Next '************************Create Network Repository************************************************************ Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("C:\Audit", "Audit", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Hardware/Software Inventories") Wscript.Echo errReturn '**************************Enumerate Computers in Domain******************************************************* Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT CN FROM 'LDAP://dc=domain,dc=com' WHERE objectCategory='computer'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strComputer = objRecordSet.Fields("Name").Value ' ===================================================================== '*************************Set remote Registry to allow script execution**************************************** Const HKEY_LOCAL_MACHINE = &H80000002 Set objRegProv = GetObject("winmgmts:{impersonationLevel=Impersonate}" & _ "!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings" objRegProv.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Remote","1" objRecordSet.MoveNext Loop '*******************************Run Inventory******************************************************************* Set ObjShell = WScript.CreateObject("WScript.Shell") ObjShell.Run "psexec \\* -c winauditu.exe cmd C:\winauditu.exe /r=gsoPxNtnzDIbMpmidc /o=PDF /f=\\ComputerName\Audit\",1,True '*************************************************************************************************************** Thanks for any insight on this. Tag: need help creating a VBS for an Excel file. Tag: 203008
  - 14
    - FSO Issues with Unicode I am having a bit of trouble dealing with HTML files that I am manipulating via VBS. There are hundreds of files that I need to parse for specific text in the tables that may exist on the page. I am using IE to load the file, then enumerating the Tags collection to search for what I want, then deleting the table row where the text is found. Here is where the issue comes up. I need to then save the file using FSO at this point. However, every once in a while there will be an issue with saving a file that causes this error : "Invalid Procedure call or argument" I found this page that explains the issue, an unexpected character in an FSO writeline method. http://classicasp.aspfaq.com/files/directories-fso/why-do-i-get-invalid-procedure-call-or-argument.html If I set the Unicode save option, then all is well. However, the HTML files are part of a Microsoft HTML Workshop project that does not support Unicode, I need to save in plain text, but FSO chokes on about 10 files in a thousand. So I thought I would try using an ADO stream and see where that gets me. But I am having a bit of trouble getting the page from the Instance of IE available to the ADO object. Can someone please give me some pointers on how to get a page loaded in an instance of IE to an ADO stream so I can save the beast ? I have been here : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/4ead2a13-de31-487e-b826-53f132f25cbb.asp But it is a bit of a challenge to figure out which information is relevant to MSXML2.XMLHTTP and which is relevant to MSXML2.DomDocument. I seem to be able to load the page using DomDocument with the loadXML method, but the DomDomcument does not support the responseBody method so I can not get the information to the ADO stream. Any and all help is appreciated. TIA TDM Tag: need help creating a VBS for an Excel file. Tag: 203007
  - 15
    - VBSCRIPT to get USERNAME / LOGIN Hi! I am new to VBSCRIPT and can't find a way to get the username of the person looking at the webpage. I'm working inside the intranet, so everyone is already logged in. From an ASP page I am sending a email when the user clicks on submit... what I need to do is include the username (login name) of the person sending the form. How can I do this? Thanks a lot for your help!!! Tag: need help creating a VBS for an Excel file. Tag: 203006
  - 16
    - vbscript excel problem I'm able to open and rename an excel file with vbscript but it doesn't run the auto_open macro. Is there a way to make it run? ----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==---- http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups ----= East and West-Coast Server Farms - Total Privacy via Encryption =---- Tag: need help creating a VBS for an Excel file. Tag: 203005
  - 17
    - How to enable/disable field in an HTA I'm looking for some help on an Hypertext application using vbscipt. We have an HTA that has a check box. By default we want several dialog boxes to be disabled (grayed out) so the user cannot imput data into the fields but if the user selects the check box we want fields to become enabled. If the user unchecks the check box after data has been imputed into the fields we want the fields to be cleared and the dialog boxes to once again become disable. I've got the clearing of the fields down (easy) but I cannot find any reference telling me if it is possible to enable/disable fields and if so, how to do so from within the imbedded VBScript. If anyone can provide me with a code snippet on how to do this (if it is possble in the first place), I would deeply appreciate the help. Tag: need help creating a VBS for an Excel file. Tag: 202991
  - 18
    - NOW to character string VBS This should be easy...but it slowing me down! I need to use the Now statement to create a series of numbers. If I use Now, I get 2/21/2007 9:30:02 PM What I want is 221200703002 I want ust the numbers so I can use them as a fairly unique filename. Any ideas? Thanks! Tag: need help creating a VBS for an Excel file. Tag: 202989
  - 19
    - Script Ends Unexpectedly I have an odd behavior with a script that seems to end when it should not. I had an original that worked 100% yet the new version posted bellow, with a few changes, ends before completing a full loop of the sheet (but always at one of two spots). The changes are marked in comments, and the SubDistrict was added, before that code was not in a Sub. The script reads a couple of Excel cells to gather IP and computer name info, then runs some WMI instructions on it. By all that I can see, it should read the Excel sheet till the field with Site Name = 0 length, but it stops after 151 matches. I ran it 3 times, each time it found 151 matches and stoped looping. The sheet has about 500 matches that should have been read, and about 2200 total rows. There is no orphan EXCEL process so that tells me that the actual script exits where it should, but before it reads the whole sheet. There does not seem to be an issue with the If statements of the sub, as it does work for a few Thanks for any help On Error Resume Next Const FOR_READING = 1 Const ForAppending = 8 Dim IP, IPDialUP, Site, CompName Dim strSerial, strRAM, strPrinterName, strDistrict Set WshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") '**** ADDITION STARTS HERE **** strDistrict = InputBox("Enter your District number.") If IsNumeric(strDistrict) = True And (Len(strDistrict) = 5 Or Len(strDistrict) = 4) Then Call subDistrict Else Reply = msgbox ("District number does not match proper length or is not a number!" & vbCrLf & _ "Please run the script again and re-enter the district number.", 48, "Script Error") WScript.Quit End If '**** ADDITION ENDS HERE **** '**** sub called if District is selected **** Sub subDistrict Set objExcel = WScript.CreateObject ("excel.application") objExcel.DisplayAlerts = 0 Set PathExcel = objExcel.WorkBooks.Open _ ("\\ServerName\Server\Scripts\Reports\Inventory.xls", False, True) r = 2 Do until len(objExcel.cells(r, 4).value) = 0 '**** If the District value in the excel sheet = District variable in the script run ping test '**** Need to convert the values to a String to test against each other **** If CStr(objExcel.cells(r, 3).Value) = strDistrict Then IP = objExcel.cells(r, 19).Value Site = objExcel.cells(r, 4).Value CompName = objExcel.cells(r, 6).Value IPDialUP = (Mid(objExcel.cells(r, 19).Value, 1, 2)) '**** ping the IP listed for the server, run ping window minimized **** Set objShell = CreateObject("WScript.Shell") objExec = objShell.Run("ping -n 2 -w 2000 " & IP, 7, True) '**** and do the remote mods ***** If objExec = 0 Then Set objWMIService = GetObject("winmgmts:\\" & IP & "\root\CIMv2") Set colItemsSerial = objWMIService.ExecQuery("Select * from Win32_BIOS") Set colItemsPrinter = objWMIService.ExecQuery("Select * from Win32_PrinterDriver") Set colItemsComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For each objComputer In colItemsSerial strSerial = objComputer.SerialNumber Next For each objComputer In colItemsComputer strRAM = objComputer.TotalPhysicalMemory Next For each objPrinter In colItemsPrinter strPrinterName = objPrinter.Name Next Call WriteResults End If End If r=r+1 Loop objExcel.Quit End Sub Sub WriteResults Set RAMResults = objFSO.OpenTextFile _ ("\\ServerName\server\Scripts\ScriptResults\" & strDistrict & "_District_ComputerInfoResults.csv", ForAppending, True) RAMResults.Write Site & "," & CompName & "," & IP & "," & strSerial & "," & strRAM & "," & strPrinterName & "," & Now() & vbCrLf RAMResults.Close End Sub Tag: need help creating a VBS for an Excel file. Tag: 202986
  - 20
    - VBScript excel help Hope this is the right group. I have done some VBScripts in the past, but have a new need for one that's over my head. My understanding that the difference between VBS and VBA is I can edit and run a VBS(just a text file) without opening Excel. I want to automate the process of opening 17 CSV files and place them in the same workbook in their own worksheet. How can I do this with VBS? Thanks for any help! Brian Tag: need help creating a VBS for an Excel file. Tag: 202985
  - 21
    - Script to Select All in Word Hello, I have this script (see below) that opens a new document using a template that I created. Once the doc is opened I Insert a text file into the document. I now need to do a Select All and change the Font Type and Size. Can someone tell me how that is done? **************** Script begins below *********************** Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add("C:\MY SCRIPTS\MYTEMPLATE.DOT") Set objSelection = objWord.Selection objSelection.TypeParagraph() objSelection.InsertFile("C:\My Scripts\test.txt") Tag: need help creating a VBS for an Excel file. Tag: 202979
  - 22
    - Help with remote Access Script Here is what I am doing. Scenario: I have a Domain user logged into a domain computer. This computer is a laptop and is off line of the domain. The user creates a VPN connection back. Keeping in mind that while on DNS I do not have DNS resolution so I need to us all IP addresses unless i make an entry in the local host file. I want to create a script on the desktop to map the users home network drive. I know how to script for other drives. I would like a script to look and see that the user is a domain user logged into a domain account and then map its home drive. Domain= ifms.local domain IP= 10.20.12.3 username=hsimpson UNC to home Drive=10.20.12.3\users$\hsimpson What would the script look like? Tag: need help creating a VBS for an Excel file. Tag: 202978
  - 23
    - Error 800a0401 In the statement below, being used in an asp application, I am trying to define EndDate as the date 2 months prior to today's date; but obviously I have a syntax error. Enclosing the "m" in double quotes doesn't help. Thanks in advance for any help on this. Rick Microsoft VBScript compilation error '800a0401' Expected end of statement /calendar/results_event_type_2005.asp, line 23 Recordset1.Source = "SELECT * FROM Events WHERE EventType = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND EndDate >= DateAdd("m",-2,Date()) ORDER BY StartDate ASC" -----------------------------------------------------------------------------------------------------------------------------------------^ Tag: need help creating a VBS for an Excel file. Tag: 202975
  - 24
    - Print to a specific printer Hi, I'm trying to write a script that'll parse a database and print a graphic header then text from the database to a printer also selected from the database. I'm not sure if I can do this through DTS or VBS or what, but I was wondering if anyone had a suggestion... Thanks -- Alex Tag: need help creating a VBS for an Excel file. Tag: 202974
  - 25
    - Changing Target Path of SpecialFolders("My Documents") I've been looking all over the net and can't seem to find any example of changing the path (target) of the My Documents folder. There's plenty of examples that show you how to display the current path of My Documents or place a file or short into My Documents, but nothing about changing the properties of this folder. TIA, Jim Tag: need help creating a VBS for an Excel file. Tag: 202972

I have an Excel file with a few worksheets in it. One of those worksheets
contains data that is linked to a TXT file and another is linked to another
Excel file.

When I open the file it prompts to "Enable Automatic Refresh". I click yes,
then I get two more prompts - one for each of the links mentioned above.

Here's what I'm looking to do:

I want a script that will open that file and automatically respond (in the
affirmative) to those 3 prompts. I then want the file saved and copied into
another location - so that when the user opens it, it is more or less
"stale" data - in otherwords, it doesn't give them the option to
automatically refresh.

Is this possible? How? Help!

Thanks!
Glenn

Top

Re: need help creating a VBS for an Excel file. by OldDog

OldDog
Tue Feb 27 15:46:41 CST 2007

On Feb 26, 12:13 pm, "Glenn" <nos...@yahoo.com> wrote:
> I have an Excel file with a few worksheets in it. One of those worksheets
> contains data that is linked to a TXT file and another is linked to another
> Excel file.
>
> When I open the file it prompts to "Enable Automatic Refresh". I click yes,
> then I get two more prompts - one for each of the links mentioned above.
>
> Here's what I'm looking to do:
>
> I want a script that will open that file and automatically respond (in the
> affirmative) to those 3 prompts. I then want the file saved and copied into
> another location - so that when the user opens it, it is more or less
> "stale" data - in otherwords, it doesn't give them the option to
> automatically refresh.
>
> Is this possible? How? Help!
>
> Thanks!
> Glenn

That sounds more like an Excel macro to me.

Top

Re: need help creating a VBS for an Excel file. by TDM

TDM
Wed Feb 28 11:02:32 CST 2007

>
> That sounds more like an Excel macro to me.
>

I agree. If you create a VBA Module with the name
AutoOpen, any code in that module will run when the
file is opened automatically.

TDM

Top