microsoft.public.scripting.vbscript Google Group

Re: How to speed this up?

2010-03-19T13:38:33Z

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

2010-03-18T22:36:02Z

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

2010-03-18T20:38:22Z

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?

2010-03-18T16:26:01Z

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

2010-03-18T16:05:01Z

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?

2010-03-18T15:42:08Z

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)

2010-03-18T15:46:42Z

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

2010-03-18T13:47:26Z

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

2010-03-18T13:09:16Z

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

Re: Find a unused drive letter

2010-03-18T13:07:57Z

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)

2010-03-18T11:17:01Z

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

2010-03-18T06:44:01Z

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?

2010-03-18T03:58:01Z

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

2010-03-18T02:29:33Z

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

Re: Find a unused drive letter

2010-03-17T21:53:07Z

The Drives collection of the FileSystemObject is a collection of all known
drives. You could enumerate all drives, network and local, with:
=======
Set objFSO = CreateObject("Scripting.FileSy stemObject")
For Each objDrive In objFSO.Drives
Wscript.Echo objDrive.DriveLetter & ", " & objDrive.Path