Ligne de commande non fonctionnelle en VB.NETRésolu

Question

Bonjour,
je voudrais faire en sorte que le PC de l'utilisateur de mon logiciel redémarre tout seul une fois en mode PE Windows ( en mode réparation ) j'ai donc créer un .bat que mon logiciel lance, sauf que si je le lance manuellement mon PC redémarre en PE comme voulu, mais si je le lance à partir de mon soft ça ne fonctionne pas, reagentc.exe est introuvable.
Voici mon code d'appel :
              
Dim CreationRestartRepairMode As New StreamWriter("C:\RestartReparMode.bat")
                CreationRestartRepairMode.WriteLine("@echo off")
                CreationRestartRepairMode.WriteLine("reagentc /boottore")
                CreationRestartRepairMode.WriteLine("shutdown /r")
                CreationRestartRepairMode.Close()
                System.Diagnostics.Process.Start("C:\RestartReparMode.bat")
Merci de votre aide

Utilisateur anonyme · Accepted Answer

Sujet résolu ! :) Il fallait déboguer le programme en mode "Any CPU" pour ce faire :

Dans visual Studio, ouvrir votre projet visual studio --> Propriétés --> Compiler --> Option avancé de compilation -->  Unité central cible --> "Any CPU"

Merci de votre aide !

ehjoe · Answer

Bonjour,

Microsoft dit que c'est seulement pour Windows7, est-ce ton cas ? Car sinon, pas exemple sous Vista, ça ne fait que redémarrer (j'ai testé).

http://technet.microsoft.com/fr-fr/library/dd799242(v=ws.10).aspx

Qui te dit qu'il y a un exe nommé "reagentc.exe" ?
Il me semble (sous réserve) que ce n'est ps un exe mais une commande du noyau système...

Déjà, est-ce que tu retrouves ton bat et ce qu'il faut dedans à l'endroit pévu, si tu sors avant de le lancer et vas voir manuellement ?

Nota bene : il peut être bon ensuite de ne pas le laisser ce Bat, à supprimer en fermeture de logiciel...

Tente ceci et dis...

Sub lance()
 Dim p As New StreamWriter("C:\RestartReparMode.bat")
 p.WriteLine("@echo off")
 p.WriteLine("reagentc /boottore")
 p.WriteLine("shutdown /r")
 p.Close()
 Try
  Process.Start("C:\RestartReparMode.bat")
  Catch ex As Exception
   MsgBox("Logiciel introuvable ", vbExclamation, 
My.Application.Info.ProductName)
 End Try
 System.Threading.Thread.Sleep(500)
 My.Application.DoEvents()
 Kill ""C:\RestartReparMode.bat""
 System.Threading.Thread.Sleep(500)
 End
End Sub


Cordialement, Joe.

ehjoe · Answer

Correction erreur code

Annuler ça :

Kill ""C:\RestartReparMode.bat""

Remplacer par :

Kill "C:\RestartReparMode.bat"

Joe.

Utilisateur anonyme · Answer

Salut Joe,
ta technique de marche pas, toujours la même erreur. ( J'ai mis après le shutdown un "pause" pour voir l'erreur )

ehjoe · Answer

Ah... suite...

Ah, a contrario de ce qu'il me semblait avoir lu, il apparaîtrait que ce soit bien un "exe"!

Faire une recherche depuis C sur cet exe avec l'explorateur, et à défaut :

Il faut en trouver un (si possible depuis les sources Microsoft) et le mettre avec ton bat, déjà pour voir...

Mais... la question relève aussi d'un forum "Windows x", car c'est un problème de commande...

Cordialement, Joe.

Utilisateur anonyme · Answer

Je ne pense pas que sa soit un problème de commande car si je lance manuellement le .bat ça marche

Utilisateur anonyme · Answer

[img]http://www.play-files.net/images/1334489047-Recherche.PNG/img
[img]http://www.play-files.net/images/1334489051-System32.PNG/img

ehjoe · Answer

Et si tu fais ça déjà, ça donne quoi ?


' METTRE LA BONNE ADRESSE
Try
  Process.Start("C:\ReAgent.exe")
  Catch ex As Exception
   MsgBox("Echec ", vbExclamation, 
My.Application.Info.ProductName)
End Try
'
' ----- ET -----
'
Try
  Process.Start("C:\ReAgent.exe", "paramètres")
  Catch ex As Exception
   MsgBox("Echec ", vbExclamation, 
My.Application.Info.ProductName)
End Try


Ça donne quoi en te passant du BAT ?

Cordialement, Joe.

ehjoe · Answer

Heu, remplacer

ReAgent

Par

ReAgentc

Utilisateur anonyme · Answer

Salut,
rien ne marche 
A la place de paramètre j'ai mis ReAgentc /boottore

ehjoe · Answer

Nouveau jour,

Je crois qu'il faut seulement mettre le paramètre :


Try
  Process.Start("C:\ReAgentc.exe", "boottore")
  ' OU ???
  Process.Start("C:\ReAgentc.exe", boottore)
  Catch ex As Exception
   MsgBox("Echec ", vbExclamation, 
My.Application.Info.ProductName)
End Try


Mais tu n'as même pas dit ce que ça fait quand tu écris :

Try
  Process.Start("C:\ReAgentc.exe")
  Catch ex As Exception
   MsgBox("Echec ", vbExclamation, 
My.Application.Info.ProductName)
End Try

Cordialement, Joe.

Utilisateur anonyme · Answer

Salut,
lorsque je fais :

Try
            Process.Start("C:\Windows\System32\ReAgentc.exe", "/boottore")
            ' OU ???
        Catch ex As Exception
            MsgBox("Echec ", vbExclamation,
         My.Application.Info.ProductName)
        End Try

Résultat : Reagentc introuvable...
et lorsque je fais :
        Try
            Process.Start("C:\Windows\System32\ReAgentc.exe")
        Catch ex As Exception
            MsgBox("Echec ", vbExclamation,
            My.Application.Info.ProductName)
        End Try

Ligne de commande erronée

ehjoe · Answer

Suite...

Tente l'argument sans le slash, faut faire des essais divers...

Alors je ne sais pas, vois l'aide à propos de la commande "process.start" car a priori on doit avoir une documentation, aussi bien sur l'exe et ses paramètres que sur process.start, il doit sans doute y avoir une solution, mais je ne peut pas tester car j'ai Vista aui semblerait ne pas répondre de la même façon...

Cordialement, Joe.

Utilisateur anonyme · Answer

Re,
quand j'ouvre cmd.exe manuellement et que je fais         Dim RedémarragePE As New Process
reagentc /boottore >NUL

Seulement, lorsque je rentre le code suivant dans mon bouton, et bien la cmd.exe se lance mais la commande ne s'écrit pas et ne s&#8217;exécute pas. ( alors qu'avec une autre commande et je crois que j'ai trouvé la raison pour laquelle sa ne fonctionne pas.

        Dim RedémarragePE As New Process
        With RedémarragePE.StartInfo
            .FileName = "cmd.exe"
            .Arguments = "reagentc /boottore >NUL"
        End With
        RedémarragePE.Start()

Voici la raison pourquoi je pense que sa ne marche pas :


Source : http://technet.microsoft.com/fr-fr/library/dd799242%28v=ws.10%29.aspx

J&#8217;interprète le "En ligne uniquement" comme "Doit être tapé manuellement par l'utilisateur.
Je vais aller sur les forums du MSDN et demander.

ucfoutu · Answer

Bonjour,
1) Ne serait-ce pas tout simplement une question de permissions ?
Lorsque tout marche, depuis la ligne de commande, en quel mode es-tu ? 
Normal ? ou en tant qu'administrateur ?

2) as-tu essayé avec Shell directement (au lieu de Procces.start) ? Et en lançant ton appli en tant qu'administrateur ? 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

Salut ucfoutu
1) Je lance ma cmd en "normale"
2)Oui j'ai essayé shell("c:\monfichier.bat") et en lançant le programme en mode administrateur mais ça ne marche pas.

ucfoutu · Answer

Non ! pas ainsi !
Tu disais plus haut que lorsque lancé en ligne de commande, cela marchait.
Bien
1) Qu'y écrivais-tu exactement ? 
C'est cela même que tu devrais tenter avec Shell.
2) j'insiste à propos du mode d'exécution (en tant qu'administrateur ou non ?) 




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

Non je lançais normalement j'écrivais ceci --> reagentc /boottore >NUL
Peux tu m'expliquer comment tu veux que je l'utilise le shell car je ne vois pas.
Merci

ucfoutu · Answer

Où exactement écrivais-tu ceci 
reagentc /boottore >NUL 
Dans MSDOS ?
ou
Dans la ligne de commande de Windows (démarrer >>> exécuter) ?
car pas exactement pareil !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ehjoe · Answer

Code adapté windows 32 et >


Public Class Form1
  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal Handle As Int32, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Int32) As Int32

  Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim r As Int32
    r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
  End Sub
End Class


Paramètre :

r = ShellExecute(0, "open", "http://www.microsoft.com", 0
, 0, 1)

Utilisateur anonyme · Answer

@ucfoutu
J'écrivais ça dans la ligne de commande windows ( C:\Windows\System32\cmd.exe )

ucfoutu · Answer

J'écrivais ça dans la ligne de commande windows ( C:\Windows\System32\cmd.exe )
C'est bien ce que je craignais !
Cette ligne ne fait rien d'autre que te conduire au pseudo Dos !
et c'est donc dans le pseudo dos et non en ligne de commande qu'a été accepté et exécuté :
reagentc /boottore >NUL 
Pas en ligne de commande !
Et le Shell ou Proccessstart n'exécuteront pas directement de qui ne serait pas exécutable en ligne de commande !
Ne pas confondre double-pattes et patachon 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bon...
Mon petit doigt me dit que ton problème est celui de la redirection.

Ce serait dans ce cas une idée que de t'inspirer de cette source.
Tapez le texte de l'url ici.
Elle est écrite pour VB6 mais facilement compréhensible.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

@EhJoe
Code essayé :
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
 ByVal Handle As Int32, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Int32) As Int32
        Dim r As Int32
        r = ShellExecute(0, "open", "C:	est.bat", 0, 0, 1)
Résultat : REAGENTC.EXE introuvable erreur 2 ...

@ucfoutu
J'ai essayé :
Dim myProcess As New Process()
myProcess.StartInfo.FileName = "cmd.exe" 'l'application
myProcess.StartInfo.Arguments = "reagentc /boottore >NUL" 'les paramètres passés à l'application
'myProcess.StartInfo.CreateNoWindow = True
'myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
myProcess.Start() 'lance le process
myProcess.WaitForExit() 'attend qu'il soit terminé avant d'aller plus loin
myProcess.Close() 'ferme le process
Inspiré de ce forum : http://social.msdn.microsoft.com/Forums/fr/vbasicfr/thread/11a70dfb-eb33-4559-8127-de639032ba25
Résultat : La fenêtre lance mais le code n'est pas tapé.
Car je ne vois pas quel fonction correspond a MyDOS en vb.net

ucfoutu · Answer

Je voudrais bien pouvoir t'aider, mais je ne comprends pas le sens de ce
>NUL
qui parait être une redirection, mais vers quoi, alors ?
Pourrais-tu exposer clairement le sens de toute ta syntaxe (celle dont du dis qu'elle marche depuis Dos) à savoir :
reagentc /boottore >NUL

 ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ehjoe · Answer

Et ça:


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
 ByVal Handle As Int32, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Int32) As Int32

Dim r As Int32
r = ShellExecute(0, "open", "reagentc.exe", "CHEMIN ... reagentc /boottore >NUL", 0, 1)


Et toutes les variantes ???

J

ehjoe · Answer

Le contraire, le CHEMIN à reagentc.exe

Utilisateur anonyme · Answer

@EhJoe
J'ai essayé Dim r As Int32
        r = ShellExecute(0, "open", "reagentc.exe", "C:\Windows\System32, reagentc /boottore >NUL", 0, 1) et toujours la même erreur : REAGENTC.EXE introuvable...

@ucfoutu
Je peux très bien marquer aussi reagentc /boottore ça marche aussi.

@Tous les deux 
En cherchant des informations, j'ai trouvé que cette fonction à été utilisée dans un autre logiciel bien qu'a la limite de la légalité selon son utilisation, j'ai essayé et figurez vous que ça marche ! 
http://forums.mydigitallife.info/threads/17938-GUIDE-How-to-really-run-Windows-7-forever-without-applying-any-cracks/page3?p=259932#post259932

Pour faire simple : enregistrez le code suivant au format .bat

@echo off
REM --------------------------------------------------------
REM This batch file is designed to disable notifications and
REM create a scheduled task that will run every 30 days to
REM Rearm and reboot the system. 
REM This file creates another batch file "reset.bat" that
REM needs to be run from the Recovery Environment.
REM --------------------------------------------------------
echo+
echo The program will prepare the computer for booting into Windows Recovery Mode
echo Once in Recovery Mode, do the following steps
echo+
echo 1. Select your keyboard language
echo 2. Enter your logon info
echo 3. Open Command Prompt
echo 4. Type C:reset and press Enter
echo+
choice /M "Do you want to continue " 
IF ERRORLEVEL 2 GOTO:eof

REM -------------Checks for the Windows Version-------------

REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF ERRORLEVEL 1 echo Supports Windows 7 and Server 2008 R2 only & goto end

REM --------------------------------------------------------

REM ---------------Disables all Notifications---------------

REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f >NUL

REM --------------------------------------------------------

REM ----------Sets the key for the Current Edition----------

echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") >key.vbs
echo Set keys = CreateObject ("Scripting.Dictionary") >>key.vbs
echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" >>key.vbs
echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" >>key.vbs
echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" >>key.vbs
echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" >>key.vbs
echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" >>key.vbs
echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" >>key.vbs
echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" >>key.vbs
echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" >>key.vbs
echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" >>key.vbs
echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" >>key.vbs
echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" >>key.vbs
echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" >>key.vbs
echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" >>key.vbs
echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" >>key.vbs
echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" >>key.vbs
echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" >>key.vbs
echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" >>key.vbs
echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" >>key.vbs
echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" >>key.vbs
echo keys.Add "ServerHomePremium",              "4BWDV-9MKGX-V9QJ4-YWFWR-P6974" >>key.vbs
echo keys.Add "ServerHomeStandard",             "MCQYD-2TJYQ-JP7KR-7GYYF-YGPXQ" >>key.vbs
echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" >>key.vbs
echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" >>key.vbs
echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" >>key.vbs
echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" >>key.vbs
echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" >>key.vbs
echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" >>key.vbs
echo keys.Add "ServerSolution",                 "Y7GVM-YFQQW-HV8HW-GRW6D-YJ84M" >>key.vbs
echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" >>key.vbs
echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" >>key.vbs
echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" >>key.vbs
echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" >>key.vbs
echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" >>key.vbs
echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" >>key.vbs
echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" >>key.vbs
echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" >>key.vbs
echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" >>key.vbs
echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" >>key.vbs
echo if keys.Exists(edition) then >>key.vbs
echo WScript.Echo keys.Item(edition) >>key.vbs
echo End If >>key.vbs
FOR /F %%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%A 
del key.vbs

REM --------------------------------------------------------

REM -------------Creates Reset.bat---------------

for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A

REM --------------Get the OS Drive Letter-------------------
SET file=%sd%\reset.bat
echo @echo off>%file%
echo for /f "tokens=2 delims==" %%%%A IN ('"bcdedit|find "osdevice""') do set dl=%%%%A>>%file%
REM --------------------------------------------------------

REM -------------------Deletes WPA Key----------------------

echo reg load HKLM\MY_SYSTEM "%%dl%%\Windows\System32\config\system"^>NUL >>%file%
echo reg delete HKLM\MY_SYSTEM\WPA /f^>NUL >>%file%
echo reg unload HKLM\MY_SYSTEM^>NUL>>%file%

REM --------------------------------------------------------

REM -----------------Creates installkey.bat-----------------
echo echo del "%sd%\reset.bat" ^>%%dl%%\installkey.bat >>%file%
echo echo del "C:\key.vbs" ^>^>%%dl%%\installkey.bat >>%file%
echo echo cscript /b slmgr.vbs /ipk %PIDKEY%^>^>%%dl%%\installkey.bat >>%file%
echo echo slmgr.vbs /dli^>^>%%dl%%\installkey.bat>>%file%
echo echo del "C:\installkey.bat"^>^>%%dl%%\installkey.bat>>%file%

REM --------------------------------------------------------

REM -------------------Creates key.vbs----------------------

echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^>%%dl%%\key.vbs >>%file%

REM --------------------------------------------------------

REM ----------------Adds InstallKey to RunOnce--------------

echo reg load HKLM\MY_SOFTWARE "%%dl%%\Windows\System32\config\software" ^>NUL >>%file% 
echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\key.vbs ^>NUL >>%file%
echo reg unload HKLM\MY_SOFTWARE >>%file%
echo wpeutil reboot >>%file%

REM --------------------------------------------------------

REM --------------------------------------------------------

REM ----------RE start automatically on next reboot---------

reagentc /boottore >NUL

REM --------------------------------------------------------

REM ---------Creates a Task to Run rearm and reboot---------

schtasks /create /tn "Rearm" /tr "'C:\Windows\system32\cmd.exe' /c cscript.exe /b C:\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >NUL
IF ERRORLEVEL 1 cls & echo Run this batch file as Administrator & GOTO end

REM --------------------------------------------------------

REM -------------Creates removeTask.bat---------------------

SET file="%~dp0removeTask.bat"
echo @echo off >%file%

REM -------------Enables all Notifications------------------

echo REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f ^>NUL >>%file%

REM --------------------------------------------------------

REM -----------------Deletes reset.bat----------------------

echo SET file=%sd%\reset.bat >>%file%
echo IF EXIST %%file%% ( attrib -h %%file%% >>%file%
echo del %%file%% >NUL ) >>%file%

REM --------------------------------------------------------

REM ---------------Deletes the Rearm Task-------------------

echo schtasks /delete /tn "Rearm" /f >>%file%

REM --------------------------------------------------------

echo pause >>%file%
echo schtasks /query ^| FINDSTR /I "Rearm" >>%file%
echo IF ERRORLEVEL 1 del "%%~0" >>%file%

REM --------------------------------------------------------

shutdown /r /t 0
exit
:end
pause

Utilisateur anonyme · Answer

Les mais j'ai du nouveau ! 
Sur les systèmes 32 Bits mon programme marche nickel !
Reste à savoir pourquoi cette erreur de REAGENTC.EXE introuvable sur les systèmes 64 Bit !

ehjoe · Answer

Bonjour,

Ben moi, tout au début je l'ai lancé, et ça ne marchait pas en 32 bits (Vista), il m'a fait un Reset en bonne et due forme et c'est tout.

Cordialement, Joe.

ucfoutu · Answer

Ce n'est à mon avis pas une question de nombre de bits de la version, mais une question de permissions selon la version. *
Essaye en désactivant l'UAC, si vista ou Win 7, juste pour voir.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Ligne de commande non fonctionnelle en VB.NET

31 réponses

Votre réponse

Discussions similaires