microsoft.public.scripting.vbscript Google Group

Re: How to speed this up?

tglba...@verizon.net (Tom Lavedas) — Fri, 19 Mar 2010 17:24:26 UT

I don't think this approach (using console DIR command) needs to write
a batch procedure. I usually use a generalized function to run
console applications and collect the output. I've posted it many
times, generally under the function name of CmdPrompt. In this case,
it might be more useful to use a function specifically designed to

Re: How to speed this up?

kim.zeth...@gmail.com (Leon) — Fri, 19 Mar 2010 13:38:33 UT

Hi
Yes mayne it just takes the time it takes.. hmm
And why not do remote scripting..no.. I want a tool that can be
maintained without processes on every remote server .. :-)
But using DOS command speeds this task up from severel minutes to
seconds
looping through array with specified folders with VBS..

Re: Create a folder structure path

liketoc...@discussions.microsoft.com (LikeToCode) — Thu, 18 Mar 2010 22:36:02 UT

On my win7 box it is the same, this shows you how often I need to create
complete folder paths. ;-)
You can still accomplish this with 2 lines of code.
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir C:\folder1\folder2\folder3"

Re: Create a folder structure path

ekkehard.hor...@arcor.de (ekkehard.horner) — Thu, 18 Mar 2010 20:38:22 UT

LikeToCode schrieb:
For VBScript 5.6 and 5.7 .CreateFolder won't create a folder unless
its parent folder exists. I would like to know, whether newer versions
of VBScript (FSO) are more programmer friendly.
To be on the save side, you should use a recursive sub like Steve's
or shell out for mkdir.

RE: How to convert to unicode in ADSI - "mail" attribute?

liketoc...@discussions.microsoft.com (LikeToCode) — Thu, 18 Mar 2010 16:26:01 UT

you could use the Replace method to search each new email address and replace
the "Ø" with a "O".
Replace(strEmail,"Ø","O")

RE: Create a folder structure path

liketoc...@discussions.microsoft.com (LikeToCode) — Thu, 18 Mar 2010 16:05:01 UT

Or simply:
Set objFSO = CreateObject("scripting.filesy stemobject")
objFSO.CreateFolder("c:\folder 1\folder2\folder3")
This uses the CreateFolder Method of FileSystemObject. More information can
be found here:
[link]
and
[link]

Re: How to convert to unicode in ADSI - "mail" attribute?

rlmueller-nos...@ameritech.nospam.net (Richard Mueller [MVP]) — Thu, 18 Mar 2010 15:42:08 UT

You can use the ldifde utility to update attributes with values that are
Base64 encoded. I have example VBScript programs to Base64 encode strings
linked here:
[link]
I have limited experience with foreign characters, but if you can convert
the desired value into a hexadecimal string, you can use the first program

Re: Browse for File Dialog ( W7)

mayay...@nospam.invalid (mayayana) — Thu, 18 Mar 2010 15:46:42 UT

You might check what extensions or BHOs are
barnicled onto IE. If you use IE online it's easy to
end up with all sorts of "toolbars" and other junk.
They not only need to load, but some of them may
also go online or do other setup operations when
IE starts.
Also check for problematic
software running. (In my experience, the major

Re: Create a folder structure path

cerberu...@gmail.com (Steve) — Thu, 18 Mar 2010 13:47:26 UT

Const FULL_PATH = "c:\folder1\folder2\folder3"
Set fso = CreateObject("Scripting.FileSy stemObject")
BuildPath FULL_PATH
Sub BuildPath(ByVal Path)
If Not fso.FolderExists(Path) Then
BuildPath fso.GetParentFolderName(Path)
fso.CreateFolder Path
End If
End Sub

Create a folder structure path

nos...@spam.com (Jason) — Thu, 18 Mar 2010 13:09:16 UT

Hello
Is there a easy way to create the folder path c:\folder1\folder2\folder3 ?

Re: Find a unused drive letter

nos...@spam.com (Jason) — Thu, 18 Mar 2010 13:07:57 UT

Thats, that works.
"Richard Mueller [MVP]" <rlmueller-nos...@ameritech.no spam.net> wrote in
message news:upQO$whxKHA.3408@TK2MSFTNGP06.phx.gbl...

Re: Browse for File Dialog ( W7)

c...@discussions.microsoft.com (c) — Thu, 18 Mar 2010 11:17:01 UT

same here as well. I've come across the following 4 options so far, and
neither of them are yet reliable in win7:
<Option 1>
This returns error in both winXP and win7 when certain file is selected:
Function Browse()
Const sHandle=&H0
Const sText = "Browse"
Const sOption=&H4000
Const sOption2=&H0001

Diff in running VBScripts-WMI routuines from WinTaskSch & SQL Agen

yusufa...@msn.com (Yusuf) — Thu, 18 Mar 2010 06:44:01 UT

Is there a difference in running VBScripts-WMI routuines from
WinTaskScheduler & SQLAgent. Because what is running all fine with cscript &
WinTaskScheduler suffers with unlrelated errors when tried with a SQL JOB.
Any insights.

How to convert to unicode in ADSI - "mail" attribute?

it...@discussions.microsoft.com (iTWeb) — Thu, 18 Mar 2010 03:58:01 UT

Hi all,
I made a vbs to add an extra e-maill address to a distribution list group.
The e-mail address should be <group name>@dnv.com.
As we are a Norwegian company, the group name sometimes contains Norwegian
character such as "Ø".
When I look into ADSI, the string with "Ø" do updates in "mail" attribute.

Re: Installing a printer using WSH

paulr...@cableone.net (Paul Randall) — Thu, 18 Mar 2010 02:29:33 UT

I think I found it "wscript.sleep xxxx (where x represents time, 3
minutes should be enough time to install a printer) so
Set WshNetwork = WScript.CreateObject("WScript. Network")
PrinterPath = "\\server1\sharedName_hp1"
WshNetwork.AddWindowsPrinterCo nnection PrinterPath