microsoft.public.scripting.vbscript Google Group

Find a unused drive letter

2010-03-17T21:01:41Z

Hello
I've got a to use the subst cmd on a PC, and when the script is run I won't
know what drives are mapped at that time, so I'd like to be able to find a
letter that isn't mapped, then I'll just use that in the subst cmd.
My question, is how do i find a drive letter that isn't mapped?

vbscript start excel run macro not working

2010-03-17T20:10:10Z

I am trying to run a vbscript that opens excel then executes a macro. I
have code that works but I get an error saying "The macro "sort" can not
be found. I found that if you open excel by the script it does not load
any of the macros. I did some searching and found that by opening excel
via automation does not load all addins and startup files to load

Installing a printer using WSH

2010-03-17T16:58:03Z

Hello, I am using a script to install printers but I get a strange
error message
Set WshNetwork = WScript.CreateObject("WScript. Network")
PrinterPath = "\\server1\sharedName_hp1"
WshNetwork.AddWindowsPrinterCo nnection PrinterPath
WshNetwork.SetDefaultPrinter PrinterPath
When the user logs on for the the first time the receive an error

Running exchange powershell command from vbscript

2010-03-17T13:04:19Z

Hi! :)
I need to run one powershell command from vbscript. I have no problem
running a command like Get-Command but what I need to run is an Exchange
command (Set-Mailbox). How can I do this?
I tried:
Dim objShell : Set objShell = CreateObject("Wscript.Shell")
objShell.Run("C:\Windows\Syste m32\WindowsPowerShell\v1.0\pow ershell.exe -noexit

Group membership query fails because of special character

2010-03-16T18:39:40Z

Hello All.
Consider the following script:
(watch for word wrap)
strComputer = "atl-ws-01"
strGroup = "Administrators"
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup &
",group")
For Each objUser in objGroup.Members
Wscript.Echo objUser.Name
Next
This script works fine; except if there's a dollar sign ($) in the

Type Mismatch Error After Converting vbs to wsf

2010-03-15T20:14:04Z

Have a fairly simple vbscript application that was originally coded in a
single .vbs file. Includes one function (MJLogTypeIdFromAbbr) that I wanted
to move to a common "library" so that I could make it available for use in
other vbscript apps.
So, I split that function out into a separate .vbs file, and created a wsf

force reading csv fields as text

2010-03-15T17:29:10Z

I'm trying to put together a vbscript that will read a .csv file using
the ADODB tools. However I'm running into an issue with IP addresses
in this .csv. It looks like it is treating them as decimal numbers.
So my question is, is there a sane way to force the reading of .csv
fields (that are not surrounded by quotes) as string values, if you

WSHShell.SendKeys "{F5}" - doesn't work

2010-03-15T17:02:27Z

I've been trying with every sample script I can find on the Net, but the
double clicking the VBS just flashes the hourglass and then nothing. All
these scripts can't be wrong. It just simply doesn't refresh the desktop.
I'm doing the Outlook desktop icon thing and if this doesn't work i'm going

instructor's solutions manual for Continuum Electromechanics by James R. Melcher

2010-03-14T06:58:59Z

I have solutions manuals for the scientific textbooks .. They are all
in PDF format .. If you are interested in any one, simply send me an
email to macmorino(at)gmail(dot)com .. Please this service is NOT
free.
Here are solutions manuals to some titles..
Instructor's solutions manual for A Course in Modern Mathematical

Query printers in 2008 domain using vbscript or WMI

2010-03-11T15:01:00Z

I have the following code which I use to query published printers in
AD on our domain (2003). We have now setup a 2 way trust with another
domain (2008) which I can browse to with no problems. The problem
occurs when I try and run this script with the remote domain in the
LDAP query returns "Provider: A referral was returned from the

Copying to a relative cell range

2010-03-10T23:09:01Z

To all VBscript Gurus,
I am attempting to copy a string variable to a relative cell range. I have
been playing around with the Range command, but this only works for absolute
ranges. Here is layman's logic that I want to convert to VBScript:
dim string = "this variable"
dim B = 10
copy string to cells (A1:A(1+B))

How to speed this up?

2010-03-10T16:58:25Z

Hi
I'm searching through severel servers on in severel folders.
Want newest file LastModified time stamps.
In the folders are files wiht differents filename patterns in (same
folder)
so I'm having path in one array and pattern in another array
In some folders there are more than 800 files.
This is very slow over network -up to 5 minutes.

Have group members in wrong format

2010-03-09T22:29:02Z

Hey all,
I have used arrMemberOf = objGroup.GetEx("member") to obtain the members
of a group but they come in as the "cn=...." and I need to just obtain the
user name. How can I translate to that? I'm trying to do something like the
follwoing after the fact but get an error:
For Each strMember In arrMemberOf

SQL Query in VBScript

2010-03-09T16:20:42Z

I am using the following code to perform a SQL query and return a
recordset I am getting the error "Arguments are of the wrong type,
are out of acceptable range, or are in conflict with one another"
This error occurs when I open the record set. What am I doing wrong?
Const adOpenStatic = 3
Const adLockOptimistic = 3

Loop to find files, copy and renaming...

2010-03-09T07:37:35Z

Hi,
I have a folder called E:\MyFolder which contains an arbitrary number of
subfolders like Sub1, Sub2 Sub3 etc.
In each of these folders there might be a file called MyFile.DAT.
I need a script that loops through all levels of subfolders under
E:\MyFolder and copies every occurrence of MyFile.DAT to E:\Target. In