@echo off
chpc 1252
title SMMC FQDN Vervollst„ndigung

:start
cls
COLOR 0f
echo   ***************************************************************************
echo  *****************************************************************************
echo *****                                                                     *****
echo *****                        SCCM FQDN vervollst„ndigung                  *****
echo *****                                                                     *****
echo  *****************************************************************************
echo   ***************************************************************************
echo.
echo.
echo.
Echo Return f�r Eingabe.
pause
cls

:: Set variable for InputBox:
set myMessage=Bitte ClientID / IP eingeben.
set myTitle=Bitte ClientID / IP eingeben
:: call :subInputBox


:: Gross Kleinschreibung Berichtigung
set RemoteHost=%RemoteHost:a=A%
set RemoteHost=%RemoteHost:i=I%
set RemoteHost=%RemoteHost:n=N%

::AbfrageIP
IF "%namez:~,1%" == "A" goto norm
echo.
echo.
set FQDN=%RemoteHost%
echo ClientID %FQDN%
goto :expl

::Abfrage ab nur ClientID
:norm
IF "%RemoteHost:~,1%" == "A" GOTO bmmf

:: Wenn fehlend ClientID, ergänzen
set /p stand=1 Ingolstadt oder 2 Neckasulm:
IF "%stand%"=="1" (set standz=IN)
IF "%stand%"=="2" (set standz=NE)
set /p client=1 Laptop  2 Festrechner 3 HILs:
IF "%client%"=="1" (set clientz=L)
IF "%client%"=="2" (set clientz=C)
IF "%client%"=="3" (set clientz=W)
set FQDN=AUDI%standz%%clientz%%RemoteHost%.%standz%.audi.vwg
goto expl

:: Restlichen FQDN NE oder IN auswerten
:bmmf
set namez=%RemoteHost:~4,1%
IF "%namez:~,1%" == "N" (set standz=NE)
IF "%namez:~,1%" == "I" (set standz=IN)
set FQDN=%RemoteHost%.%standz%.audi.vwg
goto expl

:: PING test
:expl
echo.
echo.
echo Ping Test
ping %FQDN% -n 1 | find "TTL"
IF NOT %ERRORLEVEL%==0 echo ***** ACHTUNG: Rechner konnte nicht angepingt werden 
IF NOT %ERRORLEVEL%==0 pause
IF NOT %ERRORLEVEL%==0 goto start

:: Ausf�hrung
echo.
echo.
echo.
echo AUSF�HRUNG auf %FQDN%
echo.
\\audi.vwg\NETLOGON\ARS\CmRcViewer.exe %FQDN% \\SCCM 
if %ERRORLEVEL% == 0 goto ende
goto errfehler

:errfehler
echo   ***************************************************************************
echo  *****************************************************************************
echo *****                                                                     *****
echo *****                        Ausf�hrung FEHLER ...                        *****
echo *****                                                                     *****
echo  *****************************************************************************
echo   ***************************************************************************
color 0c
goto farbegesetzt

:ende
echo   ***************************************************************************
echo  *****************************************************************************
echo *****                                                                     *****
echo *****                        Ausf�hrung erfolgreich ...                  *****
echo *****                                                                     *****
echo  *****************************************************************************
echo   ***************************************************************************
color 02
goto farbegesetzt

:farbegesetzt
echo.
echo.
Pause
goto start

:: Start subroutine subInputBox
:subInputBox
set VBS="%Temp%\vbsInputBox.vbs"
set CMD="%Temp%\cmdVar.bat"
>> %VBS% echo Option Explicit 
>> %VBS% echo Dim strText  
>> %VBS% echo Dim objShell : Set objShell = CreateObject("Wscript.Shell")  
>> %VBS% echo Dim objFSO   : Set objFSO = CreateObject("Scripting.FileSystemObject") 
>> %VBS% echo Dim objFile  : Set objFile = objFSO.CreateTextFile(%CMD%) 
:: Pass variable from batch to VBScript
>> %VBS% echo strText = InputBox("%myMessage%", "%myTitle%")
>> %VBS% echo if strText = vbNullString then 
:: Create batch file
>> %VBS% echo objFile.WriteLine "@echo off"
>> %VBS% echo objFile.WriteLine "set flag=false" 
>> %VBS% echo else 
>> %VBS% echo objFile.WriteLine "@echo off"
:: Set variable in batch file
>> %VBS% echo objFile.WriteLine "set RemoteHost=" ^& strText  
>> %VBS% echo end if 
>> %VBS% echo objFile.Close  
cscript %VBS% > NUL
call %CMD% > NUL
del %CMD%
del %VBS%
goto :EOF
:: End subroutine subInputBox