Desktopsymbole ausblenden bzw. anzeigen

@echo off & setlocal

if exist "%APPDATA%\portSIcon.ini" (if not exist dsklocked (  
		for /f "usebackq delims=" %%i in (`dir /a:-d /b "%ALLUSERSPROFILE%\portDesktop"`) do move /y "%ALLUSERSPROFILE%\portDesktop\%%i" "%ALLUSERSPROFILE%\Desktop"  
		for /f "usebackq delims=" %%i in (`dir /a:-d /b "%USERPROFILE%\portDesktop"`) do move /y "%USERPROFILE%\portDesktop\%%i" "%USERPROFILE%\Desktop"  
		if not exist "%ALLUSERSPROFILE%\portDesktop\*.*" rmdir /q "%ALLUSERSPROFILE%\portDesktop"  
		if not exist "%USERPROFILE%\portDesktop\*.*" rmdir /q "%USERPROFILE%\portDesktop"  
		RestoreIcons.vbs
		del "%APPDATA%\portSIcon.ini" /f /q >nul  
		goto :eof
	)
)
if not exist dsklocked (echo 1>dsktp) else del dsktp /f /q >nul
if not exist dsklocked (if exist dsktp (SaveIcons.vbs & echo 1>dsklocked &&  echo. & echo. & echo. & echo          Screen is locked & ping localhost -n 3 >nul)) else echo. & echo. & echo. & echo          now Screen is locked & ping localhost -n 3 >nul && goto :eof)

if exist dsktp (if not exist "%APPDATA%\portSIcon.ini" goto :eof)  
mkdir "%ALLUSERSPROFILE%\portDesktop" 2>nul  
mkdir "%USERPROFILE%\portDesktop" 2>nul  
for /f "usebackq delims=" %%i in (`dir /a:-d /b "%ALLUSERSPROFILE%\Desktop"`) do move /y "%ALLUSERSPROFILE%\Desktop\%%i" "%ALLUSERSPROFILE%\portDesktop"  
for /f "usebackq delims=" %%i in (`dir /a:-d /b "%USERPROFILE%\Desktop"`) do move /y "%USERPROFILE%\Desktop\%%i" "%USERPROFILE%\portDesktop"  

'==========================================================================  
'  
' VBScript Source File   
'  
' NAME: RestDemo.VBS  
'  
' AUTHOR: Thorsten Eggeling  
' DATE  : 02.2001  
'  
' COMMENT: Rücksichern der Desktop-Icon-Positionen  
'  
' nötige Anpassungen: IniFileName, [Resolution]  
'                       
'==========================================================================  
'IniFileName=Mid(WScript.ScriptFullName, 1, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) & "SRIcons.ini"  
 
Set mySIcon = CreateObject("pcwSIcon.pcwSIcon")  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshSysEnv = WshShell.Environment("Process")  
appDataPath = WshSysEnv("APPDATA")   

'MsgBox("Layout wiederherstellen.")  

With mySIcon
'.About  
.IniFileName=appDataPath+"\portSIcon.ini"  
'bei Bedarf läßt sich hier ein eigener Layout-Name festlegen  
.Resolution="myDesktop"  
.Restore
End With

'==========================================================================  
'  
' VBScript Source File   
'  
' NAME: SaveDemo.VBS  
'  
' AUTHOR: Thorsten Eggeling  
' DATE  : 02.2001  
'  
' COMMENT: Sichern der Desktop-Icon-Positionen  
'  
' nötige Anpassungen: IniFileName, [Resolution]  
'                       
'==========================================================================  
'IniFileName=Mid(WScript.ScriptFullName, 1, InStr(WScript.ScriptFullName, WScript.ScriptName)-1) & "SRIcons.INI"  

Set mySIcon = CreateObject("pcwSIcon.pcwSIcon")  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshSysEnv = WshShell.Environment("Process")  
appDataPath = WshSysEnv("APPDATA")