vbscript, script is not working

uzma
#1 / 10

script is not working

The script should map drives according to what groups the
users are in, but its just not working. I know it may be
something very little.
Any help will be appreciated......

ymcalogon.vbs
6K Download

Fri, 10 Jun 2005 19:18:01 GMT

MVP
#2 / 10

script is not working

Details of that script are pretty domain-specific. What errors does it give you
where?

--
Please respond in the newsgroup so everyone may benefit.
http://dev.remotenetworktechnology.com
----------
Subscribe to Microsoft's Security Bulletins:
http://www.microsoft.com/technet/security/bulletin/notify.asp

Quote:

> The script should map drives according to what groups the
> users are in, but its just not working. I know it may be
> something very little.
> Any help will be appreciated......

Fri, 10 Jun 2005 22:07:06 GMT

uzma
#3 / 10

script is not working

It doesnt give me any errors as I run the script.
It seems as if it just doesnt run. It is a simple script
that should map drives according to what groups users are
in.

Quote:

>-----Original Message-----
>Details of that script are pretty domain-specific. What

errors does it give you

Quote:

>where?

>--
>Please respond in the newsgroup so everyone may benefit.
> http://dev.remotenetworktechnology.com
> ----------
> Subscribe to Microsoft's Security Bulletins:

http://www.microsoft.com/technet/security/bulletin/notify.
asp

Quote:

>> The script should map drives according to what groups
the
>> users are in, but its just not working. I know it may
be
>> something very little.
>> Any help will be appreciated......

>.

Fri, 10 Jun 2005 22:20:45 GMT

MVP
#4 / 10

script is not working

To diagnose the problem, you'll want to comment out the "on error resume next
statement".

Looking down through the script, here is one possible cause of your problem.
This appears to be used for Win9x client PCs; if they don't have the ADSI
extensions from the Win2K Server CD installed, the line

Set objUser = GetObject("WinNT://" & strDomain & "/" & strUserName & ",user")

will error out.

There are other potential trouble points under some circumstances, but that is
the most likely.

--
Please respond in the newsgroup so everyone may benefit.
http://dev.remotenetworktechnology.com
----------
Subscribe to Microsoft's Security Bulletins:
http://www.microsoft.com/technet/security/bulletin/notify.asp

Quote:

> It doesnt give me any errors as I run the script.
> It seems as if it just doesnt run. It is a simple script
> that should map drives according to what groups users are
> in.

> >-----Original Message-----
> >Details of that script are pretty domain-specific. What
> errors does it give you
> >where?

> >--
> >Please respond in the newsgroup so everyone may benefit.
> > http://dev.remotenetworktechnology.com
> > ----------
> > Subscribe to Microsoft's Security Bulletins:

> http://www.microsoft.com/technet/security/bulletin/notify.
> asp

> >> The script should map drives according to what groups
> the
> >> users are in, but its just not working. I know it may
> be
> >> something very little.
> >> Any help will be appreciated......

> >.

Sat, 11 Jun 2005 00:42:53 GMT

uzma
#5 / 10

script is not working

thanks alex,

i have turned off on error resume next and there is an
error in line 11 800A01A8. Object required "wshshell"

I am new to VBScripting and thsi is not something I have
written.

Any help is appreciated.

Quote:

>-----Original Message-----
>To diagnose the problem, you'll want to comment out

the "on error resume next

Quote:

>statement".

>Looking down through the script, here is one possible

cause of your problem.

Quote:

>This appears to be used for Win9x client PCs; if they
don't have the ADSI
>extensions from the Win2K Server CD installed, the line

>Set objUser = GetObject("WinNT://" & strDomain & "/" &

strUserName & ",user")

Quote:

>will error out.

>There are other potential trouble points under some

circumstances, but that is

Quote:

>the most likely.

>--
>Please respond in the newsgroup so everyone may benefit.
> http://dev.remotenetworktechnology.com
> ----------
> Subscribe to Microsoft's Security Bulletins:

http://www.microsoft.com/technet/security/bulletin/notify.
asp

Quote:

>> It doesnt give me any errors as I run the script.
>> It seems as if it just doesnt run. It is a simple
script
>> that should map drives according to what groups users
are
>> in.

>> >-----Original Message-----
>> >Details of that script are pretty domain-specific.
What
>> errors does it give you
>> >where?

>> >--
>> >Please respond in the newsgroup so everyone may
benefit.
>> > http://dev.remotenetworktechnology.com
>> > ----------
>> > Subscribe to Microsoft's Security Bulletins:

http://www.microsoft.com/technet/security/bulletin/notify.

- Show quoted text -

Quote:

>> asp

>> >> The script should map drives according to what
groups
>> the
>> >> users are in, but its just not working. I know it
may
>> be
>> >> something very little.
>> >> Any help will be appreciated......

>> >.

>.

Sat, 11 Jun 2005 01:09:54 GMT

McKiraha
#6 / 10

script is not working

Place this line before the error line,

set wshshell=createobject("wscript.shell")

(per Han "Re: 800A01A8 error")

Sat, 11 Jun 2005 13:28:44 GMT

McKiraha
#7 / 10

script is not working

Ignore my previous contribution as I see (after looking at your code) that
you have:

"Set wshShell = CreateObject("Wscript.Shell")".

Sorry.

Sat, 11 Jun 2005 13:37:05 GMT

Uzma
#8 / 10

script is not working

Any other ideas....

Quote:

>-----Original Message-----
>Ignore my previous contribution as I see (after looking
at your code) that
>you have:

>"Set wshShell = CreateObject("Wscript.Shell")".

>Sorry.

>.

Sat, 11 Jun 2005 17:44:24 GMT

Richard Muelle
#9 / 10

script is not working

Hi,

Several comments.

1. Remove the "On Error Resume Next" statement, as it
masks the error messages you need to troubleshoot. If you
use "On Error Resume Next", use it just ahead of a
statement you expect might raise an error, trap the error
(With "If Err.Number <> 0 Then"), then turn normal error
handling back on with "On Error GoTo 0".

2. WSHNetwork.UserDomain will be blank on Win9x clients.

3. Wscript.Sleep requires WSH 5.1 or above.

4. "winmgmts" requires WMI installed on the client, or
W2k/XP.

5. Is it intended that the first "If"
If MemberOf(ObjGrouupDict, "IT") Then
is ended at the end of the main script? There will be no
mappings unless this "If" is true.

6. The function MemberOf has the parameter "ObjDict" that
is not used. The dictionary object "ObjGroupDict" is Dim'd
in the main script, and thus has global scope. "ObjDict"
is not needed, although this does not hurt.

I hope this helps. I didn't know a function could return
an object reference as MemberOf does here. I will try this
to see if it works.

Richard

Quote:

>-----Original Message-----
>Any other ideas....

>>-----Original Message-----
>>Ignore my previous contribution as I see (after looking
>at your code) that
>>you have:

>>"Set wshShell = CreateObject("Wscript.Shell")".

>>Sorry.

>>.

>.

Sun, 12 Jun 2005 05:46:35 GMT

Richard Muelle
#10 / 10

script is not working

Hi,

I tested your functions "MemberOf"
and "CreateMemberOfObject". They work fine, as long as
strDomain and strUserName have values. I tested without
the parameter "ObjDict", but things should work even with
this.

Richard

Quote:

>-----Original Message-----
>Hi,

>Several comments.

>1. Remove the "On Error Resume Next" statement, as it
>masks the error messages you need to troubleshoot. If you
>use "On Error Resume Next", use it just ahead of a
>statement you expect might raise an error, trap the error
>(With "If Err.Number <> 0 Then"), then turn normal error
>handling back on with "On Error GoTo 0".

>2. WSHNetwork.UserDomain will be blank on Win9x clients.

>3. Wscript.Sleep requires WSH 5.1 or above.

>4. "winmgmts" requires WMI installed on the client, or
>W2k/XP.

>5. Is it intended that the first "If"
> If MemberOf(ObjGrouupDict, "IT") Then
>is ended at the end of the main script? There will be no
>mappings unless this "If" is true.

>6. The function MemberOf has the parameter "ObjDict" that
>is not used. The dictionary object "ObjGroupDict" is
Dim'd
>in the main script, and thus has global scope. "ObjDict"
>is not needed, although this does not hurt.

>I hope this helps. I didn't know a function could return
>an object reference as MemberOf does here. I will try
this
>to see if it works.

>Richard
>>-----Original Message-----
>>Any other ideas....

>>>-----Original Message-----
>>>Ignore my previous contribution as I see (after looking
>>at your code) that
>>>you have:

>>>"Set wshShell = CreateObject("Wscript.Shell")".

>>>Sorry.

>>>.

>>.

>.

Sun, 12 Jun 2005 06:23:11 GMT