<div>Eine Möglichkeit besteht mit dem Programm Runaspc von <a href="http://www.robotronic.de/runasspc.html" target="_blank" rel="noopener noreferrer" data-cke-saved-href="http://www.robotronic.de/runasspc.html">ROBOTRONIC.DE</a></div>
<div> </div>
<div><strong>Vorteil:</strong></div>
<div>- Der Anwender muss das Admin - Passwort nicht wissen.</div>
<div>- Begrenzt auf ausgewählte Programme</div>
<div>- Updates können von "normalen User" durchgeführt werden.</div>
<div> </div>
<div><strong>Potentieller Nachteil:</strong></div>
<div>Wenn das Script <strong>nicht </strong>im Programme-Pfad liegt, könnte ein User mit normalen Benutzer-Rechten die Scriptdatei (runapps.vbs) anpassen und so weitere Programme starten, z.B. die CMD-Shell.</div>
<div>Dies Sicherheitslücke wird umgangen wenn alles in dem neuen Programme-Ornder "adminme" liegt. Bei einem Netzwerk-Pfad darf dieser Ordern nur Leserechte haben.</div>
<div> </div>
<div><span style="text-decoration: underline;"><strong>A.] Erstellen der Routine um ein VBS-Script zu starten:</strong></span></div>
<div><strong>1.)</strong> runasspcadmin.exe starten und folgendes eintragen für die lokale Anwendung</div>
<div>border-width: medium;
<table border="0" class="cke_show_border" style="border: medium solid #c0c0c0;" cellspacing="0" cellpadding="5" bgcolor="#ffffcc">
<tbody>
<tr>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"> </td>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"><strong>Lokal ausführen</strong></td>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"> <strong>Übers Netzwerk ausführen</strong></td>
</tr>
<tr>
<td>Path\Application.exe</td>
<td style="border-left: medium solid #c0c0c0;">%systemroot%\system32\cscript.exe</td>
<td style="border-left: medium solid #c0c0c0;">
<div>\\server\adminme\cscript.exe</div>
</td>
</tr>
<tr>
<td>Authentication</td>
<td style="border-left: medium solid #c0c0c0;">localhost</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Username</td>
<td style="border-left: medium solid #c0c0c0;">administrator</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Password</td>
<td style="border-left: medium solid #c0c0c0;">*************</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Current Encryptfile</td>
<td style="border-left: medium solid #c0c0c0;">admin.spc</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Programm Options</td>
<td style="border-left: medium solid #c0c0c0;">%programfiles%\adminme\runapps.vbs</td>
<td style="border-left: medium solid #c0c0c0;">
<div>\\server\adminme\runapp.vbs</div>
</td>
</tr>
<tr>
<td> </td>
<td style="border-left: medium solid #c0c0c0;"> </td>
<td style="border-left: medium solid #c0c0c0;">cscript.exe sollte sich ebenfalls in diesem Ordner befinden</td>
</tr>
</tbody>
</table>
<strong>2.)</strong> Save Cryptfile -> "..." anklicken und in den adminme Ordner speichern.</div>
<div>Jetzt müsste eigentlich folgendes in dem Feld stehen:</div>
<div><span style="color: dodgerblue;">c:\Programme\adminme\admin.spc </span> (bis XP)</div>
<div><span style="color: dodgerblue;">c:\program files\adminme\admin.spc</span> (ab Vista)</div>
<div><strong>3.)</strong> Mit "Test Cryptfile" sollte es jetzt schon funktionieren.</div>
<div><strong>4.)</strong><strong> Progs_als_Admin.bat</strong> und<strong><strong> runapp</strong></strong><strong>.vbs</strong> erstellen und im Ordner "<span style="color: cornflowerblue;">adminme</span><span style="color: cornflowerblue;">"</span> speichern. (s.u.)</div>
<div><strong>5.)</strong> <strong>Progs_als_Admin.bat</strong> starten und schon hat der Anwender die Möglichkeit ein Programm als mit Administrator-Rechten zu starten.</div>
<div>-----------------------------------------------------------------------------------------</div>
<div>
<div>
<div>
<div><strong><strong>Script-Link: </strong><a href="/../download/wsh/runapp.vbs" target="_blank" rel="noopener noreferrer" data-cke-saved-href="/download/wsh/runapp.vbs"><img src="/../images/stories/windows/thumbs/script.jpg" alt="" style="vertical-align: text-bottom; border: 0px solid; width: 21px; height: 21px;" data-cke-saved-src="/images/stories/windows/thumbs/script.jpg" /></a> runapp.vbs</strong></div>
</div>
</div>
</div>
<div class="VBA_code"><span>Option Explicit</span><br /> <span>Dim </span>txt, frage, app, i<br /> <span>Dim </span>wshell <br /> <span>Dim </span>v(20)<br /> txt = "Zahl eintippen um das Programme zu starten." & vbcrlf & vbcrlf <br /> i=0<br /> <span class="VBA_code_rem">'-----------------------------------------------------</span><br /> <span class="VBA_code_rem">' Hinter " -> den Anwendungs-Name eintippen der angezeigt werden soll</span><br /> <span class="VBA_code_rem">' nach V(i) der DateiPfad (sollten Leerzeichen vorkommen mit "" kapseln</span><br /> <span class="VBA_code_rem">'-----------------------------------------------------</span>
<p><span class="VBA_code_rem">'Diese 2 Befehlzeilen sollten in einer produktiven Umgebeung auskommentiert werden da eine CMD-Shell mit Admin-Rechten gestartet wird</span><br /> txt = txt & i & " -> Command-Shell starten" & vbcrlf <br /> v(i) = "cmd /T:4F /k Title *** %USERNAME%-Rechte ***" <span class="VBA_code_rem">' /T:4F bedeutet Shell ist rot </span></p>
<p><span class="VBA_code_rem">'Hier wird c:\Programme ersetzt mit der Umgebungsvariablen %programfiles%.</span><br /> i+1<br /> txt = txt & i & " -> CDBurnerXP" & vbcrlf <br /> v(i) = "%programfiles%\CDBurnerXP\cdbxpp.exe"<br /> <span class="VBA_code_rem">'------------------------------------------------------</span><br /> i=i+1<br /> txt = txt & i & " -> Firefox" & vbcrlf<br /> v(i) = """%programfiles%\Mozilla Firefox\firefox.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> Foxit ReaderFirefox" & vbcrlf <br /> v(i) = """%programfiles%\Foxit Software\Foxit Reader\Foxit Reader.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> IExplorer" & vbcrlf<br /> v(i) = """%programfiles%\Internet Explorer\iexplore.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> iTunes" & vbcrlf<br /> v(i) = """%programfiles%\iTunes\iTunes.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> Skype" & vbcrlf <br /> v(i) = """%programfiles%\Skype\Phone\Skype.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> Thunderbird" & vbcrlf<br /> v(i) = """%programfiles%\Mozilla Thunderbird\thunderbird.exe"""</p>
<p>i=i+1<br /> txt = txt & i & " -> TotalCommander" & vbcrlf<br /> v(i) = "%programfiles%\totalcmd\TOTALCMD.EXE"</p>
<p>i=i+1<br /> txt = txt & i & " -><span> </span>TrueCrypt" & vbcrlf <br /> v(i) = "%programfiles%\TrueCrypt\TrueCrypt.exe"</p>
<p>i=i+1<br /> txt = txt & i & " -> Winamp" & vbcrlf<br /> v(i) = "%programfiles%\Winamp\winamp.exe"</p>
<p><span class="VBA_code_rem">' i=i+1</span><br /> <span class="VBA_code_rem">' txt = txt & i & " -> ---" & vbcrlf </span><br /> <span class="VBA_code_rem">' v(i) = "" </span></p>
<p>txt = txt & vbcrlf & "Alles andere schließt die Anwendung."<br /> frage = <strong>InputBox</strong>(txt , "Programm mit adminstrator Rechten starten", "1")<br /> <span>If </span>frage <> vbnullstring <span>Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">app = v(frage)</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>Set </span>wshell = <strong>CreateObject</strong>("<span>WScript</span>.shell")</p>
<p class="VBA_code_p" style="margin-left: 10pt;">wshell.run app</p>
<span><span>End </span></span><span>If</span></div>
<div><strong> Programmauswahl- Fenster</strong>
<p> </p>
</div>
<div> <img src="/../images/stories/runaspcadmin_fenster.vbs.jpg" alt="" width="362" height="279" data-cke-saved-src="/images/stories/runaspcadmin_fenster.vbs.jpg" /></div>
<p><strong><strong>Progs_als_Admin</strong>.bat</strong></p>
<div class="VBA_code"><span class="VBA_code_rem">REM Die runaspc.exe lokal mit der BAT starten</span><br /> %ProgramFiles%\adminme\runasspc.exe /cryptfile:"%programfiles%\adminme\adminme.spc" /quiet</div>
<div>bzw.</div>
<div>
<div class="VBA_code"><span class="VBA_code_rem">REM Die runaspc.exe im Neztwerk starten</span><br /> \\server\adminme\runasspc.exe /cryptfile:"\server\adminme\adminme.spc" /quiet</div>
<hr size="2" width="100%" /></div>
<p><span style="text-decoration: underline;"><strong>B.] Erstellen der Routine um ein HTA-Script zu starten:</strong></span></p>
<div> </div>
<div> </div>
<div>
<div>
<table border="0" class="cke_show_border" style="border: medium solid #c0c0c0;" cellspacing="0" cellpadding="5" bgcolor="#ffffcc">
<tbody>
<tr>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"> </td>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"><strong>Lokal ausführen</strong></td>
<td style="border-bottom: medium solid #c0c0c0; border-left: medium solid #c0c0c0;"> <strong>Übers Netzwerk ausführen</strong></td>
</tr>
<tr>
<td>Path\Application.exe</td>
<td style="border-left: medium solid #c0c0c0;">%systemroot%\system32\mshta.exe</td>
<td style="border-left: medium solid #c0c0c0;">
<div>\\server\adminme\mshta.exe</div>
</td>
</tr>
<tr>
<td>Authentication</td>
<td style="border-left: medium solid #c0c0c0;">localhost</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Username</td>
<td style="border-left: medium solid #c0c0c0;">administrator</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Password</td>
<td style="border-left: medium solid #c0c0c0;">*************</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Current Encryptfile</td>
<td style="border-left: medium solid #c0c0c0;">admin.spc</td>
<td style="border-left: medium solid #c0c0c0;"> </td>
</tr>
<tr>
<td>Programm Options</td>
<td style="border-left: medium solid #c0c0c0;">%programfiles%\adminme\runapps.hta</td>
<td style="border-left: medium solid #c0c0c0;">
<div>\\server\adminme\runapp.hta</div>
</td>
</tr>
<tr>
<td> </td>
<td style="border-left: medium solid #c0c0c0;"> </td>
<td style="border-left: medium solid #c0c0c0;">mshta.exe sollte sich ebenfalls in diesem Ordner befinden</td>
</tr>
</tbody>
</table>
</div>
Rest siehe oben.</div>
<div> <strong><strong><strong>Script-Link: </strong><a href="/../download/wsh/runapp.hta" target="_blank" rel="noopener noreferrer" data-cke-saved-href="/download/wsh/runapp.hta"><img src="/../images/stories/windows/thumbs/script.jpg" alt="" style="vertical-align: text-bottom; border: 0px solid; width: 21px; height: 25px;" data-cke-saved-src="/images/stories/windows/thumbs/script.jpg" /></a> runapp.hta</strong></strong></div>
<div class="VBA_code"> <html><br /> <head><br /> <HTA:APPLICATION<br />
<p class="VBA_code_p" style="margin-left: 6pt;">ID="StartApp"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">APPLICATIONNAME="HTAProgramme"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">BORDER="dialog"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">SCROLL="no"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">SINGLEINSTANCE="yes"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">SHOWINTASKBAR="yes"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">MINIMIZEBUTTON="no"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">maximizeButton="no"</p>
><br /> <title>Programme als Administrator starten</title>
<p><style type="text/css"><br /> body {</p>
<p class="VBA_code_p" style="margin-left: 6pt;">bgcolor:"#202060";</p>
<p class="VBA_code_p" style="margin-left: 6pt;">text:"#FFFFFF";</p>
<p class="VBA_code_p" style="margin-left: 6pt;">font-size:12Pt;</p>
<p class="VBA_code_p" style="margin-left: 6pt;">color:#E0C000;</p>
<p class="VBA_code_p" style="margin-left: 6pt;">font-style:bold;</p>
<p class="VBA_code_p" style="margin-left: 6pt;">font-family:Verdana;</p>
<p class="VBA_code_p" style="margin-left: 6pt;">background-color: #006;</p>
}<br /> input {font-size:12pt; color:#202060; font-style:bold; font-family:Verdana}<br /> </style><br /> </head>
<p><SCRIPT LANGUAGE="VBScript"><br /> <span>Dim </span>wsh, fs, progs, iprog</p>
<p><span class="VBA_code_rem">'Wer den Hinweis eines Fehlers gern als Popup hat auf True setzten sonst False</span><br /> <span>Const </span>fPopUp =<span> False</span></p>
<p><br /> <span>Set </span>wsh = <strong>CreateObject</strong>("<span>WScript</span>.Shell")<br /> <span>Set </span>fs = <strong>CreateObject</strong>("Scripting.FileSystemObject")</p>
<p><span>Sub </span>Window_onLoad</p>
<p class="VBA_code_p" style="margin-left: 6pt;">FillArray</p>
<p class="VBA_code_p" style="margin-left: 6pt;">ProgrammList</p>
<span class="VBA_code_rem"> 'Breite, Höhe (ohne Programm-Optionen) + x * Programme</span><br />
<p class="VBA_code_p" style="margin-left: 6pt;">window.resizeTo 350, 250 + iprog * 20 + 30 <span class="VBA_code_rem">'30 für das <br> im 1. Eintrag</span></p>
<span>End </span><span>Sub </span>
<p><span class="VBA_code_rem">'Hier die Programme eintragen welche gestartet werden können/sollen</span><br /> <span>Sub </span>FillArray<br /> <span class="VBA_code_rem">' Übersichtlicher ist es so </span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">iprog = 10 <span class="VBA_code_rem">'Anzahl der Programme welche gestaretet werden können</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Re<span>Dim </span></span>progs(1, iprog)</p>
<span class="VBA_code_rem"> ' Programmpfad : Titel </span><br />
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0,0) = "cmd /T:4F /k Title *** %USERNAME%-Rechte ***" : progs(1, 0) = "Command Shell"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 1) = "%programfiles%\CDBurnerXP\cdbxpp.exe" : progs(1, 1) = "CDBurnerXP"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 2) = """%programfiles%\Mozilla Firefox\firefox.exe""" : progs(1, 2) = "Firefox"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 3) = """%programfiles%\Foxit Software\Foxit Reader\Foxit Reader.exe""" : progs(1, 3) = "Foxit Reader"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 4) = """%programfiles%\Internet Explorer\iexplore.exe""" : progs(1, 4) = "IExplorer"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 5) = """%programfiles%\iTunes\iTunes.exe""" : progs(1, 5) = "iTunes"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 6) = """%programfiles%\Skype\Phone\Skype.exe""" : progs(1, 6) = "Skype"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 7) = """%programfiles%\Mozilla Thunderbird\thunderbird.exe""" : progs(1, 7) = "Thunderbird"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 8) = "%programfiles%\totalcmd\TOTALCMD.EXE" : progs(1, 8) = "TotalCommander"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 9) = "%programfiles%\TrueCrypt\TrueCrypt.exe" : progs(1, 9) = "TrueCrypt"</p>
<p class="VBA_code_p" style="margin-left: 6pt;">progs(0, 10) = "%programfiles%\Winamp\winamp.exe" : progs(1, 10) = "Winamp"</p>
<span>End </span><span>Sub </span>
<p><span>Sub </span>RunSkript</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Dim </span>i, s, sp </p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>For </span>Each </span>objButton<span> In </span>RadioOption</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>If </span>objButton.Checked<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 14pt;">i =objButton.Value</p>
<p class="VBA_code_p" style="margin-left: 10pt;"> sp = <strong>Replace</strong>(progs(0, i), "%programfiles%", wsh.ExpandEnvironmentStrings("%programfiles%")) </p>
<p class="VBA_code_p" style="margin-left: 14pt;">s = sp</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>If </span><strong>Left</strong>(s,1) = """"<span> Then</span> s = <strong>Right</strong>(s, <strong>Len</strong>(s)-1)</p>
<p class="VBA_code_p" style="margin-left: 14pt;"><span>If </span><strong>Right</strong>(s,1) = """"<span> Then</span> s = <strong>Left</strong>(s, <strong>Len</strong>(s)-1)</p>
<span class="VBA_code_rem"> 'Stimmt der angegebene Pfad zu Programm</span><br />
<p class="VBA_code_p" style="margin-left: 10pt;"><span>If </span>fs.fileExists(s)<span> Then</span> </p>
<p class="VBA_code_p" style="margin-left: 18pt;">wsh.run sp, 1 </p>
<p class="VBA_code_p" style="margin-left: 18pt;"><span>If </span>CloseApp.Checked<span> Then</span> Schliessen()</p>
<p class="VBA_code_p" style="margin-left: 14pt;"><span>Else</span> </p>
<p class="VBA_code_p" style="margin-left: 18pt;">s = "Programm-Pfad<br>""" & sp & """<br> wurde nicht gefunden."</p>
<p class="VBA_code_p" style="margin-left: 10pt;">UserInfo s</p>
<p class="VBA_code_p" style="margin-left: 14pt;"><span><span>End </span>If</span></p>
<p class="VBA_code_p" style="margin-left: 14pt;"><span>Exit For</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span><span>End </span>If</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Next</span></p>
<span><span>End </span>Sub</span>
<p><span>Sub </span>UserInfo(s)</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>If </span>fPopUp<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = <strong>Replace</strong>(s, "<br>", vbcrlf)</p>
<p class="VBA_code_p" style="margin-left: 10pt;">wsh.popup s, 5, "Datei fehlt !"</p>
<p class="VBA_code_p" style="margin-left: 10pt;">Schliessen()</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else</span> </p>
<p class="VBA_code_p" style="margin-left: 10pt;">window.resizeTo 350, 220</p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = s & "<br><br><input class=""button"" type=""button"" value="" OK "" name=""EndeHTA2"" onClick=""Schliessen()""><br>"</p>
<p class="VBA_code_p" style="margin-left: 10pt;">ProgramList.InnerHTML = ""</p>
<p class="VBA_code_p" style="margin-left: 10pt;">Info.InnerHTML = s</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>End </span>If</span></p>
<span><span>End </span>Sub</span>
<p><span>Sub </span>ProgrammList</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Dim </span>i</p>
<p class="VBA_code_p" style="margin-left: 6pt;">window.resizeTo 350, 220</p>
<p class="VBA_code_p" style="margin-left: 6pt;">ProgramList.InnerHTML = ""</p>
<p class="VBA_code_p" style="margin-left: 6pt;">s = " Welches Programm starten ?<br/><br/>" & vbcrlf</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>For </span>i = 0 To<span> UBound</span>(progs,2) - 1</p>
<p class="VBA_code_p" style="margin-left: 10pt;"><span>If </span>i = 0<span> Then</span></p>
<p class="VBA_code_p" style="margin-left: 14pt;">s = s & "<br/> <input type=""radio"" name=""RadioOption"" value=""" & i & """ Checked><b> " & progs(1, i) & "</b><br>"</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Else</span></p>
<p class="VBA_code_p" style="margin-left: 10pt;">s = s & "<br/> <input type=""radio"" name=""RadioOption"" value=""" & i & """> " & progs(1, i)</p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span><span>End </span>If</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span>Next</span></p>
<p class="VBA_code_p" style="margin-left: 6pt;">s = s & "<br/><br/> <input id=runbutton class=""button"" type=""button"" value=""Starten"" name=""run_button"" onClick=""RunSkript()"">" & vbcrlf & _</p>
<p class="VBA_code_p" style="margin-left: 22pt;">" <input id=closebutton class=""button"" type=""button"" value=""Beenden"" name=""EndeHTA"" onClick=""Schliessen()"">" & vbcrlf & _</p>
<p class="VBA_code_p" style="margin-left: 22pt;">"<br/><br/> <input type=""checkbox"" name=""CloseApp"" value=""1"" Checked =<span> True</span>> Danach schließen <br/><br/>" </p>
<p class="VBA_code_p" style="margin-left: 6pt;">Info.InnerHTML = s</p>
<span><span>End </span>Sub</span>
<p><span>Sub </span>Schliessen()</p>
<p class="VBA_code_p" style="margin-left: 6pt;">self.close</p>
<span><span>End </span>Sub</span>
<p></SCRIPT></p>
<p><body><br /> <fieldset><Leg<span>End </span>align="Center"></legend></p>
<p class="VBA_code_p" style="margin-left: 6pt;"><span id="ProgramList"> </p>
<p class="VBA_code_p" style="margin-left: 6pt;"></span></p>
<p class="VBA_code_p" style="margin-left: 6pt;"><div id="info" style="margin: 10px; font-size:11pt;"></div></p>
</fieldset><br /> </body></div>
<div> </div>
<div>
<div>
<div><strong> Programmauswahl- Fenster</strong>
<p> </p>
</div>
<div> <img src="/../images/stories/runaspcadmin_fenster.hta.jpg" alt="" width="346" height="466" border="0" data-cke-saved-src="/images/stories/runaspcadmin_fenster.hta.jpg" /></div>
<strong><strong>Progs_als_Admin</strong>.bat</strong><br />
<div>
<div class="VBA_code">%ProgramFiles%\adminme\runasspc.exe /cryptfile:"%programfiles%\adminme\adminme.spc" /quiet</div>
</div>
<div> </div>
<hr size="2" width="100%" /></div>
</div>
Autostart des Task-Managers
Eine nette Info wie stark die CPU genutzt wird kann über den Task-Manager herausbekommen werden.
Soll dies bei jedem Windows-Start erfolgen so kann dies mit einem Registry-Eintrag erfolgen.
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"RunTaskmgr"="%comspec% /c start /min taskmgr.exe"
(mit Firefox rechte Maustaste und "Ziel speichern unter..." anklicken Dateityp auf "alle Dateien ändern"! Danach Endung ".txt noch entfernen")
Die Befehlsfolge (%comspec% /c start /min taskmgr.exe) könnte auch in einer Taskmgr.bat stehen und ins Menü Autostarts gezogen werden.
Autostart des Process-Explorers
Der Process-Explorers ist Teil der Sysinternals. Mit dem Process-Explorer kann ermittelt werden welches Programm durch ein anderes gestartet wurde. Er kann ebenfalls minimiert gestartet werden.
Process-Explorer herungerladen (zip-Datei) und den Inhalt in den Windows/system32 Ordner kopieren.
Es kann aber auch jeder andere Ornder sein. Es muss dann nur der komplette Pfad zum procexp.exe angebeben werden ("Bei Leerzeichen den Pfad kapseln").
So kann er gleich dem Taskmanager gestartet werden.
%comspec% /c start /min procexp.exe
(mit Firefox rechte Maustaste und "Ziel speichern unter..." anklicken Dateityp auf "alle Dateien ändern"! Danach Endung ".txt noch entfernen")
Erklärung der Befehlkette:
%comspec% /c start /min procexp.exe
%comspec% /c Start des Befehlinterpreter (meist cmd.exe) Parameter /c heist sofort nach Programmstart wieder beenden
start /min Ein Programm starten mit Parametern /min bedeutet das Programm minimiert starten.
taskmgr.exe Das eigentliche Programm ;-) Danach würden die Parameter für das Programm stehen
Wenn im Explorer unterhalb des Arbeitsplatzes die Netzwerkumgebung nicht mehr angezeigt wird kann das mit netsh (Komandezeilen Script Programm für das Netzwerk) wieder korrigiert werden.
Einfach folgendes in die Eingabeaufforderung eintippen "netsh winsock reset" Mit Enter ausführen und den Rechner neu starten. Problem müsst jetzt behoben sein.
Allgemein (Gilt für alle BIOSe):
Piep bedeutet kurzer Beep-Top
PIEP bedeutet langer Beep-Top
---------------------------------------------
Piep : Alles OK
---------------------------------------------
PIEP oder Piep (andauernd) : Fehler bei der Stromversorgung.
1 PIEP : DMA Refresch- Fehler (Speicher)
1 PIEP - 1 Piep : Fehler der Hauptplatine und oder den Karten.
1 PIEP - 2 Piep : Videoadapter-Fehler (Jumper Hauptplatine, Karten Einstellung)
AMI BIOS (kurze Pieps)
2: Parity- Fehler
3: Speicherfehler bei den ersten 640 KB.
4: Timer defekt oder Speicherfehler,
5: Timer/CPU Fehler
6: Tastatur-Fehler
7: Virtual Mode Fehler
8: Fehler bei dem Video-Speicher-Test
9: Parity Fehler im ROM- Bios*
10: Fehler beim Zugriff auf CMOS Bausteine
11: Fehler beim externen Coprozessor Piep.
Award BIOS
1 Piep - 2 PIEP
ODER
1 PIEP - 2 Piep : Fehlender Bildschirm oder Graphikkarte
2 Piep : Fehler beim Selbsttest
Phönix BIOS
Das Phönix Bios sendet gleich lange Tonsequenzen in der Folge :
Piep - Pause - Piep - Pause -Piep
1 1 3 :CMOS Fehler
1 1 4 : Bios Prüfsummenfehler
1 2 1 : Timer Fehler
1 2 2 : DMA Controller Kanal 0 Fehler
1 2 3 : DMA Seitenregister Fehler
1 3 1 : Arbeitsspeicher Refresh Fehler 1 3 3 unter 64KB Speicher Problem
1 4 2 : Parität der ersten 64KB 2 1 1 Bis
2 4 4 : Bit 1 bis 15 defekt
3 1 2 : DMA Controller Master Fehler
3 1 3 : Register Interrupt Controller Fehler
3 1 4 : Register Interrupt Controller Fehler
3 2 4 : Tastatur Fehler
3 3 1 : DMA Register Fehler Slave
3 3 4 : Bildschirmspeicher Fehler
3 4 1 : Bildschirm Initialisierungsfehler
3 4 2 : Zeilenrücklauf Störung
4 2 1 : Timer Fehler
4 2 2 : Restart Testfehler
4 2 3 : Gate Testfehler
4 2 4 : unerwarteter Interrupt Protected Mode
4 3 1 : Speichertestfehler oberhalb 64KB
4 3 2 : Timer-Baustein Fehler Kanal
4 3 4 : Fehler der Echtzeit Uhr
4 4 1 : Serielle Schnittstellenfehler
4 4 2 : Parallele Schnittstellenfehler
4 4 3 : Coprocessor Fehler
Problem:
Sobald in die Miniaturansicht des Windows-Explorers umgeschaltet wird stürzt der Explorer ab.
Ein Hinweis in der Problemberichterstattung ist dein Problem mit dem audiodec.ax Codec.
Auch eine Windowsreparatur brachte keine Lösung
Lösungansatz :
Die falschen Infos werden wohl in der Thumbs.db Datei abgelegt. In dieser werden die Miniaturansichten gespeichert.
Einfach diese Datei löschen. Wird automatisch von Windows neu angelegt.
Lösungansatz 2:
Die Registry-Einträge wurden vielleicht durch die Installation von Grafik- und Bildbetrachtungsprogrammen verändert.
Dies hat bei einem anderen Problem abhilfe gebracht.
(mit Firefox rechte Maustaste und "Ziel speichern unter..." anklicken Dateityp auf "alle Dateien ändern"! Danach Endung ".txt noch entfernen")
Die Bildformate sind gruppiert. Mit den Editor können einzelne gelöscht werden.
Lösungansatz 3:
Bildchenvorschaudeaktiveren
regsvr32 /u shmedia.dll"
Ohne das /u kann es wieder aktiviert werden.
Lösungansatz 4:
Je Benutzerkonto
Zwischenspeichern der Miniaturbilder deaktivieren
HKEY_CURRENT_USER\ Software\ Microsoft\ Windows\ CurrentVersion\ Explorer\ Advanced
Erstellen Sie hier einen neuen Wert mit dem Namen "DisableThumbnailCache" als Datentyp REG_DWORD. Setzen Sie den Wert auf:
DisableThumbnailCache" als Datentyp REG_DWORD. Setzen Sie den Wert auf:|
1 |
Zwischenspeichern deaktivieren |
|
0 |
Zwischenspeichern ist aktiv (Standard) |
Die Einstellung können Sie aber auch über die Policieseinstellen:
[für den Anwender]
HKEY_CURRENT_USER\ Software\ Microsoft\ Windows\ CurrentVersion\ Policies\ Explorer
Erstellen Sie hier einen neuen Wert mit dem Namen "NoThumbnailCache" als Datentyp REG_DWORD.
Setzen Sie den Wert auf:
|
1 |
Zwischenspeichern deaktivieren |
|
gelöscht |
Zwischenspeichern ist aktiv (Standard) |