[XP, VBScript]Performance logon script

[Sjeng]

Om gebruikers te ontmoedigen een Administrator account te gebruiken voor hun dagelijkse werkzaamheden heb ik het volgende script geschreven.

NotifyIfAdministrator.vbs

code:

' NotifyIfAdministrator.vbs

' Description:
' Simple script to inform the user not to use an Administrator account 
' for simple everyday tasks such as checking mail etc.

' Define the administrator group
AdminGroup="Administrators"

' Get user name of the user running this script
Set objShell = CreateObject("WScript.Shell")
Set objEnvironment = objShell.Environment("process")
UserName = objEnvironment("USERNAME")

' Check if the user is a member of the administrator group
Set netObj = CreateObject("WScript.Network")
Set userObj = GetObject("WinNT://" & netObj.UserDomain & "/" & netObj.UserName & ",user")
For Each grp In userObj.Groups
  If grp.Name = adminGroup Then
    flgIsAdmin = True
    Exit For
  End If
Next

' Display alert
If flgIsAdmin = True Then 
  out=MsgBox("You are currently logged on as " & UserName & "."_
  & VBCRLF & VBCRLF & "This user is a member of the " & AdminGroup &_
  " group. Members of this group have Administrator privileges. Accounts"_
  & " with these privileges should only be used for administering"_
  & " the computer or domain. Please do not use this account to perform everyday tasks!"_
  , 48, "Notice")
End If

Probleem is dat dit script nog trager is dan dikke stront. Het ophalen van het userObj lijkt een eeuwigheid te duren. Is dit nog op de een of andere manier te versnellen?

offtopic:
Beste mod, dit leek mij voorlopig de beste plaats voor dit topic misschien dat het toch WOS moet zijn?

[ Voor 9% gewijzigd door Sjeng op 27-07-2004 01:30 ]

[curry684]

Sjeng schreef op 27 juli 2004 @ 01:20:

offtopic:
Beste mod, dit leek mij voorlopig de beste plaats voor dit topic misschien dat het toch WOS moet zijn?

Neuj dit is echt een definite gevalletje programmeren hoor Alleen batchscripts horen in WOS/NOS respectievelijk.

[elevator]

Het verschil tussen VBScript voor loginscripts en batchscripts is er eigenlijk nauwelijks.

Iig - wat is gruwelijk traag? Wat voor netwerk omgeving heb je? Zit je op een WAN of een LAN? Werkt bv. iets als 'ifmember' uit de resource kit wel goed?

[Verwijderd]

Hmm... bij mij issie best snel... (plm 1 seconde)

[ Voor 20% gewijzigd door Verwijderd op 27-07-2004 09:12 ]

[curry684]

elevator schreef op 27 juli 2004 @ 07:27:
Het verschil tussen VBScript voor loginscripts en batchscripts is er eigenlijk nauwelijks.

Jij je zin dan * curry684 slingert richting Windows Operating Systems.