Efficient way to access list of folders?

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
    - function works inline but not when placed in include file hi i have a function function change(txt) change=replace(txt,"-","~") end function this works fine when i place it inline in a ASP page but when i  a file with it in - it gives me a type mismatch error. any ideas? D Tag: Efficient way to access list of folders? Tag: 176759
  - 2
    - Calling an OLE method but continuing a timer within VBS Hi VBS gurus, I have a problem which I am trying to get resolved in time for a probation review for a new job (Good marks = Continue to get paid)... Basically, I have written a VBS script to do an unattended test of an application called OPP over a Citrix environment. The script is included at the end of this post in all its glory. All works well when the username/password variables function correctly to log in: success = OPPApplication.Login(loginname, password) If all works, success is returned as TRUE and away we go. Problem is, when the username/password don't function, the .Login OLE method just opens a window on the Citrix server and awaits user entry. Since this is meant to function unattended, the window just sits there waiting and never returns to the VBS script to return success = FALSE. You can see I have tried to set a timer to return success = FALSE if no luck after 10 secs but the problem I have is that control is never returned back to the VBS script from the application call, so the timer never continues counting. If anybody has advice on how I can do this (Somebody I asked mentioned calling the OLE method asynchronously - I have google'd it unsuccessfully so far) I'd be eternally grateful... Thanks for reading this far, sorry about the wordiness Matt ---- VBS script below ---- OPTION EXPLICIT Function DateTime (d) DateTime = Day(d) & "/" & Month(d) & "/" & Year(d) & " " & Hour(d) & ":" & Minute(d) & ":" & Second(d) & ".00" End Function 'Declare OPP application object and variables Dim OPPApplication Dim success Dim loginname Dim password 'Parameters passed from command line Dim OPPArgs 'Timer to check for time-out of login attempts Dim OPPTimer Dim OPPTimer2 'Availability of the application Dim availability 'Set OPPApplication Set OPPApplication = CreateObject("opp.application") Set OPPArgs = WScript.Arguments 'Set variables to command line parameters loginname = OPPArgs.Item(0) password = OPPArgs.Item(1) availability = "0.0" 'Set timer OPPTimer = Timer() 'Will give the monitor 10 seconds to successfully login to Open Plan OPPTimer2 = OPPTimer + 10 'Attempt login to Open Plan While OPPTimer < OPPTimer2 success = OPPApplication.Login(loginname, password) <-- This is my problem OPPTimer = Timer() <-- Never gets back to here Wend 'Test if able to login successfully If success = "True" Then 'OPP has successfully logged in availability = "1.0" 'Output final results and availability of test WScript.stdOut.WriteLine DateTime(Now) & ",""General.Availability"",""" & availability & """" Else 'OPP has failed to login - availability will be "0.0" WScript.stdOut.WriteLine DateTime(Now) & ",""General.Availability"",""" & availability & """" End If WScript.Quit Tag: Efficient way to access list of folders? Tag: 176755
  - 3
    - ADO securitywarning Hi Need help. In a project where I use a connection to a access database, I get the following security warning: "This web site is using a data provider that's possibly insecure. If you trust this web site push OK otherwise push CANCEL." The first message is displayed and the warning shows up. After pushing OK nothing happens. Here is the code: <SCRIPT Language = VBscript> Sub Aendern_OnClick() Message1 = MsgBox("Testmessage",0,"Test") Set conn_tlf = CreateObject("ADODB.Connection") conn_tlf.Open "dsn=Telefonverzeichnis" SQL_Edit = "UPDATE Anschluesse SET Kurzwahl=9999 WHERE Anschluss_ID = 1" conn_tlf.Execute(SQL_Edit) Set conn_tlf = Nothing Message2 = MsgBox("Another testmessage",0,"Test") end sub </SCRIPT> What is wrong? Thanks Michael Tag: Efficient way to access list of folders? Tag: 176746
  - 4
    - VBScript and HTA Question is ther a way to pass a veriable to the <span> area from a VB script. I would like to pass todays date to a cell in a table. VBScript; Sub Window_Onload fDate = Date End Sub How do I display fDate in the <span> TIA Mike microsoft.public.scripting.vbscript Tag: Efficient way to access list of folders? Tag: 176744
  - 5
    - Comma in AD object name is causing error In our Active Directory, user objects are represented as "lastname, firstname" This causes a problem for me in connecting to the user object to change properties. Using the Getobject("LDAP://cn=USERNAME,cn=Users," & _ objrdse.get("defaultNamingContext")) returns an 0x80005000 error because it is reading the "," between the user's last and first name. Does anyone know how I can get around this problem? Tag: Efficient way to access list of folders? Tag: 176741
  - 6
    - Checking services on remote machine I am getting error in below listed script. Can anyone help me in identifying the problem strComputer = "192.168.1.2" strUserName = "admin" strPassword = "test" Set objLocator = CreateObject("WbemScripting.SWbemLocator") Set objService = objLocator.ConnectServer(strComputer, "root\cimv2",strUserName, strPassword) Set wbemServices = objService.Get("Win32_Service") Set StdOut = WScript.StdOut Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service") For Each wbemObject In wbemObjectSet WScript.Echo "Display Name: " & wbemObject.DisplayName & vbCrLf & _ " State: " & wbemObject.State & vbCrLf & _ " Start Mode: " & wbemObject.StartMode Next Thanks in advance, DK Tag: Efficient way to access list of folders? Tag: 176737
  - 7
    - Access/VBScript filter bug, won't display proper # of filtered ite I have the following code: [code] ' Clone the recordset. Dim rs Set rs = MSODSC.DataPages(0).Recordset.Clone On error resume next 'Determines which field is selected, then searches it for the value if selectsearch.value = "ID" then rs.find "ID ='" & cStr(InputBox("Enter your search","Find")) & "'" if selectsearch.value = "ID" then id.disabled = "false" MSODSC.DataPages(0).Recordset.Bookmark = rs.Bookmark MSODSC.Datapages(0).FirstSection.HTMLContainer.Children("id").Focus MSODSC.Datapages(0).ApplyFilter id.disabled = "true" [/code] Which searches for a specific entry in a certain field, finds it, stores the "bookmark" then uses the bookmark to focus on the specific field, and filter the value, which has the effect of finding all entries with the value searched for. Unfortunately, when first searched for, the proper amount of filtered items is not collected. If the filter is toggled, it adds the missing entries as the filter is reapplied, until finally the correct amount is filtered. I was wondering what may be the problem and how can I fix it. We have about 1100 entries, if you are curious. Tag: Efficient way to access list of folders? Tag: 176736
  - 8
    - managing other users on a local computer I'm trying to write a script to change the location of some specialfolders when installing the OS (windows XP Pro). But I can only reach the specialfolders of the user which is logged on. How can I get and use information of the other users' specialfolders; or is this impossible ? Tag: Efficient way to access list of folders? Tag: 176735
  - 9
    - AD User Accounts I have a script that reads user information from an Excel Spreadsheet... When I am creating the accounts everything works just as I expect... However the name displayed in the AD management console shows the saMAccountName and not a full name display as if I created the account by hand... I have tried several differnet fields, but... no luck... Can someone tell me what field to populate to get the AD display to show a full name... Thanks, SB Tag: Efficient way to access list of folders? Tag: 176733
  - 10
    - Searching for MySQL servers on the network Hi, I do some work for several companies and I got a request to list all the database servers with al the databases they contain. I know how I can list the databases. However I never had to search the network for databases. I know that this company is only using MySQL servers on Windows. Can somebody tell me how I can retrieve them on the network with a script or an app? Wkr, Arjan. Tag: Efficient way to access list of folders? Tag: 176731
  - 11
    - DataGrid HELP! I am getting some strange results when trying to access data thrown into a DataGrid. Perhaps someone can shed some light and provide a solution to my issues.... Process: Load DataGrid1 with an ADOrs - no problem Click a cell to retrieve it's value - some problems When clicked, I am *trying* to set the Row number like this, Dim RowValue RowValue = DataGrid1.RowContaining(Y) What I get for the value is actually +1 from the ADOrs value (so, clicking a cell in the first row will give me a RowValue = 1). No problem, just subtract 1 ( -1) from the actual row number to access the correct row (0) in the ADOrs, right? Well, this works for rows 1 thru 3 in the DataGrid1. Here's what happens past row 3: Clicking a cell in row #4 in the DataGrid returns a RowValue = 5!!!! So, by subtracting 1 from this, gives me row 4 in the ADOrs which is the inncorect value from where I clicked. It should be giving me a RowValue = 4 (which in turn would select row 3 in the ADOrs). Also -- when clicking on or past row 5 in the DataGrid, it returns a RowValue = -1 which of course totally throws everything off and bombs out the app. Any insight as to this behavior and how to remedy would be greatly appreciated. Code below. Thanks, j Private Sub dataGrid1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS) Dim RowValue, ColValue Dim cellVal As String Dim pos As Integer ColValue = DataGrid1.ColContaining(X) RowValue = DataGrid1.RowContaining(Y) pos = RowValue - 1 cellVal = DataGrid1.Columns("ID").CellText(DataGrid1.RowBookmark(pos)) End Sub Tag: Efficient way to access list of folders? Tag: 176730
  - 12
    - Server Side Code Returning Invalid XML error Hi fellows, I am a newbie, so new to these discussion groups. I had put this question in Sqlserver.xml group. May be this question is related to ASP group. So, putting it here. I am facing following problem: I am passing a XML to SP, and SP in return send XML back. When I comment out sp_xml_preparedocument (XML reading block) in SP, ASP is taking returning XML as valid, but, if I uncomment input XML reading block, ASP is giving following error: -------------------------------------- Microsoft OLE DB Provider for SQL Server error '80040e21' XML parsing error: Invalid at the top level of the document. /../../MailListFixErrors.asp, line 124 -------------------------------------- I am using XP v2002 SP2, Sql-Server 2K Pro. Edition SP3 and using classic ASP. Here is my code snippet: Store Proc: ------------- CREATE PROC [dbo].[spValidateMList_MLST] @XMLDoc text AS BEGIN DECLARE @InputList TABLE ( [MailListName] [varchar] (40) , [guid] [varchar] (40) ) DECLARE @MailListName [varchar] (40) , @CustomerID [varchar] (40) , @ShipperID [varchar] (40) , @ServerID [varchar] (40) EXEC sp_xml_preparedocument @idoc OUTPUT, @XMLDoc SELECT @MailListName= MailListName, @CustomerID= CustomerID, @ShipperID= ShipperID, @ServerID= ServerID FROM OPENXML (@idoc, '/maillist',2) WITH (maillistname [varchar] (40) , customerid [varchar] (40) , shipperid [varchar] (40) , serverid [varchar] (40) ) INSERT INTO @InputList ( MailListName, guid ) SELECT @MailListName, guid FROM OPENXML (@idoc, '/maillist/row',2) WITH (guid [varchar] (40) ) EXEC sp_xml_removedocument @idoc ...... ...... SELECT 1 AS Tag, NULL AS Parent, NULL AS [Error!1!], NULL AS [row!2!Code!element], NULL AS [row!2!Message!element] UNION ALL SELECT 2 AS Tag, 1 AS Parent, NULL AS [Error!1!], 0 AS [row!2!Code!element], (SELECT COUNT(*) AS ErrCount FROM @MailListShipment WHERE CheckedStatus in (1,2)) AS [row!2!Message!element] FOR XML EXPLICIT END ASP code is as : ------------------- Dim strExStoredProcedure Const MSSQLXML_DIALECT = "{5d531cb2-e6ed-11d2-b252-00c04f681b71}" Const adExecuteStream = 1024 Const adWriteChar = 0 Dim conDB Dim cmdXML Dim stmXMLin Dim stmXMLout strExStoredProcedure= " [dbo].[spValidateMList_MLST] @XMLDoc = " &_ "'<maillist><maillistname>ml14</maillistname><customerid>ABC</customerid> " &_ "<shipperid>ABC</shipperid><serverid>s400</serverid><row> " &_ "<guid>D3EA3AA2-49EC-4455-8D25-6D32BAD3D6DB</guid></row></maillist>' " Set conDB = CreateObject("ADODB.Connection") With conDB .Provider = "SQLOLEDB" .ConnectionString = connstr .Open End With Set cmdXML = CreateObject("ADODB.Command") Set cmdXML.ActiveConnection = conDB Set stmXMLin = CreateObject("ADODB.Stream") Set stmXMLout = CreateObject("ADODB.Stream") With stmXMLin .Open .WriteText "<root xmlns:sql='urn:schemas-microsoft-com:xml-sql'>", adWriteChar .WriteText "<sql:query>", adWriteChar .WriteText "EXEC " & strExStoredProcedure, adWriteChar .WriteText "</sql:query></root>", adWriteChar .Position = 0 End With 'Open Stream for output stmXMLout.Open With cmdXML Set .CommandStream = stmXMLin .Dialect = MSSQLXML_DIALECT .Properties("Output Stream") = stmXMLout 'Output Stream .Execute, ,adExecuteStream 'Execute ADO Command End With str=stmXMLout.ReadText 'get the XML as string This SP runs fine in Query Analyzer and the returning XML seems to be OK. But when we use â??Responseâ?? Object to get returning XML, and pass it back to client side, it is working OK. But if I use "stmXMLout" Object Stream to get returning XML, and want to process XML on server side code, it is giving me the error I mentioned above. Need help ASAP. Thanks. Tag: Efficient way to access list of folders? Tag: 176726
  - 13
    - how to: hey all, i hope i'm in the right place, i need to find all files that have an extention .txt, in all subfolders of a particular folder open that file, change 1 line, move to the next file is this possible? thanks, rodchar Tag: Efficient way to access list of folders? Tag: 176717
  - 14
    - time server script Hi I need to know if anyone has written or knows of a script that forces a computer logging on to a network to use the time on the domain controller as the client computers time. danny m Tag: Efficient way to access list of folders? Tag: 176710
  - 15
    - Changing login desktop color I need to write a logon script that can change the background colour of the login screen for a Windows XP / 2000 machine. I know i can change the desktop colour using SetSysColor except that that's an API call and vbscript dosn't allow those.. at least not that i've found. I also suspect that it's the system account's desktop colour that i need to change, but i'm not sure. I have a requirement to change the desktop background of the login screen to give an admin some basic system status so he can see at a glance if he needs to log in at all, and i'm not allowed to use wallpaper. I'd rather not have to write a small app to call the API and then call that app from vbscript. I've looked at WMI and other places but i just cannot seem to find what i need. I expected this to be simple. If anyone know how to do this i'd be very grateful. I suspect i've just looked in the wrong place. Thanks a lot, Martin Tag: Efficient way to access list of folders? Tag: 176708
  - 16
    - filename How can I get the filename and drop everything after the dot. For example, Execute test.vbs that calls this statement inside of script: test=Wscript.ScriptName Output is : test.vbs Now all I want is the filename test. How can I always drop the .vbs in this case. Tag: Efficient way to access list of folders? Tag: 176700
  - 17
    - Variable references I read in other posts that there are no references in VBScript - however, it's possible to use this.... foo = "bar" bar = "blah" msgbox eval(foo) How would this apply to getting variables from fields? I've got a form which has various fields (in an HTA), lets say they are called "fld1", "fld2" etc.... how would I get the values from these fields using a variable reference.... If I were to do this to display "fld1", it would work.... Msgbox fld1.Value But I actually want to do it like this (but it doesn't work obviously!)... foo = "fld1" msgbox eval(foo).Value Is there a way of writing the above, or a workaround so I can grab the field values using a variable reference instead of direct variable name?? Please end my hours of brainfry!!! Cheers, Simon Tag: Efficient way to access list of folders? Tag: 176699
  - 18
    - hta-map drive-start explorer-prob I have the following code in an hta... (btw- put together from you good guys in this forum) Basically its a dropdown that lets you select a user name which then maps a drive to their c$ and then opens "explorer z:" 'Map networkDrive______________________ Dim WSHNetwork Dim NextAvailableLetter NextAvailableLetter = strDrive Set WSHNetwork = CreateObject("WScript.Network") WSHNetwork.MapNetworkDrive NextAvailableLetter , "\\" & D1.value & "\c$" 'Start Explorer________________________ Dim wShell Dim s set wShell=CreateObject("Wscript.Shell") s = Chr(34) & "%windir%\explorer.exe" & Chr(34)& Chr(34) & strDrive & Chr(34) & Chr(34) wShell.run s only prob is i get an error because explorer opens just before the drive has a chance to connect! any ideas! thanks in advance *** Sent via Developersdex http://www.developersdex.com *** Tag: Efficient way to access list of folders? Tag: 176694
  - 19
    - Registry handling Hi, I want to know how can I use VBscript to create a folder in the registry? Thanks in advance Tag: Efficient way to access list of folders? Tag: 176693
  - 20
    - repost - 100/full auto?? repost from microsoft.public.programming.vbscript (Due to lack of posts in that NG) Anyway of scripting all servers in the domain to determine nic speed? (Mostly Broadcom nic's but some others NICS apply such as 3com and Intel) I am using 2000 Server and 2003 server. We need to set our cards to 100/full and I am worried I might have missed a few. (There are hundreds of them..) It seems to only show up in a GUID so I was wondering if there was some way to determine which GUID both nics are in on each server. An additional help would be if you knew of a way to determine the 'linked' or 'active' nic. (Perhaps WMI? or remote reg queries?) Thank you in advance. Tag: Efficient way to access list of folders? Tag: 176684
  - 21
    - Dir Script Looking for a VBSCRIPT Script to scan a shared directory not below one level to provide a count, trying to script a round-robin affect for creating home directories. Ex: \\Virtural1\Home1 4 \\Virtural2\Home2 3 \\Virtural3\Home3 3 \\Virtural4\Home4 3 The \\Virtural2\Home2 would be the next server to add a new home directory Thanks Tag: Efficient way to access list of folders? Tag: 176677
  - 22
    - Open IE instance remotely Need help!!...(Here is the situation): There is a web application/page that requires the installtion of active x locally on workstations but since regular users don't have permission, they are unable to load this web application Is there any way to start an instance of IE remotely or from a share and that instance can use the administrator credential and install the active x and quit or is there any other way... Please help.. Thanks in advance Tag: Efficient way to access list of folders? Tag: 176674
  - 23
    - active directory scripting question.... in active directory users and computers, on a user object, there is a "profile" tab. on this tab is the option to map a drive to a path on a server share. i have 6,000 users that all have the same server name in that box and i need to change them all to a different server. for the time being im using a DNS workaround to point the old name to the new server, but i have to do it right. so... anyone have a quick fix? any help is appreciated. thank you Tag: Efficient way to access list of folders? Tag: 176673
  - 24
    - userAccountControl Up until this point I really haven't had to definitely determine the options set by the userAccountControl. What I'm actually trying to do is determine accounts that are enabled vs disabled. I would expect the value of userAccountControl to be 514 for a disabled account (http://support.microsoft.com/?id=305144). However, I can set the account to Never Expire and the value changes to 66050 (514+65536). I'm not sure that I can determine every possible scenario with certainty. Should I be trying to brake the number down? If I were to determine it manually, I would subtract the largest listed number I can from it over and over until I can't any more. But I'm not certain that will get me where I need either. Does anyone have an example of working thoroughly with this property? Bart Perrier Tag: Efficient way to access list of folders? Tag: 176668
  - 25
    - For fun: a VBS alarm clock Greetings, In order to learn how to use the AT scheduler from VBS I set myself the task of creating an alarm clock (more acurately - an alarm). It seems borderline useful so I give it here. Is there a better way to have one script turn off another than the way I do it? Going through text files seems too round-about for me. I've done things along this line in Excel VBA using DoEvents and public variables and I couldn't think of anything better than text files to play the role of publc variables *between* scripts. On my desktop I have the following two scripts: Script 1: 'SetAlarm.vbs Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") when = InputBox("When do you want to wake up?") 'needs to be in military time! e.g. 14:15 for 2:15 PM Set f = fso.OpenTextFile("C:\AlarmFlag.txt",2,true) f.Write "On" f.close ws.Run("at " & when & " ""C:\Alarm.vbs""") __________________________________________ Script 2: 'AlarmOff.vbs Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\AlarmFlag.txt",2,true) f.Write "Off" f.close ____________________________________________ Finally, in my C directory I have: Script 3: 'Alarm.vbs Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\AlarmFlag.txt",1,true) Do ws.Run "%comspec% /c echo " & Chr(07), 0, True 'beep! WScript.sleep 1000 Set f = fso.OpenTextFile("C:\AlarmFlag.txt",1,true) If f.ReadAll = "On" Then StopNow = False Else StopNow = True End If f.close Loop Until StopNow ________________________________ I hope you find the above at least entertaining -John Coleman Tag: Efficient way to access list of folders? Tag: 176667
- Next
  - 1
    - Downloading SagSAS.chm This is a multi-part message in MIME format. ------=_NextPart_000_00AD_01C5774C.623AFCE0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello: I am looking for a file called SagSAS.chm. This file, I believe = contains Microsoft Windows 2000 Scripting Guide.=20 This file is also a searchable Help file containing scripts. Just wondering if this file is available for download from Microsoft (or = other) web site.=20 Thanks, Jo. ------=_NextPart_000_00AD_01C5774C.623AFCE0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2668" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hello:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am looking for a file called=20 SagSAS.chm.    This file, I believe contains Microsoft = Windows=20 2000 Scripting Guide. </FONT></DIV> <DIV><FONT face=3DArial size=3D2>This file is also a searchable = Help file=20 containing scripts.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Just wondering if this file is = available for=20 download from Microsoft (or other) web site. </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Jo.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_00AD_01C5774C.623AFCE0-- Tag: Efficient way to access list of folders? Tag: 176664
  - 2
    - Delete Network Bridge I'm trying to delete a network bridge if present on a computer. The following script was intended to disable sharing and delete the network bridge, but only the former works correctly. I've included excerpts from the script below. Any help (new approaches, fixes to this one, etc.) would be appreciated. The portion that is commented is the commands that produce the error. Error: Object required --Begin Script-- Dim objShare Dim objEveryColl Dim objNetConn Set objShare = Wscript.CreateObject("HNetCfg.HNetShare.1") If(IsObject(objShare) = True ) then Set objEveryColl = objShare.EnumEveryConnection If (IsObject(objEveryColl) = TRUE) then For Each objNetConn in objEveryColl Dim objShareCfg Set objShareCfg = objShare.INetSharingConfigurationForINetConnection(objNetConn) If (IsObject(objShareCfg) = TRUE) then If objShareCfg.SharingEnabled Then objShareCfg.DisableSharing End If Dim objNCProps Set objNCProps = objShare.NetConnectionProps(objNetConn) If (IsObject(objNCProps) = TRUE) then If objNCProps.MediaType = 7 Then wscript.echo objNCProps.Name 'objNetConn.Disconnect 'objNetConn.Delete End If End If End If Next End If End IF Tag: Efficient way to access list of folders? Tag: 176661
  - 3
    - Lock CD Drive via script The button on my laptop is situated so that I periodically touch it accidentally and open the drive bay. If I am in the middle of watching a video, it is annoying. If I am installing software it can be disasterous. Is there any command I can run from a script that will disable the button, effectively locking the drive shut? Obviously I would also like to be able to unlock it. Tag: Efficient way to access list of folders? Tag: 176656
  - 4
    - ADO RecordSet Is there a recordcount limitation with an ADO RecordSet in vbScript? Every AD query I perform with results greater than 1000 returns 1000; even the recordSet.RecordCount. Bart Tag: Efficient way to access list of folders? Tag: 176649
  - 5
    - ADO RecordSet Is there a limitation with an ADO RecordSet in vbScript? It seems as though every variation I try (results greater than 1000) totals 1000; even the 'recordSet.RecordCount'. Bart Tag: Efficient way to access list of folders? Tag: 176647
  - 6
    - AD Replication via a Script I need to have an easy way for our Help Desk to initiate AD replication. Thus far I have been unable to find any script that will do this. When our Help Desk creates new Exchange Mailboxes it sometimes takes 30 minutes or so for things to show up. Ideally, I would like to just give our Help Desk users a VBS script to run from their desktop that would initiate AD replication on demand. Thanks, Fred Tag: Efficient way to access list of folders? Tag: 176645
  - 7
    - download a file Hi. Is it possible to download a file from an url and save it to C:\temp with a vbs script? Thanks, Shawn Tag: Efficient way to access list of folders? Tag: 176644
  - 8
    - Script to get my public ip address How can i get my public ( firewalls public ) ip address with vbscript? I mean if i connect any local area network how can i get those lan's public ip? Tag: Efficient way to access list of folders? Tag: 176640
  - 9
    - get script name How can I get the name of the script I am running? FOR EXAMPLE, Lets say I execute DeployAll.vbs and when this script is running I want to be able to get the name if script and I store in memory. If I were to Wscript.Echo Filename, I would expect DeployAll.vbs. Thanks! Tag: Efficient way to access list of folders? Tag: 176631
  - 10
    - Using VB Script to install software - Need insight - I was hoping with the wealth of knowledge here that someone could shed some light on using Vbscript to install software. Using vbscript to install msi based applications is not a problem, but where the problem begins is when installing an application or driver package that does not use the windows installer or uses a setup.exe which does the preliminary prep work then launches another executable for the installation. I'm trying to prevent the script from assuming the application is installed when its not, and kicking off the next application install and fouling up the process. Any help would be appreciated! Thanks in advance, Jeff Millar Tag: Efficient way to access list of folders? Tag: 176630
  - 11
    - Drive Mapping The problem i have is i have a logon script that map's network drives. The mapping is done correctly but you display the network drive on a remote computer the drive shows as being disconnected. You can click on the drive and it will open up but it stills shows as disconnected. the script is listed below: Can anyone help and let me know what i'm doing wrong danny Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath strDriveLetter = "F:" strRemotePath = "\\server\Vol1" ' Purpose of script to create a network object. (objNetwork) ' Then to apply the MapNetworkDrive method. Result F: drive Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter, strRemotePath WScript.Quit Tag: Efficient way to access list of folders? Tag: 176629
  - 12
    - Joing computer script I have a site with about 160 users. None of the computers are members of the domain. Most are XP & 2000 clients. I know little about scripting and looking for some guidance or script that could join computers to the domain. Make it easy : ) Thanks Tag: Efficient way to access list of folders? Tag: 176628
  - 13
    - AD and Login Scripts Is there a way to get Active Directory to stop running login scripts at the computer level? I work for a college. I want to give students a particular profile when they are in our computer lab. And another if they are working in one of our offices. I suppose I could build an IF statement into the user script that if computer ismember of dn=computers then quit. Or is there a better way? Tag: Efficient way to access list of folders? Tag: 176627
  - 14
    - Roaming Profiles & Defalut Printer I am trying to enable an automated method of setting the default printer for roaming profiles depending on site. I.E user logs on in Site A they will have PR100 as default when they log on in Site B they will have PR400. Each site has 50 odd printers so printers will vary per user... Any ideas or pointers would be appreciated Rick Tag: Efficient way to access list of folders? Tag: 176625
  - 15
    - How to list all the reg keys under a key Hi all, Can anyone tell me if it is possible, and if so how i can read all the reg keys under a key. We have a large number of printers and i need to often run a report on the status and set up of the printers. Rather than keeping a list of the printers and reading from a text file i would like to just script it to perform certain tasks on all the printer keys in SYSTEM\CurrentControlSet\Control\print\printers\ Thanks in advance Tag: Efficient way to access list of folders? Tag: 176621
  - 16
    - outlook.application Please help, I have a script that will not work. It just stops with "The specified module could ot be found" Error 8007007E. Is it somthing to to with the reg file. Any help received with thanks. Dim EM Dim MailItem MsgBox "Creating Outlook object" Set EM = CreateObject("Outlook.Application") MsgBox "Creating e-mail item" Set MailItem = EM.CreateItem(0) MsgBox "Setting Email Parmeters" MailItem.Subject = "A Test" MailItem.Body = "This text is in the body" MailItem.Recipients.Add "me@home.com" MsgBox "Displaying Email Item" 'MailItem.Send MailItem.Display(True) Tag: Efficient way to access list of folders? Tag: 176618
  - 17
    - send parameters with the method action Hi, I have a problem, I must send the parameters UserName and Password with the method action from one page that is the form, to the another one,MailBee.asp <form action="MailBee.asp" method="post" id="form1" name="form1"> Is there anyone who can help me? ----------------------------- This message is posted by http://asp.forumszone.com Tag: Efficient way to access list of folders? Tag: 176616
  - 18
    - VPN question How can I prompt the VPN connection dialog box by using vbscript? Tag: Efficient way to access list of folders? Tag: 176615
  - 19
    - Number to binary Hi all I am looking for a function similar to: <% response.write(Hex(460)) %> converts 469 into its HEX of 1CC but to do the same with binary i.e. 5 would give 101 looked through the W3C VBScript lists but nothing I can do it in javascript: <script language="javascript" type="text/javascript"> function decimal(dec) { this.dec=dec; this.toBinary=function() { return this.dec.toString(2); } } </script> then document.write(new decimal(5).toBinary()); but need to be able to do it with VBscript to use with my ASP thanks for any help Matt Houldsworth Digitalquill Tag: Efficient way to access list of folders? Tag: 176609
  - 20
    - Can a vbscript run first before opening an application (e.g. IE, Winword)? As titled. If yes, how can it be done? If no, any other way to fulfil this situation? Thanks a lot. Tag: Efficient way to access list of folders? Tag: 176604
  - 21
    - Memory cleanup with VBscript Okay, this may sound like a dumb questions, but here goes. Does VBscript clear all variables when the script exists cleanly. Yes I am lasy but I don't want to set everything to "=Nothing" if I don't have too. Thanks in advance for your help! Tag: Efficient way to access list of folders? Tag: 176602
  - 22
    - Running the script remotely using different credential I am looking for ways to runs to run VB script locally or remotely using differential credential other the current logged on user Like how to run this script on a remote machine by supplying the admin credential const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\System Admin Scripting Guide" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath Thanks in advance Tag: Efficient way to access list of folders? Tag: 176589
  - 23
    - VBS/MS Word Merge Hi, Is it possible to merge data (from SQL Server) via special placeholders in a Word document ? I noticed that most "Word merge VBs examples" all create new documents by inserting things like paragrahs in conjunction to actual data. I'd like to define my template first and then just replace its placeholders with actual data. Has anyone ever done this? I'd appreciate if you could give me some pointers or ... perhaps share some sample code. Thanks! JV Tag: Efficient way to access list of folders? Tag: 176588
  - 24
    - ComDlg Open read only file and multiple select The file open dialog box shows a check box "READ ONLY". (Unless you specify the flag cdlOFNHideReadOnly = 4) How can the script know if the check box has been checked by the user? One more question: if multiselect is allowed I can select more than one file. But the FileName property does not report them all. It only reports the name of the directory. How can I retrieve all the filenames selected? Thank you very much. Giovanni. Set comDlg=CreateObject("MSComDlg.CommonDialog.1") const cdlOFNHideReadOnly = 4 const cdlOFNAllowMultiselect = 512 comDlg.Flags = cdlOFNHideReadOnly + cdlOFNAllowMultiselect comDlg.Filter = "All|*.*| VBScript|*.vbs" comDlg.maxfilesize=500 comDlg.ShowOpen msgbox comDlg.FileName -- Giovanni Cenati (Aosta, Italy) Write to user "Reventlov" and domain at katamail com http://digilander.libero.it/Cenati (VbScript) Tag: Efficient way to access list of folders? Tag: 176584
  - 25
    - Retrive office location Hi, I need to retrived the office location for all the users in AD. Does anyone has a vb script for this job? Thanks, -- Michelle Tag: Efficient way to access list of folders? Tag: 176574

Hi,

I have a requirement to access over 100,000 folders and collect information
like date created , last accessed etc. These folders could be spanned across
the network on multiple servers.

Can you please comment on which way is efficient to acheive this
1.FileSystemObject
2.WMI Classed
3. ADSI Interface

Thanks and Regards,
Parag

Top