Thema: Registry auslesen und ändern

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

Code vb:

1 2 3 4 5 6 7 8 9 10

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

Code vb:

1	"%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

Zitat von flame4ever

aber bekomme bei meinen VBscript eine Fehlermeldung

Welche?

Gruß

Line : 5
Char: 1
Error: Type mismatch
Code: 800A00D
Source: Microsoft VBScipt runtime error

Hi.

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

Code vb:

1 2 3 4 5 6 7

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ß

DAnke, funktioniert jetzt alles!!