how to write recordset datas of vbscript into existing excel sheet

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
    - Windows 2000 WMI issue Can you guys tell me why this doesn't work under Windows 2000? This works fine under Windows XP. strResults is always empty. On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 strAppName = "Microsoft" computername = "machinename" Set objWMIService = GetObject("winmgmts:\\" & computername & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name LIKE '%" & strAppName & "%'", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems strResults = strResults & VbCrLf & "Name: " & objItem.Name strResults = strResults & VbCrLf & "Version: " & objItem.Version & VbCrLf Next MsgBox strResults Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 219000
  - 2
    - Long paths Ok, I have an access module which builds an index of directories in the subtree of a user-selected directory/drive. Then, it goes through those and builds another index of all the files in those directories. I'm using the FileSystemObject just for clean code. Here's the problem I'm hitting. I'm hitting the 260 character MAX_PATH limit. The fso is reporting the correct number of files, but for the files that exceed the limit, it acts like they're not even there. No errors are raised, nothing. I've tried this in VB6, but again nothing. I was told the kernel has some API's I can use, but honestly, I am not that well versed in API usage. Bottom line, I need to be able to capture the long path of every file. I can use the shortpath for my metadata extraction, etc, but for the people who use the output of this, I do need to capture the "windows explorer" name. Here's an example of a filepath that's too far out: (This is an actual file that I generated for testing) X:\shared\username \New_Folderaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadfasdfasdfasdifuasdiofuyeasdkofuheasdkjfjheaskldjfheaskdfheaskdjfheaskldjfheaskdjfhasd \adsfdkjfheaskdjfheasldkjfheasdklfehasdfkljashdlfjksdfh.txt Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218983
  - 3
    - Left function is EXECQUERY Good afternoon, I have a VB Script which grabs the user name and specified printer at terminal service logon. See below: Set WSHNetwork = CreateObject("WScript.Network") strUser = WSHNetwork.UserName strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") For Each objPrinter in colPrinters objPrinter.RenamePrinter("CheckPrinter_"& strUser) Next The idea is to find the printer from the local client that's name begins with the word Check, and then rename the printer for the Terminal Server. I cannot get the LEFT Function to work for me, however. The line in question is: Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") I am sure it is some minor syntax that I am overlooking. Can anyone help? Thanks in advance. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218975
  - 4
    - Read Windows XP\Network Places\Web Folders URLs to file Hi, I need to run a script that will read Windows XP 'Web Folders' URLs to a file. I have tried to locate Web Folders with no success. I already used NETHOOD folder to get folder names but the info is missing the full path: IEx: the SIte: http://SubSite.SharePoint.Site.com/Sites/SiteName/SubFolder under 'Web Folders' will be "SubFolder on SubSite.SharePoint.SIte.Com" under NETHOOD How can i get the full path? Keef. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218973
  - 5
    - Manage ACCESS MDE compiled MDB+forms+code to append data from vbs -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hello from Spain... i would like to open from scripting mde files to append data from csv using ado via vbs. Thanks !! -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (MingW32) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFIZrme6+HoRbsiJSkRAnb8AJ0cmwUccvpg3s99ClgTT1QRIKO6dQCfQOHV DZpJbLZbtjxHt4f9znHTwjM= =/4OX -----END PGP SIGNATURE----- Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218971
  - 6
    - substitute for subst is it possible to have a script to map a drive letter to a directory without using subst? Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218966
  - 7
    - Regular Expression - Subnet Dear All, I have the following regular expression to check that a subnet has been entereted correctly during a server prep script that I am writing. It works fine if a number other than 0 is entered as the last octet however if i enter more than one zero it accepts it as a valid subnet. i want it to check that only one 0 has been entered as the last octet. And ideas on the syntax. and if anyone can reccommend a couple of tutorial websites for regular expressions and tutorials that would be great. Pardon the terrible explanation. strRegEx = "\d{1,3}\.\d{1,3}\.\d{1,3}\.0" Cheers, -- Ben Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218963
  - 8
    - How can I manipulate Sharepoint Lists in VBScript? Is there a simple way to read from and write to Sharepoint Lists in VBScript. I tried to create an Access MDB with a link to a Sharepoint List and use ADO to read it, but it gives an error... Error Number: -2147467259 Could not find installable ISAM. Is there a Sharepoint object for VBScript? -- /* Don Reynolds */ Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218954
  - 9
    - What folder does Outlook 2007 use for scripts? I have a script (.vbs) which I wish to run upon receiving certain messages. What is the default directory path in which to place the script so that I may invoke it with a rule? Thanks! Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218950
  - 10
    - Help with Logon script error Below is a logon script that I've basically put together from various other examples. The intention of the script is to map a set of common drives for my users. The script should check to see if a drive mapping already exist, if so, then remove it, then map the drive letter back to what I want. I kow/think that part of it is an attempt to handle persistent drive letters in Explorer where even after disconnecting the drive,it still appears in "My Computer" When I run the script I get the following error: Line: 11 Char: 1 Error: object required 'objFSO' Can anyone help? I'm sure this is soemthing simple, but I have basically no VBS knowlege Thanks, Mike Here is the scrip: ===================================================================================== Dim WshNet '***************** 'MAP COMMON DRIVES '***************** ' 'Note: U: (User Home directory) is mapped in the user profile in Active Directory 'G: Drive - FS01\App '************************ If (objFSO.DriveExists("G:" = True)) Then objNetwork.RemoveNetworkDrive "G:",True,True End If If objFSO.DriveExists("G:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("G:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "G:", "\\fs01\app" Set WSHNet = Nothing 'S: Drive - Bea2\Users '************************ If (objFSO.DriveExists("S:" = True)) Then objNetwork.RemoveNetworkDrive "S:",True,True End If If objFSO.DriveExists("S:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("S:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "S:", "\\bea2\users" Set WSHNet = Nothing 'I: Drive - FS02\Img '************************ If (objFSO.DriveExists("I:" = True)) Then objNetwork.RemoveNetworkDrive "I:",True,True End If If objFSO.DriveExists("I:") Then Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") objReg.DeleteKey HKCU, "Network\" & Left("I:", 1) Set objReg = Nothing End If Set WshNet = WScript.CreateObject("WScript.Network") WshNet.MapNetworkDrive "I:", "\\fs02\img" Set WSHNet = Nothing ================================================================================================== End of Script Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218947
  - 11
    - When do I have do define variables with "DIM" ? Occasionally I saw VBS script where local variables were declared on top with a statement like DIM myvar However most of my own vbs script run without such declaration. When do I need them and when not? Tony Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218946
  - 12
    - Modifying HKCU or HKU subkey that has been restricted Does anybody have an idea on how to edit the HKCU or HKU part of the registry? Here is my problem. We have changed from outlook to Lotus notes. And outlook is still trying to set itself as default mail client. I know where the key is to turn off the check, but during the configuration of Office the key has been restriced. I need to either change the reg key or delete it all togeather. I have a script that will make the changes to my own HKCU, but I am in the local admins group. I need this to work for a normal user(non-admin). I have to roll this out to about 400 computers. I hope I given enough information. Thank you for any input. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218941
  - 13
    - Map network drive for user using VB/ASP.NET Hello, I'm trying to create an admin page that can run miscellaneous scripts for our IT department. Currently, I'm trying to create a script that can map a network drive for a user (e.g. a form where I can input \\path\folder, drive letter, and domain\user). Is this possible? If so, can someone point me in the right direction? Thank you, Brian Nicholson Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218939
  - 14
    - SQL Query in VBScript Hi, I am trying to write a SQL query in vbs. I have been able to write a script which queries a single table. My problem now is that I am not sure how to structure the query for two tables. This is what I have got so far: ---------------------------------------------------------------------------------------------- Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=Test;" objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT ComputerProperties.ComputerName, ComputerProperties.ParentID, ComputerProperties.UserName, ProductProperties.ParentID, ProductProperties.DatVer FROM ComputerProperties, ProductProperties" , objConnection, adOpenStatic, adLockOptimistic strSearchCriteria = "ComputerProperties.ParentID = ProductProperties.ParentID" objRecordSet.Find strSearchCriteria If objRecordset.EOF Then Wscript.Echo "Record cannot be found." Else wscript.echo objrecordset("ComputerProperties.ComputerName") & " " & objrecordset("ProductProperties.DatVer") End If objRecordset.Close objConnection.Close ----------------------------------------------------------------------------- When I run this script I get the following message: "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another" Essentially, I am trying to run this SQL Query: Select ComputerName, DatVer, UserName From ComputerProperties, ProductProperties where Computer.Properties.ParentID = ProductProperties.ParentID and ProductProperties.ProductCode = 'Viruscan8600' and DatVer < '5315' Order By ComputerName Does anyone know how I might be able to do this? Many thanks, Ben. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218937
  - 15
    - Running an Excel macro usning .vbs Hi: I've got a script that runs fine if I run it through the VB Editor, but won't run when done through a script. I'm not sure where I'm going wrong here, so if anyone has any ideas I'd appreciate it. Sub openexcel() Dim xlObj Set xlObj = CreateObject("excel.application") xlObj.Workbooks.Open "C:\Documents and Settings\****\My Documents\Import Tool.xls" xlObj.Run "Daily_Vol" 'This is the name of the macro w/in the Import Tool file saved as a Module xlObj.ActiveWorkbook.Saved = True xlObj.ActiveWindow.Close xlObj.Quit Set xlObj = Nothing End Sub Thanks Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218936
  - 16
    - vbs question I have a VBS script that is scheduled to run through windows scheduler. (Automation). I am looking for a command to place it in the script to generate verbose/debugging mode to see exactly the flow of the script. thanks Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218928
  - 17
    - ASP connection string to SQL2005 I am trying to connect to SQL2005 server, and the script is written in ASP. I am trying to figure out why I am getting this error as below; Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Mid' I currently have following connection string; "Provider=SQLDB; User ID=fm_user; Password=fm_user; data source=SQLFM,8701;persist security info=True;initial catalog=FM;" I would greatly appreciate for any feedback. Thanks. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218924
  - 18
    - How to get in a vbs script the sum of values of a Excel cells in a certain range? Assume I want to get the sum of values of all cells from the range "H6:H18" from an Excel Worksheet. How can I do this within vbs script? Claudia Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218915
  - 19
    - How to use a *.vbs Hi. I'm new to vbScript. How do I run those *.vbs-files? Thanks Michi Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218908
  - 20
    - MS Word Object - info hello I would like to find out more of the Word.Application methods and properties, I'm trying to write a vb script to automate a document. such as how to start on a new page etc, I have some basics, but need more on the word application (I use visual studio 2005 and could not find anything in there, but I'm still new to the vb scripting world) Any good examples or papers on this object would be great. Rgds D -- Dee Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218899
  - 21
    - Bypass folders without file permissions i have a vbs to count number of doc files, like this for each folder in folders .... next the script is completely ok to count files in the folders with file rights permission. however, i try to run it in other folders without file rights, like c:\documents and settings\OtherUser.... it has a script error then i use "on error resume next" to try to bypass the folder the script can be finished. but the count calculation is completely wrong. funny is that it return result of 1732 doc files but i don't have permission to look into the folder. my question is how can i bypass the folder which i don't have file permission. my script is supposed to loop through all the folders in a drive. Thanks a lot. tony Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218898
  - 22
    - ActiveXPowerShell component The ActiveXPoSH COM component released with PrimalScript 2007 Service build 566 is now available as a free download from SAPIEN.com For more details please review this document: http://support.sapien.com/bulletins/ActiveXPoSH.pdf ActiveXPoSH is free for personal and commercial use. You can download the installer from here: http://www.primalscript.com/Free_Tools/index.asp Alexander Riedel SAPIEN Technologies, Inc. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218895
  - 23
    - Searching computers on the net, and finding which is online This concerns a logon-script, which assigns drive letters to network drives, like in WshNetwork.MapNetworkDrive "E:", "\\server-x\Public" The problem is that not all servers (rather peers) are not always switched on, and trying to map drives to those computers results in long wait times and eventually invalid drive mappings. But the WshNetwork object offers me -- as far as I can find out -- no means to verify first, if the target computer is actually reachable. I would like to have a method which enumerates all computers which are currently logged on in a domain, or searching computers on the LAN generally, as the "Search computer" menu item in "Network Neighbourhood" (or how that is called in english). Is that possible and can anybody point me to some way to do that, please? Cheers, L.W. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218894
  - 24
    - FSO display rootfolders the following script displays folders under a folder ************ Set objFSO = CreateObject("Scripting.FileSystemObject") set objdrive = objFSO.getfolder("e:\temp") for each folder in objdrive.subfolders msgbox(folder) next **************** however, i wish to displays "rootfolders" under a "drive" i cannot simply change the line 2 as follows ******************* Set objFSO = CreateObject("Scripting.FileSystemObject") set objdrive = objFSO.getdrive("e:") for each folder in objdrive.subfolders msgbox(folder) next ******************** how can i do it as FSO? Thanks a lot. Tony Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218891
  - 25
    - Script to import Avaya Informix database Hello - Please HELP! I need to use information from four tables which are from our phone system (Avaya system; database type = Informix). I've tried to import the info via ODBC (install disk given to us by Avaya, but I need to do it on a Windows Server 2003 server and I am getting an oledb_lt.lic (licensing) error that they cannot resolve. In the end, I need to import this into a Sql Server database and schedule daily imports. Thought I could import it directly into Sql Server via BIDS and schedule it through Agent, but to no avail. I then tried to even get the info out in the form of a text file, but again to no avail. My next thought was perhaps a VB script may be the answer, but I don't know how to do that. Any help anyone can give me will be REALLY appreciated! Naturally, this is a rush job . . . -- Sheldon Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218888
- Next
  - 1
    - CDO script causes Exchange Server to hang Pardon me for making this so vague, but... I have a script that uses CDO to access messages in a mailbox and delete them based on age. The script works fine in testing. It works some of the time in the production environment, but intermittently causes the Exchange Server's local delivery queue to stop processing, become unresponsive to a manual reconnect, and require the server to be rebooted. The consequence not as bad as it may sound. This server is used only for journaling copied messages. I know this sounds like an Exchange issue, but thought I would ask the question here first to see if anyone had a similar issue. Is there some way to throttle or "chunk" the amount of data transmitted in the session? This might be similar to the ADO Recordset parameter that limits the number of records returned in a query. There are typically a million messages in the target folder... Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218887
  - 2
    - Disable USD Hi All, Somebody have step-by-step procure what need do to disable USB drive and ensure that system will not change the key registry when putted new USB pen drive? Thanks Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218886
  - 3
    - waiting for function/process to finish... Hi all, I am looking for a simple way to wait for a process/function to finish. I have tried a few combinations of code, however i keep getting various errors and i am getting frustrated, hence the request for help. what i am doing is running a file copy registration function for dll in vbscript that i need to wait for it to complete before i do the next function/sub. --- Example -- Sub Window_OnLoad copyDLL("test.dll") nextFunction() etc End Sub Function copyDLL(oFile) the function stuff End Function --- End Example --- I would like to put some script in place that will wait until the copyDLL function has completed before doing nextFunction() etc... I appreciate your help in advance. Cheers, Darren Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218880
  - 4
    - update text file I need to update a text file. My current attempt is to create a recordset from the text file, which I am thinking I would have to disconnect to make it updatable. Here is my code sample: sql_Regents = "SELECT * FROM [" & str_PlanName & ".csv]" 'Connect to the text file, and create our base RecordSet Set rs_regents = CreateObject("ADOR.RecordSet") rs_regents.Open sql_Regents, strCon', adOpenForwardOnly, adLockBatchOptimistic 'disconnect the recordset to update it Set rs_Regents.ActiveConnection = Nothing str_PlanName & ".csv" is an existing file. I get the following error at the "Set rs_Regents.ActiveConnection = Nothing" line: Operation is not allowed when the object is open Any help or alternatives would be appreciated. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218877
  - 5
    - update text file I need to update a text file. My current attempt is to create a recordset from the text file, which I am thinking I would have to disconnect to make it updatable. Here is my code sample: sql_Regents = "SELECT * FROM [" & str_PlanName & ".csv]" 'Connect to the text file, and create our base RecordSet Set rs_regents = CreateObject("ADOR.RecordSet") rs_regents.Open sql_Regents, strCon', adOpenForwardOnly, adLockBatchOptimistic 'disconnect the recordset to update it Set rs_Regents.ActiveConnection = Nothing str_PlanName & ".csv" is an existing file. I get the following error at the "Set rs_Regents.ActiveConnection = Nothing" line: Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218876
  - 6
    - Renaming files Hi: I've written a macro in vba that works well where it will go to a directory, find a file and rename it. The problem is, I can't get it to work in vbs. The catch is that I won't know the exact file name to find. So, for example, the file will begin with "Int_Data" but then the program that creates the file will attach a set of numbers to the end of the file extension like "Int_Data_123456". The numbers are something that I cannot predict. Below is the code I've written and does not work. I think I'll need to use InStr to find the file, but I'm not sure how to use it to find a file beginning with "Int_Data" and rename it. Any suggestions? Thanks. Function Interval_Datafile_Name_Change() Dim fso Dim SourceFile Dim DestFile Set fso = CreateObject("Scripting.FileSystemObject") SourceFile = "C:\Documents and Settings\****\My Documents\Reporting\Data\Int_Data_" & "" DestFile = "C:\Documents and Settings\****\My Documents\Reporting\Data\Int_Data.xls" If fso.FileExists(SourceFile) Then fso.MoveFile SourceFile, DestFile End If Set fso = Nothing End Function Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218872
  - 7
    - How to mail enable an Distributiongroup Hello, I am trying to create a distribution group and to mail enable it. I think the code is right, but I always get the runtimeerror: "Object doesn`t support this property or method objGroup.MailEnable" The error occurs on clients without ESM installed and on the Exchange Server himself! Code: Const ADS_GROUP_TYPE_GLOBAL_GROUP = 2 strGroupName = "GruppeDL" strGroupDisplay = "DE-GruppeDL" strGroupDescription = "Beschreibung BLABLA" strGroupHideFromGAL = "TRUE" Set objOU = GetObject ("LDAP://OU=org,dc=adstest,dc=local") Set objGroup = objOU.Create("Group", "cn=" & strGroupName) objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP objGroup.Put "sAMAccountName", strGroupName objGroup.SetInfo objGroup.put "displayName", strGroupDisplay objGroup.Put "proxyaddresses","SMTP:Schit@td.de" objGroup.Put "description", strGroupDescription objGroup.Put "MSExchHideFromAddressLists", strGroupHideFromGAL objGroup.SetInfo objGroup.MailEnable objGroup.SetInfo Does anyone have an idea why objGroup.MailEnable isn`t working? -- GruÃ? Udo Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218868
  - 8
    - Doesn't work Can anyone tell me why the script will not work? 'Enable or Disable Pop Up Descriptions On Error Resume Next Message = "This script will Enable or Disable Pop Up Descriptions." & vbCr Message = Message & "Don't forget to Refresh the Desktop for this to take effect." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Name Here") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") errnum = Err.Number WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If errnum = Err.Number = 0 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 1, "REG_DWORD" MsgBox "Pop Up Descriptions are now ENABLED" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths scrip was download from name here.", 64, "Done!" End If If errnum = Err.Number = 1 then WshShell.RegRead ( "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip" ) If errnum = Err.Number = 1 Then WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowInfoTip", 0, "REG_DWORD" MsgBox "Pop Up Descriptions are now DISABLE" & vbCr & "Don't forget to Refresh the Desktop!" &vbcr & _ vbCr & "Ths scrip was download from name here.", 16, "Done!" End If End If End If Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218860
  - 9
    - How to do something in an VBS script for all worksheets of an Excel file? I would like to do something in a *.vbs script and all the operations should be applied on each worksheet within an Excel file. How do I do this? It must be something like: for i in (1 .. lastworksheetnumber) do ...operations end Claudia Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218856
  - 10
    - vbscript error 70 - permission denied I am new to VBScripting but have done some development in VBA. I have a procedure that I have written to run on Windows-XP systems connected to Windows-2000 server. Whole point of script is to do some intelligent file copying with msgboxes to user to confirm intentions, file sizes, dates, times, etc. All works well EXCEPT for the actual file copy. Even though I can access mapped shares on server and other users local hard disk published shares from command prompt and list contents and copy files at wiil, the copyfile operation in the script invariably fails with error 70. What is the point of having a copyfile operation, which I have used with great success in vba, that basically is unable to copy files in code. Any suggestions from anyone would be greatly appreciated, as I am greatly frustrated. -- W. Daryll Combs Jennica Data Systems Inc. Cincinnati OH Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218850
  - 11
    - VBS reading all groups from OU and there members Hello, Iam a vbs beginner and I want to write all distribution groups and there members from one ou in a textfile. I want to write each group and there associated members in one row, separated with semikolon. The next group with there members in an second row, and so on. But in my script, the groups and each member are written one above the other. Reason: I don`t know how to write from an array to a textfile in one row! the codefile: ... set oDomain = GetObject ("LDAP://" & strDomain) oDomain.Filter = Array("Group") FOR EACH strGroup in oDomain File.Writeline strGroup.SamAccountName arrMemberof = strGroup.GetEx("member") FOR EACH strMember in arrMemberof File.WriteLine strMember Next Next .... Thanks! -- GruÃ? Udo Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218846
  - 12
    - 800A0007 Out of memory retrieving AD object Hi, I have some users in AD that are in 150+ Domain groups. I also have a login script that uses: -- dim usr,ad, arrMemberOf set ad = createObject ("ADSystemInfo") set usr = getObject ("LDAP://" & ad.username) set arrMemberOf = usr.Groups ... --- On the getObject line, the user is getting "Error: Out of memory, Code: 800A0007" and then the script terminates. It looks to me like the client VBS engine is running out of memory retrieving the large AD user object for parsing. Is there a way to fix this? I do not have the option of removing the users from the many groups.. Or any other guesses/ideas? Thanks a million!! Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218845
  - 13
    - DirectX Version Is there a way to find out the version of DirectX on a system from VBScript? Currently, we determine the version of DirectX via a VBScript by looking at the registry entry of HKLM\Software\Microsoft\DirectX\Version This worked OK with Windows XP and Windows Server 2003, however for Windows Vista and for Server 2008, this registry key indicates DirectX 9 instead of 10. The reason given for that is that DirectX 9 exists in Vista and Server 2008 for backward compatibility purposes. Using dxdiag we can see that the DirectX version is indeed 10, but we cannot use dxdiag within a script (easily) without writing the version to a file with dxdiag and then reading it in, which is a little unreliable and "clunky". Do you know of a way of determining, either by registry or other means, what the version of DirectX is. We use this script for patching machines and servers and need to determine the correct patch for those that are DirectX level dependent. Currently our script is no longer working in a mixed XP/Vista/Server2003/Server2008 environment. Thanks for your help. Cheers, Les Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218843
  - 14
    - File search i wrote this vbscript to search office files in the PC hard drive. but it returns more than 37xxx files result. it only has 2 office files anything i missed? file attributes? i find the 1st variable (QWord) sum up itself many times. thanks for your help. tony ********************************************* For Each Subfolder in Folder.SubFolders if Subfolder.name <> "Windows" and Subfolder.name <> "Program Files" and Subfolder.name <> "Default User" and Subfolder.name <> "RECYCLER" and Subfolder.name <> "All Users" and Subfolder.name <> "Media Player" then Set objFolder = objFSO.GetFolder(Subfolder.Path) Set colFiles = objFolder.Files For Each objFile in colFiles If right(objfile.name,3) = "doc" or right(objfile.name,4) = "docx" Then QWord = QWord + 1 ElseIf right(objfile.name,3) = "xls" or right(objfile.name,4) = "xlsx" Then QExcel = QExcel + 1 ElseIf right(objfile.name,3) = "mdb" or right(objfile.name,5) = "accdb" Then QAccess = QAccess + 1 End If Next Set colFiles = Nothing end if Next Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218834
  - 15
    - Run setup.exe from netshare Hello I am having a tough time figuring this one out. I need to run the setup.ese for Office 2007 from a network share and then apply updates via a msp file. I have the following scirpt below and it will not execute under logon startup. 'InstallStartupScriptBegin on error resume next set wshShell=WScript.CreateObject("WScript.Shell") Set strOutlook = CreateObject("Outlook.Application") If strOutlook.Version < "12" then wshShell.run "\\RemoteInstall\Software\Microsoft \Office2007\setup.exe /AdminFile \\Remoteinstall\Software\Microsoft \Office2007\Updates\office07config.MSP", 1, True Else wscript.Quit end if 'InstallStartupScriptEnd I put it together testing the outlook version since all clients have Outlook 2003 installed with the rest of the office suite. This script has been assigned via GP and dropped in the ntlogon folder on one of our DC's. Any help or hints to get this resoved would be wonderful. thanks for any help in advance. JV Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218828
  - 16
    - VBS Script to Run Macro in Access 2003 I want to nightly run a VBS Script in Scheduled tasks to open an Access 2003 database and execute a macro. The problem is that the database opens to a switchboard screen. I need to open this database with a VBS script that mimicks opening the database with {shift} open. My code: dim accessApp set accessApp = CreateObject("Access.Application") accessApp.visible = True accessApp.OpenCurrentDataBase("C:\ACF\Copied from Server\ACF.mdb") accessApp.Run "Macro1" accessApp.Quit When this script executes, the switchboard is open, and the Macro1 can't be found (executed). Thanks Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218827
  - 17
    - <SCRIPT LANGUAGE="VBScript"> and <%%> Which are the differences between "<SCRIPT LANGUAGE='VBScript'>" and "< %%>"?? thanks! :) Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218823
  - 18
    - Script to Delete Contents of Recycle Bin I'm seeking a logon script which will delete the contents of the Recycle Bin. This is necessary because we have found that since we use My Documents folder redirection and Disk Quotas on the Server 2003 R2 SP2 file server, that the Recycle Bin contents on user's computers are being included in Disk Quotas on the server. The script I was using below is causing Windows Script Host vb runtime errors in line 44 'char 4 'Permission Denied' Code 800A0046. Additionally, although this script is the only one I could find via a Web search (I'm not a coder) which actually works on some systems, it appears to be doing more than I need it to do. I would be satisfied if it could simply and effectively empty the Recycle Bin: Option Explicit DIM g_objWshShell, g_objFSO, g_sLogFile, g_objWshNetwork, g_sScriptName, g_sComputerName, g_sUserName Dim g_sVer, g_objLogFile, g_sLogDir 'Setup main variables and objects Set g_objWshShell = WScript.CreateObject("WScript.Shell") 'Create a Shell Object Set g_objFSO = CreateObject("Scripting.FileSystemObject") 'create a File System Object Set g_objWshNetwork = WScript.CreateObject("WScript.Network") 'Create Network Object g_sComputerName = g_objWshNetwork.Computername 'Gets machine Computer name g_sUserName = g_objWshNetwork.UserName 'Gets logged-on username g_sScriptName=UCase(WScript.ScriptName) ' *** Name of the script ' *** START LogFile Information - use Delete or Append info below; don't use both *** Const FORREADING = 1, FORWRITING = 2, FORAPPENDING = 8 'Setup constants for writing, appending, etc g_sLogDir = "C:\TEMP" If Not (g_objFSO.FolderExists(g_sLogDir)) Then g_objFSO.CreateFolder(g_sLogDir) End If g_sLogFile = g_sLogDir & "\" & Left(g_sScriptName,len(g_sScriptName) - 3) & "LOG" 'Makes log file the SCRIPTNAME.Log g_sVer = "1.0" 'To delete a logfile and create a new one each time script is ran If g_objFSO.FileExists(g_sLogFile) Then g_objFSO.DeleteFile(g_sLogFile) 'Delete logfile if it exists. End If Set g_objLogFile = g_objFSO.CreateTextFile(g_sLogFile, FORWRITING) 'Setup the logfile for writing Call Main() Call ExitScript() 'Start main script HERE *** Sub Main() Dim objRecycleBin, objFolderItems, objItem, strSpecialFolderName strSpecialFolderName = "Recycle Bin" 'Call WriteLine("Starting " & g_sScriptName & " at " & Date & " " & Time, g_objLogFile) Set objRecycleBin = GetSpecialFolderObject(strSpecialFolderName) 'Get Special Folder based upon input name Set objFolderItems = objRecycleBin.Items() 'Get items within Recycle Bin For Each objItem In objFolderItems 'Delete all items within Special Folder If (objItem.Type = "File Folder") Then 'Check for file type g_objFSO.DeleteFolder(objItem.Path) 'Delete Folders Else g_objFSO.DeleteFile(objItem.Path) 'Delete Files End If WScript.Echo "Deleted " & objItem.Name Next End Sub '*-*-*-*-*- Start Subroutines here *-*-*-*-*- 'Returns SpecialFolder based upon name of folder Function GetSpecialFolderObject(NameOfFolder) Dim objShellApp, i, objSpecialFolder Set objShellApp = CreateObject("Shell.Application") On Error Resume Next For i=0 To 40 '40 is highest value for special folders Set objSpecialFolder = objShellApp.NameSpace(i) If (StrComp(objSpecialFolder.Title,NameOfFolder,vbTextCompare)=0) Then Set GetSpecialFolderObject = objSpecialFolder Exit For End If Next Err.Clear End Function 'Closes logfile and exits script Sub ExitScript() 'Call WriteLine(Date & " " & Time & "; Completed " & g_sScriptName, g_objLogFile) If IsObject(g_objLogFile) Then g_objLogFile.Close End If Wscript.Quit End Sub Sub EndOnError(sErrorString) WScript.Echo sErrorString & vbcrlf & "Check " & chr(34) & g_sLogFile & Chr(34) & " for details" Call WriteLine (sErrorString, g_objLogFile) WScript.Quit() End Sub 'Shows usage if input is wrong sub ShowUsage() WScript.Echo g_sScriptName & " v" & g_sVer & " Empties Recycle Bin for logged on user" & vbcrlf _ & vbcrlf & "USAGE: [CSCRIPT] " & g_sScriptName WScript.Quit end sub 'Writes to log Sub WriteLine(ByVal strMessage, ByVal objFile) On Error Resume Next If IsObject(objFile) then 'objFile should be a file object objFile.WriteLine strMessage Else Call Wscript.Echo( strMessage ) End If End Sub '*-*-*-*-*- End Subroutines here *-*-*-*-*- '*** End Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218822
  - 19
    - Object not a Collection I am receiving the above message each time a non-admin user logs into a pc. here is my very basic login script. Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "GroupName" objNetwork.MapNetworkDrive "I:", "Share Path" End Select NEXT Thank you for your time. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218821
  - 20
    - Loop without Do error.. Dear all Hope someone can help ive got a "Loop Without Do" error on line 316. and i cant see why.. Line 316 is the last Loop Statement in the below code. kr Paul '260-------------------------------------------------------------------- ' Group DN's start in column 12. intCol = 8 Do While objSheet.Cells(intRow, intCol).Value <> "" strGroupDN = Trim(objSheet.Cells(intRow, intCol).Value) ' Attempt to bind to group object DN. blnBound = False On Error Resume Next Set objGroup = GetObject("LDAP://" & strGroupDN) If (Err.Number <> 0) Then On Error GoTo 0 '365 Try again converting NT Name to DN. On Error Resume Next objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain _ & "\" & strGroupDN If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to bind to group " & strGroupDN Else On Error GoTo 0 strGroupDN = objTrans.Get(ADS_NAME_TYPE_1779) Set objGroup = GetObject("LDAP://" & strGroupDN) blnBound = True End If Else On Error GoTo 0 blnBound = True End If If (blnBound = True) Then objGroup.Add objUser.AdsPath If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Unable to add user " & strNTName _ & " to group " & strGroupDN End If End If On Error GoTo 0 ' Increment to next group DN. intCol = intCol + 1 Loop End If End If End If '308--------------------------------------------- ' Increment to next user. intRow = intRow + 1 ' ... In the loop. ' Add new user to the group. objGroup.Add oNewUser.AdsPath Loop Wscript.Echo "Done" ' Clean up. objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objContainer = Nothing Set objSheet = Nothing Set objExcel = Nothing Set objFSO = Nothing Set objShell = Nothing Set objTrans = Nothing Set objRootDSE = Nothing Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218810
  - 21
    - Howto: Add lines of text from a specific point in a text file.. Hi all, I wonder if you can help me... I have been doing allot of manual updates to ini files that i am using and would like to make things a little easier on myself by trying to automate as much as i can. What i need at the moment is a way of adding some addition text to a file that already exists - the catch is that i need to add it to the end of a group of information and that information starts around the middle of the file. E.g. below. E.g. --- SVCPack.inf --- [CatalogHeader] [Version] BuildNumber=2600 MinorVersion=1 MajorVersion=5 Signature="$WINDOWS NT$" [SetupData] CatalogSubDir="\I386\svcpack" [SetupHotfixesToRun] KB892130.exe /q /n /z wmp11.exe /q /n /z /o wmfdist11.exe /q /n /z /o mscomppackv1.exe /q /n /z /o wudf01000.exe /q /n /z /o [ProductCatalogsToInstall] KB892130.cat wmp11.cat WMFDist11.cat MSCompPackV1.cat Wudf01000.cat --- End file --- So i would like to be able to add additional commands (lines of text) to the [SetupHotfixesToRun] section of the file by running a single vbscript. The text/instructions i would like to be able to have listed in the vbs (or a comma delimited file that can be called from the vbs) I would appreciate any suggestions, code snippets etc that can point me in the write direction. Cheers, Darren Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218809
  - 22
    - 2 dimensional array of objects I'm not sure why this doesn't work: ================================ class Position public value private sub Class_Initialize value = " " end sub end class class Board public MyPosition(3,3) private posinxcoord private posinycoord private sub Class_Initialize Set MyPosition(3,3) = CreateObject("Position") wscript.echo MyPosition(0,0).value end sub public function returnpos(posinxcoord,posinycoord) returnpos = MyPosition(posinxcoord,posinycoord).value end function end class ============================= I would like to echo the MyPosition(0,0).value... which I should have initialized to " ". It gives me an "Object required" error. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218807
  - 23
    - Windows Desktop Search and Search Companion I apologize if this is a trivial FAQ that has been asked/answered a thousand times, but: I can activate Windows Desktop Search with: Set wshshell = CreateObject("Shell.Application") wshshell.findfiles How can I now tell WDS to bring up the Search Companion (usually a simple mouse click)? or alternatively How can I bring up Search Companion directly without first activating WDS?? -- Gary''s Student - gsnu2007xx Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218804
  - 24
    - HTA I would like the script to run as an hta file format due to most network security issues. Is there a way to hide this DOS window? Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218799
  - 25
    - How to Read a MS Word file in tabular format? I am developing a windows application using VB.Net 2005. In this I have to read a MS Word file which is in following format - Sr.No. Name Of Student Age Class Sex Father's Name 1 Deepak Choudhary 16 10 Male Sandip Choudhary 2 Nalini Chauhan 16 10 Female Suhas Chauhan In this way there is list of student and their details. This list may be of 1000 students. There is no table and no linings between two records. Now I have to read this file and have to insert all the records into a database table having same fields. Please give a code to prepare a datatable from given file. Tag: how to write recordset datas of vbscript into existing excel sheet Tag: 218797

hi every one,

how to write recordset datas of vbscript into existing excel sheet.
its very urgent to me.
any one please help me.

regards,
karthik.R

Top

Re: how to write recordset datas of vbscript into existing excel sheet by Richard

Richard
Tue Jul 01 10:39:57 CDT 2008

"karthi" <karthikumar.r@gmail.com> wrote in message
news:4a045554-20b7-4a16-8d1c-0d9252337e93@d19g2000prm.googlegroups.com...
> hi every one,
>
> how to write recordset datas of vbscript into existing excel sheet.
> its very urgent to me.
> any one please help me.
>
> regards,
> karthik.R

Here is an example VBScript program that uses ADO to retrieve user
Distinguished Names in a recordset, then writes the values to a spreadsheet:

http://www.rlmueller.net/Create%20User%20List%203.htm

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Top