Global $IniFile = @ScriptDir & "\Computer.ini", $Ping = 1
Global $DirStart[5] = ["", "X:\allgemeine_scripts\ProgrammABC\Bilder\*.*", "X:\allgemeine_scripts\ProgrammABC\RegKeys\*.*", "\C$\Programme\ProgrammABC\Profiles\", "X:\allgemeine_scripts\ProgrammABC\Scripts\*.exe"]
Global $DirZiel[4] = ["", "\C$\Dokumente und Einstellungen\user1\Anwendungsdaten\ProgrammABC\Profiles", "\C$\Programme\Scripts\Test\", "\C$\Dokumente und Einstellungen\user1\Startmenü\Programme\Autostart\"]

$Befehl = IniReadSection($IniFile, "Computer")
If @error = 1 Then MsgBox(64,"Error", "Ein Fehler ist beim öffnen der Computer.ini aufgetreten")

While $Ping <= $Befehl[0][0]

	$var1= Ping($Befehl[$Ping][0], 250)

If $var1 <> 0 Then

	If Not FileExists("\\" & $Befehl[$Ping] [0] & $DirZiel[2]) Then
	DirCreate("\\" & $Befehl[$Ping][0] & $DirZiel[2])
	EndIf
	If Not FileExists("\\" & $Befehl[$Ping][0] & "\C$\Programme\ProgrammABC") Then
	DirCreate("\\" & $Befehl[$Ping][0] & "\C$\Programme\ProgrammABC")
	EndIf
	If Not FileExists("\\" & $Befehl[$Ping][0] & "\C$\Dokumente und Einstellungen\user1\Anwendungsdaten\ProgrammABC")Then
	DirCreate("\\" & $Befehl[$Ping][0] & "\C$\Dokumente und Einstellungen\user1\Anwendungsdaten\ProgrammABC")
	EndIf

	FileCopy($DirStart[1],"\\" & $Befehl[$Ping][0] & $DirZiel[2])
	FileCopy($DirStart[2],"\\" & $Befehl[$Ping][0] & $DirZiel[2])
	DirCopy("\\" & $Befehl[$Ping][0] & $DirStart[3], "\\" & $Befehl[$Ping][0] & $DirZiel[1], 1)

	Run (@ComSpec & " /c " & "psexec \\" & $Befehl[$Ping][0] & " -i C:\Programme\Scripts\taskkill.cmd","", @SW_HIDE)

	FileCopy($DirStart[4], "\\" & $Befehl[$Ping][0] & $DirZiel[2], 1)

	FileCreateShortcut("\\" & $Befehl[$Ping][0] & $DirZiel[2] & $Befehl[1][$Ping], "\\" & $Befehl[$Ping][0] & $DirZiel[3] & "Scriptlink.lnk", 1)

	Run (@ComSpec & " -m \\" & $Befehl[$Ping][0] & ' -r -t 10 -c "ihr PC wird in 10 Secunden Neugestartet',"", @SW_HIDE)

	ElseIf $var1 =0 Then
    MsgBox(64,"Error", "Ein Fehler ist beim anpingen des Computers " & $Befehl[$Ping][0] & " aufgetreten, möglicherweise ist der PC offline")
EndIf
$Ping+=1

WEnd