'*** v9.6 *** www.dieseyer.de ******************************
Set Fso = WScript.CreateObject ("Scripting.FileSystemObject")
Set Wss = WScript.CreateObject ( "WScript.Shell" )
'
' Datei:  autostart.vbs
' Autor:  dieseyer@gmx.de 
' Auf:    www.dieseyer.de
'
' Die Prozedur
'    AutoStart( PC )
' gibt ein Array zurück, in dem alle Autostarteinträge 
' gelistet sind. Jedes Array-Element enthält folgende, 
' durch Tabulator getrennte Informationen:
'	Command		Befehl, .exe
'	Description	Beschreibung, Name	
'	Location	z.B. Eintrag im AutoStart-Ordner 
'			oder Registry-Schlüssel
'	Name		häufig identisch mit Description
'	User		z.B. 'All Users', '.DEFAULT'
'			'NT-AUTORITÄT\SYSTEM'
'
'***********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim ZwArray	: ZwArray =	AutoStart( "." )
MsgBox "Es gibt   " & UBound( ZwArray ) + 1 & "   Autostart-Einträge.", , "025 :: " & WScript.ScriptName

Call ArrayZeigen( ZwArray )

WScript.Quit 

'*** v9.6 *** www.dieseyer.de ******************************
Function AutoStart( PC )
'***********************************************************
' Hey, Scripting Guy!
' How Can I List All the Items in the Run Key in the Registry?
' http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb06/hey0220.mspx

  Dim objWMIService		: Set objWMIService		= GetObject("winmgmts:\\" & PC & "\root\cimv2")
  Dim colStartupCommands	: Set colStartupCommands	= objWMIService.ExecQuery("Select * from Win32_StartupCommand")
  Dim t, i
  i = 0
  t = "Nr." & vbTab & ".Command" & vbTab & ".Description" & vbTab & "Location" & vbTab & ".Name" & vbTab & ".User" & vbCRLF

  Dim objStartupCommand
  For Each objStartupCommand in colStartupCommands
	t = t & i + 1 & vbTab &	objStartupCommand.Command & vbTab & objStartupCommand.Description & vbTab & objStartupCommand.Location & vbTab & objStartupCommand.Name & vbTab & objStartupCommand.User & vbCRLF
	ReDim Preserve AutoStartListe(i)
	AutoStartListe(i) =	objStartupCommand.Command & vbTab & objStartupCommand.Description & vbTab & objStartupCommand.Location & vbTab & objStartupCommand.Name & vbTab & objStartupCommand.User
	i = i + 1
'	Wscript.Echo "Command: " & objStartupCommand.Command
'	Wscript.Echo "Description: " & objStartupCommand.Description
'	Wscript.Echo "Location: " & objStartupCommand.Location
'	Wscript.Echo "Name: " & objStartupCommand.Name
'	Wscript.Echo "User: " & objStartupCommand.User
  Next

' ArrayZeigen( AutoStartListe )

' MsgBox t, , "060 :: " & WScript.ScriptName
' WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile( WScript.ScriptFullName & ".csv", 2, true ).WriteLine ( t )

  AutoStart = AutoStartListe

End Function ' AutoStart()


'*** v7.C *** www.dieseyer.de ******************************
Function ArrayZeigen( InArray )
'***********************************************************
' Durch die Prozedur
'    ArrayZeigen( InArray )
' werden von einem Array nur die ersten
' und letzten Elemente angezeigt. Da die MsgBox nur 1024
' Zeichen anzeigen kann, ist die Anzahl der angezeigten
' Elemente von der Länge der einzelnen Elemente abhängig.

  Dim TxtOben, TxtUnten, Tst, i, n, o, u
  Dim Kopf ' für Tests 
  ' Kopf = "LBound( InArray )=" & LBound( InArray ) & "   UBound( InArray )=" & UBound( InArray ) & vbCRLF & vbCRLF & Kopf
  ' Kopf = "O=00000" & "   U=00000" & "   Len( TxtOben )=00000" & vbCRLF & Kopf

  For i = LBound( InArray ) to UBound( InArray )

    n = UBound( InArray ) - i
    Tst = Len( TxtOben ) + Len( TxtUnten ) + Len( InArray( i ) ) + Len( Kopf )
    If Tst < 1000 AND n >= i Then
'		TxtOben  = TxtOben  & "i = " & i & vbTab & "n = " & n & vbTab & Tst & vbTab & InArray( i ) & vbCRLF
		TxtOben  = TxtOben  &          i &                                    vbTab & InArray( i ) & vbCRLF
		o = i
    End If

    n = UBound( InArray ) - i
    Tst = Len( TxtOben ) + Len( TxtUnten ) + Len( InArray( n ) )
    Tst = Len( TxtOben ) + Len( TxtUnten ) + Len( InArray( i ) ) + Len( Kopf )
    If Tst < 1000 AND n > i Then
'		TxtUnten  = "n = " & n & vbTab & "i = " & i & vbTab & Tst & vbTab & InArray( n ) & vbCRLF & TxtUnten
		TxtUnten  =          n                                    & vbTab & InArray( n ) & vbCRLF & TxtUnten
		u = n
    End If
    If n <=i then Exit For

  Next

  Tst = ""
  If o <> u AND o + 1 <> u Then Tst = "." & vbCRLF & "." & vbCRLF

  Kopf = Replace( Kopf, "O=00000", "O=" & o )
  Kopf = Replace( Kopf, "U=00000", "U=" & u )
  Kopf = Replace( Kopf, ")=00000", ")=" & Len( Kopf & TxtOben & Tst & TxtUnten ) )

  TxtOben = Kopf & TxtOben & Tst & TxtUnten

' LogEintrag "114 :: " & vbCRLF & TxtOben
  MsgBox TxtOben , , "115 :: " & WScript.ScriptName

End Function ' ArrayZeigen( InArray )