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