The Samba-Bugzilla – Attachment 364 Details for
Bug 995
Group listing works with WinXP but not Win2000 via vbscript
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
The script that causes the error.
test3.vbs (text/plain), 740 bytes, created by
Tomas Edwardsson
on 2004-01-22 05:20:07 UTC
(
hide
)
Description:
The script that causes the error.
Filename:
MIME Type:
Creator:
Tomas Edwardsson
Created:
2004-01-22 05:20:07 UTC
Size:
740 bytes
patch
obsolete
>Public GroupList >Public UserName > >Const DomainName="OS" > >Sub InitProgram > Dim oUser, oGroup > UserName = onetwork.UserName > Set oUser = GetObject("WinNT://" & DomainName & "/" & UserName & ",user") > GroupList="|" > For Each oGroup In oUser.Groups > GroupList = GroupList & lcase(oGroup.Name) & "|" > Next > Set oUser = Nothing >End Sub > >Function IsMember(GroupName) > if instr(GroupList,lcase(GroupName))>0 then > IsMember=true > else > IsMember=false > End if >End Function > > >'*********************************************************************** >' Main >' >set onetwork = wscript.createobject("wscript.network") >set oshell = wscript.createobject("wscript.shell") > >InitProgram > > >set onetwork = nothing >set oshell = nothing
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=364">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 995
: 364 |
365