microsoft.public.scripting.vbscript Google Group

Re: Has groups.google.com gone bonkers?

2009-11-20T17:46:18Z

As previously mentioned, there are a number of "mirror"
(a.k.a. copies) of the various ng postings, and with
the implication that searching the copy-cats may be
just as fruitful as googling the original.
Today, I stumbled across a copy of THIS ng, which is
hosted by microsoft (gasp!). For a quick look, here

How to connect to server?

2009-11-20T17:01:56Z

I'm trying to write a script to update the Exchange flag for out of
office and set the message.
It seems to be working except when I execute the objMAPISession.Logon
statement, I get a dialog box to connect to the server. How can I get
it to make the connection without that dialog, or to use that dialog

Re: Regular Expression Question

2009-11-20T03:11:34Z

...
This was a highly interesting problem because I think it
exposes a bug in VBScript Regular Expression object. In
particular, the regular expression which finds the number
of such matches is:
(?=\d{4})
That is
subject = "sfsdf1234567sdfsdf"
Set regExM = New RegExp
regExM.Pattern = "(?=\d{4})"
regExM.Global = True

Re: total size of files

2009-11-20T03:09:37Z

Then I need not say anything about it... ;-)
Of course, this type of thing would be even easier in Powershell (another
non-vbscript language), in which files and folders are objects with
properties like "size", and in which numbers with more than 9 digits
overflow.
/Al

Re: check if a user is member of a group?

2009-11-20T02:33:45Z

I assume your text file has "pre-Windows 2000 logon" names. A VBScript
program can use the FileSystemObject to read the names from the file, use
the NameTranslate object to convert the names to Distinguished Names, then
check for membership in a specified group. You should specify the
Distinguished Name of the group. For example:

check if a user is member of a group?

2009-11-20T01:34:05Z

I have a text file listing some userID's. I need to read the users from this
list and check if they are a member of a specifc group in Active Directory.
I checked and checked but cant seem to find anything to do what i need. Can
anyone help?

Re: total size of files

2009-11-19T21:41:19Z

I ran the above script against a 2TB drive. Here is the script output
(after 2 hours & 55 minutes of parsing the data):
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.
Invalid number. Numbers are limited to 32-bits of precision.

Re: total size of files

2009-11-19T21:27:04Z

Re: ActiveX warning box - how to inhibit?

2009-11-19T21:01:03Z

Jeez, I guess I am just trying to make things too hard on myself.
I think this will do fine. Thanks!
Ed

Re: ActiveX warning box - how to inhibit?

2009-11-19T20:18:18Z

Here is a little example that does that ...
<html>
<script language=vbs>
dim g_oWdw
sub window_onload
set g_oWdw = window.open("about:blank", "Test",
"resizable=yes,location=no,men ubar=no,toolbar=no")
end sub
sub btn1_onclick
g_oWdw.location = "[link]

Re: ActiveX warning box - how to inhibit?

2009-11-19T19:31:01Z

I am doing it that way because I would like to reuse the newly-opened window
to navigate to other URLs. I do not know of a way to do this with
window.open. I want to avoid having lots of IE windows all over the
desktop, if possible.
Having an instance of IE available allows me to call navigate(url). This is

Re: Regular Expression Question

2009-11-19T19:02:11Z

Re: ActiveX warning box - how to inhibit?

2009-11-19T15:50:37Z

Why are you doing it that way? That is nothing but problems, as
you've found. The user must change there security settings too low
for this to be useful, is a terrible idea and is outside of your
control. Why are you not using window.open?
_____________________
Tom Lavedas

Re: ActiveX warning box - how to inhibit?

2009-11-19T15:45:43Z

Presumably this is local? You can't change settings
for visitors to a website. And if it's local then can't
you use an HTA?
If it's local and you want to make IE safe, you can
set these values in the Registry:
Every object has a ProgID in HKCR. In this case it's
InternetExplorer.Application. Under that key look for

Re: Regular Expression Question

2009-11-19T14:54:19Z

The best I could do was find all contiguous digits greater than four
and then post process that ...
sMatch = RegExpFind("\d{4,}", "sfsdf1234567sdfsdf")
if sMatch <> "" then
Redim aMatches(Len(sMatch) - 3)
aMatches(0) = Left(sMatch, 4)
For i = 1 to Len(sMatch) - 4
aMatches(i) = Mid(sMatch, i + 1, 4)