Registry auslesen und ändern

F

flame4ever

Grünschnabel
Hallo, ich möchte die pagefile.sys von c auf d ändern und automatisieren aber bekomme bei meinen VBscript eine Fehlermeldung, könnt ihr den Fehler finden?
OS: Windows XP

Visual Basic: 
Dim RegKopieren, Kopieren
Set RegKopieren = CreateObject ("WScript.Shell")
Set Kopieren = CreateObject ("Scripting.FileSystemObject")

If 	(RegKopieren.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles") = "D:\pagefile.sys 768 1536") then
			If 	Kopieren.FileExists ("C:\pagefile.sys") Then
				Kopieren.copyFile "C:\pagefile.sys", "D:\pagefile.sys", True
			End If
Else 	RegKopieren.Run "\regeintag.cmd"
End If

Visual Basic: 
"%windir%\system32\reg.exe" add "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management" /v PagingFiles /t REG_MULTI_SZ /d "D:\pagefile.sys 768 1536" /f

MfG flame4ever
 
Hi.

Der Wert ist ein REG_MULTI_SZ. Laut Doku (http://msdn.microsoft.com/en-us/library/x05fawxd(VS.85).aspx) wird für diesen Registry Typ ein Array von Strings zurückgeliefert.

Visual Basic: 
Set sh = CreateObject ("WScript.Shell")

x = sh.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PagingFiles")

for i = LBound(x) to UBound(x)
  wscript.echo "Pagefile " & i & ": " & x(i)
next
Gruß
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück