home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 March / PCWELT_3_2000.ISO / software / tricks / rcvbs.exe / rc.vbs
Encoding:
Text File  |  1999-12-15  |  1.0 KB  |  33 lines
  1. SET MyShell = Wscript.CreateObject("Wscript.Shell")
  2. SET MyFiles=CreateObject("Scripting.FileSystemObject")
  3. i=MyShell.Popup("Erstes Registry-Image wird erstellt.",4,"Registry-Vergleich",1)
  4. if i=2 then wscript.quit
  5. MyShell.Run "regedit.exe /e c:\~rc1.reg",0,TRUE
  6.  
  7. i=MyShell.Popup("Fⁿhren Sie jetzt die gewⁿnschte(n) ─nderung(en) durch." & chr(10) & "Klicken Sie erst danach auf den OK-Button.",,"Registry-Vergleich",1)
  8.  
  9. if i=2 then 
  10.   SET F=MyFiles.getFile("c:\~rc1.reg")
  11.   F.delete
  12.   wscript.quit
  13. else
  14.   MyShell.Popup "Zweites Registry-Image wird erstellt.",4,"Registry-Vergleich",1
  15.   Set s = MyFiles.createTextFile("c:\~rc.bat")
  16.   s.writeline("fc.exe /c /lb150 c:\~rc1.reg c:\~rc2.reg > c:\regcomp.1&2")
  17.   s.close
  18.   MyShell.Run "regedit.exe /e c:\~rc2.reg",0,TRUE
  19.   MyShell.Run "c:\~rc.bat",0,TRUE
  20.   MYShell.Run "notepad.exe c:\regcomp.1&2"
  21.   MyShell.Run "regedit.exe"
  22.   SET F=MyFiles.getFile("c:\~rc1.reg")
  23.   F.delete
  24.   SET F=MyFiles.getFile("c:\~rc2.reg")
  25.   F.delete
  26.   SET F=MyFiles.getFile("c:\~rc.bat")
  27.   F.delete
  28. End if
  29.  
  30.  
  31.  
  32.  
  33.