vbs question

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
    - 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: vbs question Tag: 218924
  - 2
    - 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: vbs question Tag: 218915
  - 3
    - How to use a *.vbs Hi. I'm new to vbScript. How do I run those *.vbs-files? Thanks Michi Tag: vbs question Tag: 218908
  - 4
    - 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: vbs question Tag: 218899
  - 5
    - 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: vbs question Tag: 218898
  - 6
    - 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: vbs question Tag: 218895
  - 7
    - 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: vbs question Tag: 218894
  - 8
    - 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: vbs question Tag: 218891
  - 9
    - 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: vbs question Tag: 218888
  - 10
    - 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: vbs question Tag: 218887
  - 11
    - 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: vbs question Tag: 218886
  - 12
    - 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: vbs question Tag: 218880
  - 13
    - 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: vbs question Tag: 218877
  - 14
    - 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: vbs question Tag: 218876
  - 15
    - 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: vbs question Tag: 218872
  - 16
    - 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: vbs question Tag: 218868
  - 17
    - 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: vbs question Tag: 218860
  - 18
    - 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: vbs question Tag: 218856
  - 19
    - 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: vbs question Tag: 218850
  - 20
    - 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: vbs question Tag: 218846
  - 21
    - 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: vbs question Tag: 218845
  - 22
    - 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: vbs question Tag: 218843
  - 23
    - 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: vbs question Tag: 218834
  - 24
    - 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: vbs question Tag: 218828
  - 25
    - 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: vbs question Tag: 218827
- Next
  - 1
    - <SCRIPT LANGUAGE="VBScript"> and <%%> Which are the differences between "<SCRIPT LANGUAGE='VBScript'>" and "< %%>"?? thanks! :) Tag: vbs question Tag: 218823
  - 2
    - 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: vbs question Tag: 218822
  - 3
    - 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: vbs question Tag: 218821
  - 4
    - 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: vbs question Tag: 218810
  - 5
    - 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: vbs question Tag: 218809
  - 6
    - 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: vbs question Tag: 218807
  - 7
    - 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: vbs question Tag: 218804
  - 8
    - 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: vbs question Tag: 218799
  - 9
    - 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: vbs question Tag: 218797
  - 10
    - How to delete the content of Excel cells from VBS script? I would like to delete the current content/value of the cells 3,6 .... 3,18 How can I do this within a *.vbs script? Claudia Tag: vbs question Tag: 218793
  - 11
    - AppActivate an Internet Explorer window I'm having some trouble accomplishing two tasks with a modified version of Tom Lavedas' script. Specifically, what I am trying to accomplish is: 1) Detect if any Internet Explorer windows are already open and that have a title of "Google - Windows Internet Explorer" 2) If there is, bring to the foreground (and with the focus) the first one found 3) If there are not, open up Internet Explorer and navigate to a specific web page (and with the focus) Tom Lavedas' script pretty much does the searching and title comparing, and that seems to work fine. My only issues is that I can't bring to foreground the windows (the one that I'm opening, and the one that already is open). Can anyone help me figure out what's wrong with my AppActivate ? Here is what I got so far: '-----------------< SNIP >------------------------- echo MatchWindows Function MatchWindows() Dim oShell, aHTMLTitles(), sTitle, wndw, bMatch, nCnt Dim IE sHTMLTitles = "Google - Windows Internet Explorer" nCnt = 0 set oShell = createobject("shell.application") for each wndw in oShell.windows if instr(lcase(typename(wndw.document)), "htmldocument") > 0 then sTitle = wndw.document.title bMatch = false for each entry in aHTMLTitles if entry = sTitle then sMatches = sMatches & vbNewline & vbTab & sTitle bMatch = true exit for end if next if not bMatch then Redim Preserve aHTMLTitles(nCnt) aHTMLTitles(nCnt) = sTitle nCnt = nCnt + 1 end if end if next if sMatches <> "" then oShell.AppActivate sHTMLTitles else set IE = CreateObject("InternetExplorer.Application") IE.visible = true IE.FullScreen = false IE.Navigate "http://www.google.com" SYS_objShell.AppActivate sHTMLTitles end if end function '-----------------< /SNIP >------------------------- Tag: vbs question Tag: 218792
  - 12
    - Is there a write-multi-cell-at-once function in VBS for Excel? As well known I can write into an Excel cell a certain value with in a VBS script with e.g. objWorksheet.Cells(2, 5).Value = 55 Can I write the value 55 into multiple cells at once? Imagine I want to write in all cells 2,5 .... 2,37 the value 55. Do I really have to iterate through all cells individually or is there a function like objWorksheet.multiCells((2,5),(2,37)).Value = 55 ? Tony Tag: vbs question Tag: 218786
  - 13
    - DPM pre/post script Where can I found a step-by-step document about how to implement a pre/post script on DPM 2007? Best Regards, AugustoM Tag: vbs question Tag: 218784
  - 14
    - How to display a variable value in a dialog box and how to read user input? Sorry for this newbie question, but how do I display a variable value from a *.vbs script in a dialog box and - secondly - how to read a user input from a dialog entry field into a *.vbs script variable? Tony Tag: vbs question Tag: 218782
  - 15
    - VWD 2005 Express ? I'm not sure I'm at the right place here, so direct me if I'm not. I downloaded Visual Web Developer 2005 Express and 2008 Express. But I can't get them installed. It seems right at the very end everything goes bananas. Halts and goes into the panic mode by Disk Checking. I have to power off and reboot, then it wants to do a check disk. It did say something about compatible hardware? Both versions did the same thing. I have XP Pro 2. It creates the directory and looks like a lot of files are there but at the very end of the installation is when it goes nuts. Any Idea's. I'm going to try it on vista this afternoon. Izod Tag: vbs question Tag: 218781
  - 16
    - AMAZING JOBS AND SALARIES IN US,UK,CHICAGO........ FOR MORE DETAILS AND POST YOUR RESUMES ON http://polticsinfs.blogspot.com/ Tag: vbs question Tag: 218773
  - 17
    - Script doing right? Okay, I have a script the returns only the internal address from IIS. Why does it do this it is to be returning the remote address of the user.... HELP I am running SBS2003 ISA 2000 and IIS 6. here is the script <% ' ' Contact your provider for support, NOT flicks software ' http://www.flicks.com/support/ ' http://www.flicks.com/authentix/intro.htm ' You may use this program freely so long as it is in 'conjuction with a product from Flicks Software ' ' Place this file as epoch.asp in a script enabled directory, ' and let Epoch know the URL for this file. ' Make sure that you enable an AuthentiX group for the ' membership directory you want, and make sure this group is the ' same group that Epoch knows about. ' ---------------------------------------------------------------------- ' AuthentiX ASP interface for Epoch ' ' clay@epochsystems.com ' ' When you have installed this script, ' Make sure epoch knows the URL where you have installed it ' Make sure that the group matches the group you have setup in AuthentiX/WebQuota ' Make sure the group -is a permitted group- for your membership directory ' ' Epoch posts the data in the form in a fairly raw format: ' FORM = ADD+KEVIN_GROUP+joel_test+what+test_from_epoch<BR> ' So we just get Request.Form ' split it up with Split ' ' 0 arg is command can be 'ADD Command 'CHECK -exists 'DELETED ' ' 1 arg is group ' ' 2 arg is username ' ' 3 arg is password ' ' 4 arg is optional/not used ' ' ---------------------------------------------------------------------- ' change this value if you are using AuthentiX ISP usingAuthentiXStandard = true if (usingAuthentiXStandard) then Set auth = Server.CreateObject("AUTHXOCX.AuthXOCXCtrl.1") else Set auth = Server.CreateObject("AUTHXISP.AuthXOCXCtrl.1") ' use this line to automatically set the domain to be the requesting IP protectedDomain = Request.ServerVariables("LOCAL_ADDR") ' use this alternative if you are protecting by host header, ' set protectedDomain to be -your- host header 'protectedDomain = "hostheader.com" auth.SetVirtualDomain protectedDomain, Request.ServerVariables("SCRIPT_NAME") ' check with your isp for your password, initially it is empty auth.SetVirtualDomainPassword("") end if ' stringToParse = "" ' stringToParse = Request.Form ' stringToParse = "DELETED+12408+joel_test111+what+test_from_epoch" ' stringToParse = "ADD+12408+joel_test111+what+test_from_epoch" ' you can check the incoming remote address with Request.ServerVariables("REMOTE_ADDR") ' Dim parsedString ' parsedString = Split(stringToParse, "+") ' for counter = 0 To UBound(parsedString) ' response.Write(parsedString(counter) & counter) ' Next ' if (2 > UBound(parsedString)) Then ' Response.Write("<html><body>*failed*<p>Not enough parameters! 050102</body></html>") ' response.End ' End if ' action = parsedString(0) ' groupname = parsedString(1) ' username = parsedString(2) remoteAddress = Request.ServerVariables("REMOTE_ADDR") Set RegularExpressionObject = New RegExp With RegularExpressionObject Tag: vbs question Tag: 218770
  - 18
    - how to create a new vpn connection using script o batch Hey everyone, Is there any that know how to create a new vpn connection for muy home users without using the new network connection wizard including in Windows XP Service Pack 2? I hope so!. Thanks.! Tag: vbs question Tag: 218765
  - 19
    - Grabbing IP address then setting to 2nd nic I am trying to combine code which grabs the ip address of a server from http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/e1d7a134851841e7/12751466d5406803?lnk=gst&q=ip+registry#12751466d5406803 then set it to a 2nd NIC via the netsh command netsh interface ip set address "Local Area Connection 2" static IP ADDRESS is it possible to set this as a variable obtained from code in the 1st part??? Also have been trying to use the the netsh command for only the ipaddress without wiping the rest of the details ie subnet/default gateway/dns etc. Tag: vbs question Tag: 218764
  - 20
    - Clearing strValue when reading registry. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "system\CurrentControlSet\Services\something\Parameters" strValueName = "Application" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue I am running the above script as part of a loop and for the most part it works fine. The problem I am having is that if a remote server is unavailalbe the script will output the value from the prior system. I have gotten around this problem in the past with strValue = "" or strValue = Null or some variation. However, for some reason this time I simply can't figure out how to clear these values so they don't get recycled during the loop. Thanks, Jeff Tag: vbs question Tag: 218759
  - 21
    - Learning Script? I am just beginning to look at script. I'm a newbie. I chose ASP to start . The truth of the matter is, I don't know how to select a script language to start with. So, I would like to choose the one that is most popular and versatile and more apt to be needed. What would that be? Thanks Izod Tag: vbs question Tag: 218758
  - 22
    - Line number reference, runtime I'm afraid the answer to this is NO, but ever the optimist, I'll ask... Is there a way to refer, programatically, to the current line number in a running script? I could imagine it being something like "WScript.LineNumber" I would like to use in a context like: WScript.Echo CurrentLineNumber Tag: vbs question Tag: 218753
  - 23
    - MsHtm.dll - COM object... is either not valid or not registered Using VB.NET under .NET 1.1 in VS2003, BACKGROUND I have a windows application that dereferences the MsHTM.dll. The app is successfully able to parse existing HTM documents allowing me to access the DOM objects as needed. With my latest changes I want to utilize the MsHTM.dll to parse some text for me. For instance, I'd like to be able to parse the following text into an element, and then inspect its child nodes later on... 1 Dim objGeneric As HTMLGenericElement =3D new HTMLGenericElement 2 objGeneric.innerHTML =3D "<span style=3D'color:#FF0000;'>some span text</span>" 3 For Each objNode As HTMLGenericElement In objGeneric.childNodes 4 'Do something here... 5 Next PROBLEM When my program tries to execute line 1 above I get this error message: COM object with CLSID {...} is either not valid or not registered. But I know that the dll is registered because I use it in other places (just not like this) in the program. I get the same error message when I try to instantiate any HTML objects (HTMLSpanElement, HTMLDivElement, HTMLInputElement, etc.) When I remove "new HTMLGenericElement" from line 1 then execution continues to line 2, but that fails b/c objGeneric does not point to an object yet=85 QUESTION(S) - so obviously I need to point objGeneric to a new object but how? - Is there an easier way for me to parse this HTML string? Your feedback appreciated. celoftis Tag: vbs question Tag: 218747
  - 24
    - [ANN] Bruce Axtens's Standard Library G'day everyone Some of you have downloaded this is ages past. The next iteration is available from <http://codeaholic.blogspot.com/2008/06/vbscript- standardlibraryzip.html>. Kind regards, Bruce. Tag: vbs question Tag: 218745
  - 25
    - FSO - Date created newer than Date last modified Hi All, I have a script that gets the FileObject.DateCreated value and the FileObject.DateLastModified value and the date created is more recent than the Date last modified. anyone know why? These files are being moved around the network. FTP'ed to our server then copied to some PC's. Thanks in advance Dave Tag: vbs question Tag: 218744

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

Top

Re: vbs question by nuytkens

nuytkens
Fri Jun 27 06:56:48 CDT 2008

On 27 jun, 04:08, rva...@gmail.com wrote:
> 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

Hey,

Try VBSedit, it has a built-in runtime debugger!

Greetings

Top