[Brummelchen]

Eine kleine Lösung für Windows XP und andere, die VBScript ausführen können
(speichern als becky2_registry_backup.vbs)
Verbesserte Versionen stehen am Ende des Thread!

'export becky! v2 registry settings
'copyright 2007 Brummelchen
'http://beckymail.be.funpic.de/
'http://www.mickeytheman.com
'all rights reserved

mDate = Date
mTime = Time

mDate = Mid(mDate,7,4) & "." & Mid(mDate,4,2) & "." & Mid(mDate,1,2)
mTime = Mid(mTime,1,2) & "-" & Mid(mTime,4,2) & "-" & Mid(mTime,7,2)
rFile = "becky2_" & mDate & "_" & mTime & ".reg"

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("%windir%\regedit.exe" & " /a " & rFile & " HKEY_CURRENT_USER\Software\RimArts")

Ergebnis zB.: becky2_2007.08.20_02-54-14.reg
(wird im selben Ordner wie das VBS gespeichert)

Modifikationen dürfen nur mit dem Copyright weitergegeben werden!

[Brummelchen]

Und hier eine verbesserte Version mit Zielordner (wird ggf. erstellt)

'export becky! v2 registry settings
'copyright 2007 Brummelchen
'http://beckymail.be.funpic.de/
'http://www.mickeytheman.com
'all rights reserved

mDate = Date
mTime = Time
myFolder = "c:\myfolder\"

mDate = Mid(mDate,7,4) & "." & Mid(mDate,4,2) & "." & Mid(mDate,1,2)
mTime = Mid(mTime,1,2) & "-" & Mid(mTime,4,2) & "-" & Mid(mTime,7,2)
regfile = "becky2_" & mDate & "_" & mTime & ".reg"

If myfolder <> "" Then
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(myfolder) Then
  Else
    'create folder object
    Set objFolder = objFSO.CreateFolder(myFolder)
  End If
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("%windir%\regedit.exe" & " /a " & myFolder & regfile & " HKEY_CURRENT_USER\Software\RimArts")

Hinweis: myfolder MUSS mit einem Backslash \ enden -> "c:\myfolder\"
Lassen Sie myfolder leer (myfolder = ""), falls der Zielordner derselbe wie das VBS ist (Erstellung wird ausgelassen)

[Brummelchen]

Verbesserte Version:
- aktuellen Ordner als Zielordner setzen, wenn myfolder leer ist
- füge Backslash \ hinzu, wenn nicht letztes Zeichen
(speichern als becky2_registry_backup.vbs)

'export becky! v2 registry settings
'copyright 2007 Brummelchen
'http://beckymail.be.funpic.de/
'http://www.mickeytheman.com
'all rights reserved

Dim mDate, mTime, myFolder, regfile, sn, fn, mRight, objFSO, objFolder

mDate = Date
mTime = Time
myFolder = "c:\myfolder"

mDate = Mid(mDate,7,4) & "." & Mid(mDate,4,2) & "." & Mid(mDate,1,2)
mTime = Mid(mTime,1,2) & "-" & Mid(mTime,4,2) & "-" & Mid(mTime,7,2)
regfile = "becky2_" & mDate & "_" & mTime & ".reg"

If myFolder = "" Then
  'myFolder is empty > set script folder
  sn = Wscript.ScriptName        ' Script Name        
  fn = Wscript.ScriptFullName    ' Fully Qualified Script Name
  myFolder = Replace(fn, "\" & sn, "") ' Drive / Folder path
  myFolder = myFolder & "\"
End If

'check on backslash as last token
mRight = Right(myFolder,1)
If mRight <> "\" Then
  myFolder = myFolder & "\"
End If

'check if folder exists
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(myFolder) Then
Else
  'create folder object
  Set objFolder = objFSO.CreateFolder(myFolder)
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("%windir%\regedit.exe" & " /a " & myFolder & regfile & " HKEY_CURRENT_USER\Software\RimArts")

[Brummelchen]

Neue verbesserte Version (interne build 5)

Behoben
- Unterordner werden erstellt
- Ordner können lange Namen haben, behoben.

'export becky! v2 registry settings
'copyright 2007 Brummelchen
'http://beckymail.be.funpic.de/
'http://www.mickeytheman.com
'all rights reserved
'special thanks @ Dominator

Dim mDate, mTime, myFolder, mRoot, regfile, sn, fn, mRight, objFSO, objFolder

mDate = Date
mTime = Time
myFolder = "c:\my folder\becky"

mDate = Mid(mDate,7,4) & "." & Mid(mDate,4,2) & "." & Mid(mDate,1,2)
mTime = Mid(mTime,1,2) & "-" & Mid(mTime,4,2) & "-" & Mid(mTime,7,2)
regfile = "becky2_" & mDate & "_" & mTime & ".reg"

If myFolder = "" Then
  'myFolder is empty > set script folder
  sn = Wscript.ScriptName        ' Script Name        
  fn = Wscript.ScriptFullName    ' Fully Qualified Script Name
  myFolder = Replace(fn, "\" & sn, "") ' Drive / Folder path
  myFolder = myFolder & "\"
  mFlag1 = "1"
Else
  mFlag1 = "0"
End If

'check on backslash as last token
mRight = Right(myFolder,1)
If mRight <> "\" Then
  myFolder = myFolder & "\"
End If

'check if folder exists
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(myfolder) Then
Else
  'create folder object
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Call GeneratePath(myFolder)
End If

WScript.Sleep 1000

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("%windir%\regedit.exe" & " /a " & chr(34) & myFolder & regfile & chr(34) & " HKEY_CURRENT_USER\Software\RimArts")


Function GeneratePath(PFAD)
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If Not objFSO.FolderExists(PFAD) Then
    If Not objFSO.FolderExists(objFSO.GetParentFolderName(PFAD)) Then
      Call GeneratePath(objFSO.GetParentFolderName(PFAD))
    End If
    Call objFSO.CreateFolder(PFAD)
  End If
End Function