Re: Was stimmt mit folgendem Script nicht?



Das muss Dein "Server" sein,

oder der NAME, den Du da in

Network, Computer Identification

eingetragen hast.

---------------------

Weiss nicht ob Dir das als noch XP Geschaedigter

noch nuetzt.

Bei anderen muesste es runzeln oder funzeln.

Zumindest.








"Daniel Leger" <Newsgroup@xxxxxxx> wrote in message
news:e54psIYgFHA.2180@xxxxxxxxxxxxxxxxxxxxxxx
> Hallo,
>
> es fehlt ein _ in Zeile 9 (--> Set objWMIService =
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ <--).
>
> Gruss Daniel
>
>
> "Armin Meier" <ArminMeier@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag
> news:363B0906-180D-4134-891D-FEFB2B5A2743@xxxxxxxxxxxxxxxx
> > Habe folgendes Script aus dem Internet, finde darin eigentlich keinen
> > Fehler,
> > es bricht aber mit einem Fehler ab!
> >
> > 'On Error Resume Next
> >
> > Dim strComputer
> > Dim objWMIService
> > Dim colItems
> > dim objItem
> >
> > strComputer = "."
> > Set objWMIService =
> > GetObject("winmgmts:{impersonationLevel=impersonate}!\\"
> > & strComputer & "\root\cimv2")
> > Set colItems = objWMIService.ExecQuery("Select * from
Win32_LogonSession")
> >
> > if isObject(colItems) then
> > For Each objItem in colItems
> > Wscript.Echo "Authentication Package: " & objItem.AuthenticationPackage
> > Wscript.Echo "Logon ID: " & objItem.LogonId
> > Wscript.Echo "Logon Type: " & objItem.LogonType
> > Wscript.Echo "Start Time: " & objItem.StartTime
> > Wscript.Echo
> > Next
> > end if
>
>

.



Relevant Pages

  • Re: automatisches WU
    ... Leben vor dem Computer ... Ein Virus war die Grippe, ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Re: =?iso-8859-1?Q?Gro=DFkopferte?=
    ... habe nichts zu suchen. ... Papier streicht man durch oder faengt man von vorne an, am Computer ... Prev by Date: ... Next by Date: ...
    (de.etc.sprache.deutsch)
  • =?iso-8859-1?q?Re:_Desktop-Hintergrund_nicht_mehr_=E4nderbar?=
    ... Computer, deren Nutzer/innen sich sonstwelche Workarounds zurechtgelegt ... Filter zu haben, oder aber meine Adresse ist nicht so umtriebig. ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Re: Summen in Spalte per makro
    ... > Dim Spalte As Integer ... Prev by Date: ... Next by Date: ...
    (microsoft.public.de.excel)