Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 0 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 0 Invité :: 1 Moteur de recherche

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[bat] Afficher le jour de la semaine sous Vista et windows 7

Voir le sujet précédent Voir le sujet suivant Aller en bas

[bat] Afficher le jour de la semaine sous Vista et windows 7

Message par Sachadee le Sam 07 Sep 2013, 20:44

Voici 2 astuces pour récuperer le jour de la semaine
en bat pur

1 :



Code:
@echo off&cls
::SachaDee 2015

@echo off&cls
for /f "tokens=1-4 delims=/ " %%i in ('echo.^|command /C date ^|find /i "current"') do "set dds=%%l"
echo Aujourd'hui c'est : %$Jour%

set dds=%dds:mon=Lundi%
set dds=%dds:tue=Mardi%
set dds=%dds:wed=Mercredi%
set dds=%dds:thu=Jeudi%
set dds=%dds:fri=Vendredi%
set dds=%dds:Sat=Samedi%
set dds=%dds:Sun=Dimache%

echo Aujourd'hui c'est : %dds%
pause




2:



Code:
@echo off&cls
for /f "skip=1 tokens=1" %%a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "."') do set /a dds=%%a +1
for /f "tokens=%dds%" %%a in ("Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi") do set jour=%%a
echo Aujourd'hui c'est : %jour%
pause


Dernière édition par Sachadee le Sam 24 Jan 2015, 12:23, édité 6 fois

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7

Message par Invité le Ven 13 Sep 2013, 08:44

Hellow !
Génial, une technique à la Sacha ^^ ! (Et oui, je suis pas mort xD)
Dylan.

Invité
Invité


Revenir en haut Aller en bas

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7

Message par Hackoo le Dim 16 Mar 2014, 10:37

Salut Sacha et Merci pour l'astuce
Je veux transformer ton code avec un vbscript mais j'ai un petit problème  Rolling Eyes 
Code:
Option Explicit
Function Executer(StrCmd,Console)
 Dim ws,MyCmd,Resultat
 Set ws = CreateObject("wscript.Shell")
'The value 0 to hide the console of MS-DOS
 If Console = 0 Then
 MyCmd = "CMD /C " & StrCmd & " "
 Resultat = ws.run(MyCmd,Console,True)
 End If
'The value 1 to show the console MS-DOS
 If Console = 1 Then
 MyCmd = "CMD /K " & StrCmd & " "
 Resultat = ws.run(MyCmd,Console,True)
 End If
 Executer = Resultat
End Function
'***********************************************************Some Examples*******************************************************************
'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for Rar in command line & cd %programfiles%\winrar & cmd /k Rar /?",1)'showing the console
'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for FCIV in command line & cd %programfiles%\FCIV & cmd /k FCIV.exe /?",1)'showing the console
'Call Executer("mode con cols=90 lines=15 & Color 0A & Title Ping sur www.visualbasicscript.com by Hackoo & Ping www.visualbasicscript.com",1)'showing the console
'Call Executer("FindStr /? > HelpFindStrTmp.txt & cmd /U /C Type HelpFindStrTmp.txt > HelpFindStr.txt & start HelpFindStr.txt",0) 'console in hidden mode
'Call Executer("mode con cols=80 lines=50 & Color 9B & Title Hackoo & netstat -a",1) 'showing the console
'Call Executer("mode con cols=80 lines=30 & Color 9B & Title Tracert to www.visualbasicscript.com by Hackoo & Tracert www.visualbasicscript.com",1)'showing the console
'***********************************************************Some Examples*******************************************************************
'Call Executer("cd %programfiles%\Microsoft Dynamics CRM\Client\ConfigWizard & cmd /k Microsoft.CRM.Application.Outlook.ConfigWizard.exe /Q /i %TEMP%\config_client.xml /xa",1)
'Call Executer("cd %programfiles%\DVD Maker & DVDMaker.exe",1)
'Call Executer("cd %programfiles%\comodo\comodo internet security & virtkiosk.exe",0)
Dim MaCmd
MaCmd = "@echo off & for /f ""skip=1 tokens=1"" %a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "".""') do set /a dds=%a +1 & for /f ""tokens=%dds%"" %a in (""Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi"") do set jour=%a & echo Aujourd'hui c'est le : %jour% & pause"
msgbox MaCmd
Call Executer(MaCmd,1)
Merci de me corriger  Wink

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Re: [bat] Afficher le jour de la semaine sous Vista et windows 7

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum