Signatur über Exchange verwalten

net use x: \\Server\mailsignatur\%1
x:
echo %Username% >n:\log\name.ini
x:\BCHANGE.EXE n:\log\name.ini n:\log\name.txt "2e" "20" /b  
del x:\tm*.* /q
if not exist n:\log\name.txt copy n:\log\name.ini n:\log\name.txt
copy /b x:\01r.part + n:\log\name.txt + x:\02r.part x:\%username%.rtf
copy /b x:\01h.part + n:\log\name.txt + x:\02h.part x:\%username%.htm
copy /b x:\01t.part + n:\log\name.txt + x:\02t.part x:\%username%.txt
del n:\log\name.* /Q
c:
cd %userprofile%
if not exist anwendungsdaten\Microsoft\Signatures>nul md Anwendungsdaten\Microsoft\Signatures
cd Anwendungsdaten\Microsoft\Signatures
if not exist sfv.rtf>nul copy x:\%username%.rtf c:
if not exist sfv.htm>nul copy x:\%username%.htm c:
if not exist sfv.txt>nul copy x:\%username%.txt c:
ren %username%.* signatur.*
net use x: /de

:Office11
	if existkey( "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0" ) <>"0"  
		? "Office11 nicht gefunden"  
		goto end
	
		? "Ihre Outlook Signatur wird eingetragen:  "  
	if existkey( "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Signatures" ) <> "0"  
		writevalue( "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Signatures" , "NewSignature" , "dieSignatur" , "REG_SZ" )  
		writevalue( "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Signatures" , "ReplySignature" , "dieSignatur" , "REG_SZ" )  
		writevalue( "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Exchange_2003\9375CFF0413111d3B88A00104B2A6676\00000001" , "New Signature" , "xxxxxxxx" , "REG_BINARY")  
		writevalue( "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Exchange_2003\9375CFF0413111d3B88A00104B2A6676\00000001" , "Reply-Forward Signature" , "xxxxxxx" , "REG_BINARY")  
	endif