Dir Script

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
    - 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: Dir Script Tag: 176674
  - 2
    - 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: Dir Script Tag: 176673
  - 3
    - 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: Dir Script Tag: 176668
  - 4
    - 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: Dir Script Tag: 176667
  - 5
    - 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: Dir Script Tag: 176664
  - 6
    - 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: Dir Script Tag: 176661
  - 7
    - 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: Dir Script Tag: 176656
  - 8
    - 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: Dir Script Tag: 176649
  - 9
    - 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: Dir Script Tag: 176647
  - 10
    - 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: Dir Script Tag: 176645
  - 11
    - 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: Dir Script Tag: 176644
  - 12
    - 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: Dir Script Tag: 176640
  - 13
    - 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: Dir Script Tag: 176631
  - 14
    - 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: Dir Script Tag: 176630
  - 15
    - 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: Dir Script Tag: 176629
  - 16
    - 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: Dir Script Tag: 176628
  - 17
    - 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: Dir Script Tag: 176627
  - 18
    - 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: Dir Script Tag: 176625
  - 19
    - 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: Dir Script Tag: 176621
  - 20
    - 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: Dir Script Tag: 176618
  - 21
    - 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: Dir Script Tag: 176616
  - 22
    - VPN question How can I prompt the VPN connection dialog box by using vbscript? Tag: Dir Script Tag: 176615
  - 23
    - 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: Dir Script Tag: 176609
  - 24
    - 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: Dir Script Tag: 176604
  - 25
    - 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: Dir Script Tag: 176602
- Next
  - 1
    - 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: Dir Script Tag: 176589
  - 2
    - 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: Dir Script Tag: 176588
  - 3
    - 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: Dir Script Tag: 176584
  - 4
    - 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: Dir Script Tag: 176574
  - 5
    - How do I get stdio in a string vairable from call to Exec? After i exec a command like below: Set oExec3 = WshShell3.Exec(command3) Do While oExec3.Status = 0 WScript.Sleep 1 Loop WScript.Echo oExec3.Status,",",oExec3.ExitCode Is there anyway I can get a string copy of stdio in a vaiable generated by the exec command? Cheers and thanks, Jim Tag: Dir Script Tag: 176573
  - 6
    - Read from TXT file Hi All, How do extract the following from a text file - lines 5 through to the end of the file? Ta Andi Tag: Dir Script Tag: 176563
  - 7
    - Scripting.FileSystemObject I'm using a data access page with a bunch of VBscripts, and I want to dump changes to the access database into a text file. I'm attempting to use the method shown at: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/sgprogrammingfilesystemobject.asp but I am having no luck. I'm getting the following error: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q311269 I completed their "resolution" but nothing was changed/fixed. Is there any other solution? Tag: Dir Script Tag: 176561
  - 8
    - Advice for Someone New to Scripting Hi All, I am reasonably competant (or maybe reasonable incompetant) at using VBA and want to create a few small VBS files. I am getting a bit stuck on the real basics about:- 1) is the Microsoft Script Debugger the best debugging tool for visual basic script files - if it is, why does it not include .vbs as one of the save options 2) How would I debug the following code - as when I open it in the microsoft script debugger all the text is blue and I can't run the code? Option Explicit Dim Text, Titel Dim WshNetwork ' Objektvariable Text = "Workstation Information" & vbCRLF & vbCRLF Titel = "GME Online PC Information for HelpDesk" Set WshNetwork = WScript.CreateObject("WScript.Network") Text = Text & "Your Computername : " & _ WshNetworK.ComputerName & vbCRLF Text = Text & "Your Logon Domain : " & _ WshNetworK.UserDomain & vbCRLF Text = Text & "Your UserID : " & _ WshNetworK.UserName & vbCRLF MsgBox Text, vbOkonly + vbInformation, Titel WScript.Quit Tag: Dir Script Tag: 176557
  - 9
    - currently logged on users in a domain! Hello everybody... how can I know who's logged on to a domain so that I can do something for each logon user? Thanks in advance. c-mos Tag: Dir Script Tag: 176556
  - 10
    - Windows Common Dialog control problem on Win2k? Hello, I have a vbScript that calls the Windows Common Dialog box... On XP, the script works just fine... But on Win2k workstations, I get "ActiveX component can't create object". Set CDObj = CreateObject("MSComDlg.CommonDialog") if err > 0 then msgbox err.description end if If Err Then MsgBox "Error: Can't create Dialog Object!?" WScript.Quit End If Any ideas why?? Troy Tag: Dir Script Tag: 176551
  - 11
    - Getting Outlook 2003 folders size How do I get the current folder size of my mailbox from the Outlook side? I want to know how much space is my client side (Outlook 2003) is using without querying my Exchange 2003 server. Any help is greatly appreciated. MB Tag: Dir Script Tag: 176549
  - 12
    - Adding a list of URLs to Media Player Hi, I have a list of URLs (ASF links) that I want to add to Media Player. This is what I have so far but it fails when trying to add the URL. According the WMP SDK, the MediaCollection.Add command should be the right one. Does anyone know what's wrong? Dim link URL = "URL goes here" 'Get list of ASF files from URL With CreateObject("InternetExplorer.Application") .Navigate URL Do Until .ReadyState = 4 Wscript.sleep 10 Loop for each link in .document.links Call AddToPlayList next .Quit End With Sub AddToPlayList Set objPlayer = CreateObject("WMPlayer.OCX" ) objPlayer.MediaCollection.Add (link) End Sub Tag: Dir Script Tag: 176547
  - 13
    - How to copy/paste formula in Excel using vbs Hello, I'm trying to imitate VBA code in VBS to copy paste formula from a cell to another but i just cannot get through it. Any help would b greatly appreciated. Thanks for your valuable help Tag: Dir Script Tag: 176545
  - 14
    - CreateObject("InternetExplorer.Application") Takes focus! When I write a script with the line Set oIE = CreateObject("InternetExplorer.Application") The newly created Internet Explorer App takes the keyboard and mouse focus away from the active application. Since this script runs in the background while the user is working, its is really annoying to the users and they usually have to stop working until the script finishes. Is there any way to do this without stealing the focus? Tag: Dir Script Tag: 176539
  - 15
    - Inputbox value must be written in a specified file Greetings Vbscript Guru's, I am a complete Novice so bare with with me. This is my project I am working on. I need to place the value entered(for e.g 1.1.1.1) in the inputbox into a file where it is going to replace a variable called "ipaddress". When the value is pasted there a new file will be created. I am having trouble to use the popup box entered value I call it "input" in my scenario. See code below. Thanks in advance for anyone who can help me out here. AQUILA -------------begin---------- Const ForReading = 1 Const ForWriting = 2 Dim Input Set objFSO = CreateObject("Scripting.FileSystemObject") Input = InputBox("Enter your IP address") MsgBox ("You entered: " & Input) Set objFile = objFSO.OpenTextFile("C:\scripts\test.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine strLine = Replace(strLine, "ipaddress", & Input) strNewText = strNewText & strLine & vbCrLF Loop objFile.Close Set objFile = objFSO.CreateTextFile("C:\scripts\test1.txt", ForWriting) objFile.WriteLine strNewText objFile.Close --------------------------end------------ Tag: Dir Script Tag: 176533
  - 16
    - Compare the values of two sorted arrays of variable size. Hi, This seems a bit of an old chestnut but please humour me ;) My aim is to compare two arrays and identify values in List A which don't appear in List B. And vice versa. My arrays are one dimensional and contain names. The number of elements in each array is not fixed. I've done some searching and there are two basic algorithms. The first contains a double loop where each element of the inner loop is compared to elements in the outer loop. At best it kicks out of the inner loop when a match is found. The second method seems to be more elegant but assumes the two arrays have already been sorted. Basically the indeces of the two arrays are incremented when an unmatched value is found. An example code can be found below which works ... until you place a unique value as the last element :( For example, if I have: ListA = Array("Andy", "Bob", "Cath", "Dexter") ListB = Array("Andy", "Bob", "Cath") BOTH "Cath" and "Dexter" are found to be unique! I switched the values of list A to B and came up with the same poor result. I'd appreciate it if someone could give this a fresh look and find the logic error. I've been staring at it for hours :( Many thanks in advance, Andy Script: Option Explicit Dim ListA ' To contain a sorted list of names, unknown size. Dim ListB ' To contain a sorted list of names, unknown size. Dim lngAIdx ' Index for list A. Dim lngBIdx ' Index for list B. Dim lngMaxAIdx ' Upper value of the A list index. Dim lngMaxBIdx ' Upper value of the B list index. Dim intComparison ' Result of comparing two strings ' ListA = Array("Andy", "Bob", "Cath", "Dexter") ListB = Array("Bob", "Cath", "Dexter") lngAIdx = LBound(ListA) lngBIdx = LBound(ListB) lngMaxAIdx = UBound(ListA) lngMaxBIdx = UBound(ListB) ' Do While (lngAIdx < lngMaxAIdx And lngBIdx < lngMaxBIdx) 'Perform a case insensitive comparison. intComparison = strComp(ListA(lngAIdx), ListB(lngBIdx), vbTextCompare) If intComparison = -1 Then ' ListA(lngAIdx) < ListB(lngBIdx) ' Value in A list is not present in the B list. WScript.Echo "Unique A Value: " & ListA(lngAIdx) lngAIdx = lngAIdx + 1 ' Update the A list index. ElseIf intComparison = 1 Then ' ListA(lngAIdx) > ListB(lngBIdx) ' Value in B list is not present in the A list. WScript.Echo "Unique B Value: " & ListB(lngBIdx) lngBIdx = lngBIdx + 1 ' Update the B list index. Else ' intComparison = 0 ' The value appears in both lists lngAIdx = lngAIdx + 1 lngBIdx = lngBIdx + 1 End If Loop ' 'Having reached this point, one of the lists has finished. 'Display the remaining unique values. If lngAIdx < lngMaxAIdx Then For lngAIdx = lngAIdx to lngMaxAIdx WScript.Echo "Remaining Unique A value: " & ListA(lngAIdx) Next End If ' If lngBIdx < lngMaxBIdx Then For lngBIdx = lngBIdx To lngMaxBIdx WScript.Echo "Remaining Unique B value: " & ListB(lngBIdx) Next End If WScript.Quit Tag: Dir Script Tag: 176520
  - 17
    - Debugger won't start My hard drive crashed and I had to reinstall everything fresh onto a new hard drive. I'm using Windows XP Pro SP2 with Office 2003, Visual Studio 6 (installed first), and Visual Studio .NET 2003. For some reason, now the debugger won't start. Normally, I am asked to select a debugger to use, but now nothing happens. In Intenet Explorer, if I select View -> Script Debugger -> Open, nothing happens. The "Browsing" seciton of the Internet Explorer Advanced options has "Disable Script Debugging (Internet Explorer)" unchecked and "Disable Script Debugging (Other)" unchecked, and "Display a notification about every script error" is checked. I've searched Google but the only search terms I can think of are too generic and I get garbage back. Any ideas on this?? Thanks, Jon Davis Tag: Dir Script Tag: 176519
  - 18
    - Retrieving DC list I have a vbscript that needs to get a list of all the DCs in a given domain, be it NT4 or AD, but I don't know how. Any ideas? Thanks, rb Tag: Dir Script Tag: 176515
  - 19
    - Match MailboxGUID to ADuserAccount I need to match the MailboxGUID from an Exchange 2003 server to an AD Account. What WMI/AD property can I seach for that will have this GUID in it? I tried to use the Legacy information from the mailbox but some users have name changes (marriage) that fail lookups in AD. Tag: Dir Script Tag: 176513
  - 20
    - WScript Shell SendKeys to HTA Does anyone know of any limitations to using SendKeys to an HTA? I'm using a TEXTAREA element and sending keystrokes to it. It seems to work fine until a certain point. For example, in the code below, upon loading, it will loop from 1 to 1000, each time adding a line number then going to the next line. Results in the textarea _should_ look like this: 1 2 [...snip...] 999 1000 On my PC, it only goes to about 850 and looks like this: 1 2 [...snip...] 849 850 Occassionally it will stop a few characters more or less, but usually right about that location. If I run it through less than 850 (i.e. 800, even 845) it runs just fine. Maybe it's a machine speed limitation? I'd be curious to know if others get less or more on faster/slower PCs. I'm on a 3Ghz Dell Precision with 256MB RAM. --- Code Below --- <HTML> <HEAD> <TITLE>Default HTA</TITLE> <HTA:APPLICATION> </HEAD> <SCRIPT Language="VBScript"> Sub PutInSampleText() Set WshShell = CreateObject("WScript.Shell") textbox.focus st = timer() For i = 1 to 1000 WshShell.SendKeys i & "{ENTER}" Next End Sub </SCRIPT> <BODY onLoad=PutInSampleText> <TEXTAREA COLS=40 ROWS=30 WRAP="off" ID="textbox"></TEXTAREA> </BODY> </HTML> Tag: Dir Script Tag: 176509
  - 21
    - script copying folders I'm looking to copy folders from one drive to another but I want the script to look inside a .txt file and only move the folders that are named in the text file. I know how to move one folder at a time with a script but I don't know how to get the script to look inside a .txt file to do it. Can anyone help. Thanks, KB Tag: Dir Script Tag: 176507
  - 22
    - getting script to run subroutines The subroutines in this script are supposed to map a group drive and a network printer but isn't doing either. I'm really DESPARATE to get this script working. Some have already helped me with it and I appriciate it but if anyone has the key on how to get this script to map a home drive, all necessary group drives, and applicable printer I would be greatly appriciative. last week my boss gave me a batch file that sort of does this but if a person is a member of multiple groups it doesn't work. Thank you, Mandy Dunn Option Explicit 'all variables defined prior to use Dim fServer 'file server Dim home 'home directory Dim wshNet ' Dim ADSysInfo Dim CurrentUser Dim strGroups Dim colstrGroups Dim GroupMember Dim a,b,c,d Const CSC = "cn=CSC Windows Service Group" Const MARKETING = "cn=marketinggroup" Const SALES = "cn=salesgroup" fServer = "\\loan.ad.cob.ohio-state.edu" home = "\\loan\users" Set wshNet = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" _ & ADSysInfo.UserName) colstrGroups = CurrentUser.memberOf If IsEmpty(colstrGroups) Then strGroups = "" If strGroups = "" Then Wscript.Echo("you are not a member of any groups.") ElseIf TypeName(colstrGroups) = "String" Then strGroups = LCase(colstrGroups) Else strGroups =LCase(Join(colstrGroups)) End If End If wshNet.MapNetworkDrive "h:", fServer & "\Users\" _ & wshNet.UserName WScript.Echo(wshNet.Username & " " & strgroups) Select Case GroupMember case a = InStr(strGroups, CSC) CSCsub case b = InStr(strGroups, SALES) SalesSub case c = InStr(strGroups, MARKETING) MarketingSub End Select Sub CSCsub 'This subRoutine maps a printer WScript.Echo("made it to CSC") wshNet.MapNetworkDrive "g:","\\loan\group\CSC\" wshNet.AddWindowsPrinterConnection _ "\\loan\mh320-csc-hp8000" wshNet.SetDefaultPrinter "\\loan\mh320-csc-hp8000" End Sub Sub SalesSub WScript.Echo("made it to sales") wshNet.MapNetworkDrive "s:", "\\loan\Sales" wshNet.AddWindowsPrinterConnection _ "\\loan\SalesPrinter" wshNet.SetDefaultPrinter "\\loan\SalesPrinter" End Sub Sub MarketingSub WScript.Echo("made it to marketing") wshNet.MapNetworkDrive "m:","\\loan\Marketing\" wshNet.AddWindowsPrinterConnection _ "\\loan\MarketingPrinter" wshNet.SetDefaultPrinter _ "\\loan\MarketingPrinter" End Sub Tag: Dir Script Tag: 176504
  - 23
    - access excel objects from web page Is it possible to access excel objects of xls document loaded in the browser from the vb script of the WEB page? Tag: Dir Script Tag: 176497
  - 24
    - How to pass parameters to vbscript Hi, Does anybody know how to pass the parameter to vbscript file. For example CScript A.vbs <Paramater> Where can I find the sample vbs code. Thanks in advance Tag: Dir Script Tag: 176495
  - 25
    - Lock computer Hello, how can I lock windows xp (win+F) by vbscript, is it possible? Thanks Tom Tag: Dir Script Tag: 176493

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

Top