Rette nøgler i registreringsdatabasen

link til en dll som du kan oprette en ref. til i dit vb projekt. med denne dll får du adgang til hele reg.basen og kan læse skrive rette slette som du nu finder det klogt. der er en udmærket dok. med

http://download.microsoft.com/download/vb60pro/update/6.0/w9x2k/en-us/regobji.exe

//vbcoder

Da jeg ikke selv kan programmere, så håber jeg at der er en, som kan lave et script eller et program som flytter Documents and Settings mappen for mig.

kigger på det .....

lokespas>> Er det noget, du tror at du kan lave?

lokespas>> Du er med på, hvad jeg mener?

jeg er bare med på en lytter

Jeg har hvis ikke det store held med dette spørgsmål

Gem dette som VB-Script (.vbs)
Flytter Dokuneter til partitionen D: [Dokument]
  -oOo-
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Startup = "C:\Documents and Settings\All Users\Menuen Start\Programmer\Start\"
On Error Resume Next

'--- Harddisk with VolumeName = Dokument, or first DriveLetter after C: ---
Dim DriveCollection, Drive, DriveLetter
Set DriveCollection = FileSystem.Drives
For Each Drive in DriveCollection
  If (Drive.DriveType = 2) and (Drive.DriveLetter > "C") Then
    If UCase(Drive.VolumeName) = "DOKUMENT" Then
      DriveLetter = Drive.DriveLetter
      Exit For
    End If
    If DriveLetter = "" Then DriveLetter = Drive.DriveLetter
  End If
Next
DestDir = DriveLetter & ":\Documents and Settings"

If DriveLetter <> "" Then
  '--- Move C:\Documents and Settings\All Users\Dokumenter to DestDir ---
  FileSystem.CreateFolder DestDir
  FileSystem.CreateFolder DestDir & "\" & CurrUser
  FileSystem.CopyFolder "C:\Documents and Settings\" & CurrUser & "\Dokumenter", DestDir & "\" & CurrUser & "\Dokumenter"
  FileSystem.CreateFolder DestDir & "\All Users"
  FileSystem.CopyFolder "C:\Documents and Settings\All Users\Dokumenter", DestDir & "\All Users\Dokumenter"
  FileSystem.DeleteFolder "C:\Documents and Settings\" & CurrUser & "\Dokumenter", True
  FileSystem.DeleteFolder "C:\Documents and Settings\All Users\Dokumenter", True
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal",DestDir & "\" & CurrUser & "\Dokumenter"
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures",DestDir & "\" & CurrUser & "\Dokumenter\Billeder"
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Music",DestDir & "\" & CurrUser & "\Dokumenter\Musik"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Documents",DestDir & "\All Users\Dokumenter"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CommonPictures",DestDir & "\All Users\Dokumenter\Billeder"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CommonMusic",DestDir & "\All Users\Dokumenter\Musik"
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal",DestDir & "\" & CurrUser & "\Dokumenter"
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures",DestDir & "\" & CurrUser & "\Dokumenter\Billeder"
  WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music",DestDir & "\" & CurrUser & "\Dokumenter\Musik"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Documents",DestDir & "\All Users\Dokumenter"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths\" & CurrUser,DestDir & "\" & CurrUser & "\Dokumenter"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\MediaPlayer\Preferences\MyMusic",DestDir & "\All Users\Dokumenter\Musik"
  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\MediaPlayer\Preferences\PlayList",DestDir & "\All Users\Dokumenter\Musik\music.asx"
End If
  -oOo-

Jeg har ikke lige prøvet scriptet endnu. Som jeg kan se, så flytter scriptet kun mappe Dokumenter (ret mig, hvis jeg tager fejl). Scriptet skal flytte HELE mappen Documents and Settings.

Kan man ikke få scriptet til at finde, hvilken drev Documents and Settings ligger på nu (i cmd kan man bruge: set userprofile)?

Derefter skal man kunne vælge, hvilke nyt drev Documents and Settings skal ligge på. Scriptet skal på en eller anden måde, vise processen for rettelsen af nøglerne i regedit og hvornår scripttet er færdig med at rette.

michaelemanuel>> Har du set mit sidste indlæg?

michaelemanuel>> Har du set mit sidste indlæg?

Okay, så er det på tide, at jeg lukker spørgsmålet

lukker

Prøv med TweakXP - du kan dl en demo her:

http://www.totalidea.com/tweakxpdown.html

/jc

VB-Script (.vbs)det virker ikke xp vil ikke modtage download af eks. *.exe filer og når man klipper noget ind i mappen kan det ikke ses, man skal først klik tilbage og så frem for at se det man lige har klippet ind i mappen. men iden er da god nok.