Grenzer

Hi,

 

besorg Dir das Buch:

Galileo Computing, Ulrich B.Boddenberg, Exchange Server 2003 & Live Communications Sercer 2005

 

ist Spitze hab nur mit diesem Buch die 284 locker gemacht !!

 

Ach ja, ich finds nicht gut das Leute immer runtergemacht werden, wegen nur bestehen und so ist doch alles Quatsch. Gebt doch einfach die Tips und fertig.

Ist echt schlimm in diesem Forum diesbezüglich.

Hallo,

 

deaktiviere mal den Windows-Bilderfassungs Dienst (WIA), und lass in auch nicht mehr automatisch starten :-)). Hab bei Kunden in Zusammenhang mit verschiedenen Geräten schon gehabt das der Explorer ca 5 - 10 min gebraucht hat bis er sich dann aufgebaut hat. Dieser Dienst ist dafür da an Geräten (Scannern, Kameras etc.) die Funktionstastenbelegung der Geräte zu erkennen und noch einiges mehr (z.B Schnittstelle zu Installationsprogrammen der Dritthersteller).

Bei mir war das schon mehrmals der Grund. nach deaktivieren dieses Dienstes flutschte der Explorer aber wieder.Ach ja auch wenn keine solchen Geräte existieren kann es dennoch sein das er sucht und sucht und sucht.... Probiers mal!

 

Gruß

Grenzer

Hallo,

 

A=1

W=0

Z="ungleich"

 

if A > 5 or W = 0 or Z <> "K" Then

R=0

Msgbox R

Else

R=15

Msgbox R

End if

 

if A > 5 Then

ElseIf W = 0 Then

ElseIf Z <> "K" Then

R=0

Msgbox R

Else

R=15

Msgbox R

End if

 

if A > 5 Then

Else

If W = 0 Then

Else

If Z <> "K" Then

R=0

Msgbox R

Else

R=15

Msgbox R

End if

End if

End if

 

kannst ein bisschen rumprobieren ;-)

es gibt verschiedene Arten, kommt drauf an Wann was erfüllt sein soll. Deine Version geht genauso, du kannst auch AND mit kombinieren.

Ach ja Select Case würde auch gehn ;)

Gruß

Grenzer

:D so wie versprochen...

so wie es jetzt aufgebaut hab ich es benutzt um zu prüfen (beim Logon an TS )ob in der lokalen Gruppe der Administratoren sich der angemeldete Benutzer befindet. Das Problem war aber wir hatten hier auch Globale Gruppen aus der Domäne drin.

Ist er drin kommt jetzt ne Msgbox mit seinem Usernamen.

 

Das ganze könnte man natürlich umbauen um festzustellen wo ein User überall drin ist, damit meine ich die Technik mit der Rekursion.

 

Also viel Spass beim Probieren.

 

++++++++++++++++++++++++++++++++++++++++++++++

 

'Info: Option Explicit fehlt ebenso würde ich noch alle Objekt am schluss leeren mit Nothing

'Scriptbeginn

 

DIM ComputerName,wshNW

SET wshNw = WScript.CreateObject("Wscript.network")

 

ComputerName = wshNW.ComputerName

UserString = wshNW.UserName

'UserString = ""

GroupString = "Administrators"

 

 

Call Rekurs(ComputerName,GroupString) Start der Suche

 

 

WScript.Quit

 

'Scriptende

 

'************************************************************************************************

 

Function Rekurs(Computername,GroupString)

 

SET grp = GetObject("WinNT://" & ComputerName & "/" & GroupString)

 

SET Memberlist = grp.members

 

 

FOR EACH m In Memberlist

 

SET UserAccount = m

'MSGBOX UserAccount.name

IF UserString = UserAccount.Name THEN

 

MSGBOX UserAccount.Name 'Angemeldeter User wird angezeigt wenn er in angegebener Gruppe (auch Gruppen in dieser Gruppe und so weiter) ist,

WScript.Quit

 

ELSE

 

Name=UserAccount.Name

call ObjektProp(Name)

 

END IF

NEXT

 

END Function

 

'************************************************************************************************

 

SUB ObjektProp(Name)

DIM prop,UAcc

UAcc = Name

On Error Resume Next

 

 

SET prop = GetObject("WinNT://" & ComputerName & "/" & UAcc)

'MSGBOX "Object Class: " & x.Class

 

IF prop.Class = "Group" THEN Call Rekurs("EU",UAcc) 'und hier der Clou: Die Rekusion wenn er in der Gruppre eine Gruppe findet na dann eben von vorne..

 

 

END Sub

 

++++++++++++++++++++++++++++++++++++++++++++

 

Gruß

Grenzer

Hi,

 

nur mal so auf die schnelle wie du eine Datei in ein Array Zeilenweise einlesen kannst.

probier den rest doch mal selbst, wenn du nicht weiter kommst helf ich natürlich gerne weiter!!

 

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

 

Datei = "C:\Temp\Ziel.txt" ' Pfad zur Datei

 

 

Set FileIn = FSO.OpenTextFile(Datei, 1, true) ' Datei zum Lesen öffnen

i=0

Do While Not (FileIn.atEndOfStream) ' wenn Datei nicht zu ende ist, weiter machen

i = i + 1

ReDim Preserve Zeile(i)

Zeile(i) = FileIn.Readline

Loop

 

If i < 1 Then

ReDim Preserve Zeile(i)

Zeile(i) = "Leerdatei"

End If

Set FileIn = Nothing

 

 

 

for i = 1 to UBound( Zeile )

 

MsgBox Zeile(i) 'Zeilenweise ausgabe der Datei

 

next

 

muss aber los jetzt

tschau

jo mach ich.

 

muss noch Kommentare einfügen oder reichts ohne?

 

werds heute Abend reinstellen.

hat sich erledigt bin selber drauf gekommen voll den Knoten im Kopf :D

hab mein Script gerade gefunden das ich schon mal wegen diesem Problem geschrieben hab, ich d......... :rolleyes:

 

ich brauch dringend Urlaub.

 

aber währen ich das hier Tippe seh ich gerade den Beitrag von grizzly999, Danke für die Mega-Schnelle Antwort, werd mir das ifmember-Teil mal ansehen.

Hallo zusammen,

 

steh voll an Schlauch irgendwie...

 

wenn ich ein User in einer Globale Gruppe ist, ich nenne Sie mal Test-G und in die Eigenschaften des Users unter Member of schaue ist er Mitglied von Test-G.

Noch ganz normal

Packe ich nun die Globale Gruppe Test-G in eine andere Globale Gruppe (Group Nesting- soll man ja nicht machen) ist diese nicht in Member of Reiter der Usereigenschaften sichtbar.

 

Liege ich nun Recht in der Annahme das die Member of nur im ersten Level dem Userobjekt sichtbar ist und hier nicht rekursiv gecheckt wird oder hat das andere Gründe.

 

Ich kappiers einfach nicht.

 

könnt ihr mir darauf eine Antwort geben ?

 

Gruß

Grenzer