Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

WinScript XP 3 - Help!

Mitglied: Tompazi

Tompazi (Level 1) - Jetzt verbinden

30.07.2007, aktualisiert 31.07.2007, 2270 Aufrufe, 1 Kommentar

Hallo,
Ich hab mir gerade Winscript XP 3 heruntergeladen und ich verstehe es nicht ganz.
Ich will dieses Skript bei dem ich schon vor ein paar Tagen von euch Hilfe bekommen habe (Danke) so umwandeln das es eben in Dialogboxen aufscheint.

@echo off
title USB Stick %date:~-10,2%.%date:~-7,2%.%date:~-4%
IF NOT exist M:\ goto Antwort0
setlocal
set "monat1=%date:~-7,2%"
if "%monat1%"=="01" set "monat=Jänner"
if "%monat1%"=="02" set "monat=Februar"
if "%monat1%"=="03" set "monat=März"
if "%monat1%"=="04" set "monat=April"
if "%monat1%"=="05" set "monat=Mai"
if "%monat1%"=="06" set "monat=Juni"
if "%monat1%"=="07" set "monat=Juli"
if "%monat1%"=="08" set "monat=August"
if "%monat1%"=="09" set "monat=September"
if "%monat1%"=="10" set "monat=Oktober"
if "%monat1%"=="11" set "monat=November"
if "%monat1%"=="12" set "monat=Dezember"
set /p "dataname= Beispiel Ordner Namen verwenden (USB Stick %date:~-10,2% %monat% %date:~-4%) (J/N)?"
if /i "%dataname%"=="J" set "datname=USB Stick %date:~-10,2% %monat% %date:~-4%" GOTO :copy
if /i "%dataname%"=="N" set /p "datname= Geben Sie den einen Ordnernamen ein:"
GOTO :copy
:copy
XCOPY M:\ "D:\%datname%" /I /E
goto Antwort1
:Antwort0
echo Der USB Stick ist nicht korrekt Angesteckt!
echo Beachten Sie, dass der USB Stick Vorne am PC angesteckt sein muss.
echo Sollten Sie alles Richtig befolgt haben und Dies erscheint immer noch
echo kontaktieren Sie Bitte den Produzenten der Batch Datei.
pause
exit
:Antwort1
echo Die Dateien Ihres USB Sticks wurden erfolgreich nach D:\%datname%
echo kopiert.
echo.
set /p "Antwort=Dateien auf dem Stick entfernen (J/N)?"
if /i "%Antwort%"=="J" goto :Loeschen
echo Keine Daten entfernt ...
Goto :open
pause
exit
:Loeschen
rd /s /q M:\
echo Daten wurden entfernt...
echo.
PING 127.0.0.1 -n 6 >nul
echo Der USB Stick kann jetzt ausgesteckt werden.
:open
echo.
set /p "open= Ordner aufmachen? (J/N)"
if /i "%open%"=="J" start D:\"%datname%"
pause
Die erste Box soll so auschauen :

"Beispiel Ordner Namen verwenden (USB Stick %date:~-10,2% %monat% %date:~-4%)?
Ja Nein"

Bei Nein soll man dann zu einer InputBox kommen wo man dann den Ordnernamen eingeben kann.

usw....

Kann mir da jemand erklären wie ich das machen soll?

Danke im voraus
Thomas
Mitglied: miniversum
31.07.2007 um 16:43 Uhr
Ersetz mal das
set /p "dataname= Beispiel Ordner Namen verwenden (USB Stick %date:~-10,2% %monat% %date:~-4%) (J/N)?"
durch das hier:
echo erg ^= MsgBox(wscript.arguments(0), VbYesNo)>jn.vbs
echo If erg ^= 7 Then>>jn.vbs
echo erg ^= "N">>jn.vbs
echo Else>>jn.vbs
echo erg ^= "J">>jn.vbs
echo End If>>jn.vbs
echo WScript.Echo erg>>jn.vbs
for /f "delims=" %%i in ('cscript nologo jn.vbs "Beispiel Ordner Namen verwenden (USB Stick %date:~-10,2% %monat% %date:~-4%)?"') do set "dataname=%%i"

und das
if /i "%dataname%"=="N" set /p "datname= Geben Sie den einen Ordnernamen ein:"
durch
echo WScript.Echo InputBox(wscript.arguments(0))>in.vbs
for /f "delims=" %%i in ('cscript
nologo jn.vbs "Geben Sie den einen Ordnernamen ein:"') do set "datname=%%i"

miniversum
Bitte warten ..
Ähnliche Inhalte
Monitoring
ICINGA HELP ME!!!
gelöst Frage von HighShooterMonitoring4 Kommentare

Hallo leute, ich wollte für meine Servern Icinga verwenden, nun ist die Frage, hat da jemand erfahrungen mit? Bzw ...

Windows 8
Windows 8.1 und Help-Files - reloaded
gelöst Frage von DerWoWussteWindows 81 Kommentar

Moin. Kann bitte jemand freundlicherweise testen, ob er unter 8.1 noch lokal abgelegte .hlp-Dateien öffnen kann? Hier kommt gerade ...

Windows XP
Windows XP SP 3 System Clonen
gelöst Frage von zeroblue2005Windows XP19 Kommentare

Hallo Zusammen, ich muss muss für ein Projekt ein altes Toshiba Tecra a3x Notebook inkl. auf ein Vergleichbares Notebook ...

Windows Server

Ganze Domain Controller mit 3 VM-s (Exchange 2010)auf neue Hardware und Software verschieben - HELP

Frage von falconxxlWindows Server5 Kommentare

Liebe Kollegen ! Ich bin ziemlich neu in EDV Administration und habe ein reisen Auftrag bekommen. Ich biete euch ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 3 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Server
Standortvernetzung zu einem Strato VServer (Windows)
Frage von matzefratze81Windows Server10 Kommentare

Moin, ich komme aus einem Enterprise-Umfeld und habe den Fehler gemacht, dass ich mich auf ein kleines Unternehmen eingelassen ...

Grafikkarten & Monitore
4k EIZO Monitor, Fernseher und Splitter
Frage von LerxxeyGrafikkarten & Monitore9 Kommentare

Hallo Zusammen, vielleicht könnt ihr mir bei einem Problem helfen wo ich einfach nicht mehr weiterkomme Und zwar haben ...

TK-Netze & Geräte
Fax im Betrieb
Frage von gansa28TK-Netze & Geräte6 Kommentare

Hallo zusammen, Endlich wurden meine Gebete Erhört und der Rechner meines Bekannten dem ich etwas unter die Arme greife, ...

Humor (lol)
Nerd Zeitschrift gesucht
Frage von 2SeitenHumor (lol)6 Kommentare

Hey Zusammen, Ich suche eine Zeitschrift bei der es ums technische Basteln geht. Pc zusammenschrauben, Arduino Projekte, Server Tipps ...