gennenløb af mappen og overføre mappe navn til teks variabel.

fandt det selv

ij

Dim oShell : Set oShell = WScript.CreateObject("Wscript.Shell")
Dim oFS : Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
Dim strCUProfile : strCUProfile = strCUProfile = oShell.Environment("Process")("UserProfile")
Dim oFolder

For Each oFolder In oFS.GetFolder("C:\Documents and Settings").SubFolders
If oFS.FileExists (oFolder &"\NTUser.DAT") _
And LCase(oFolder.Name) <> LCase(strCUProfile) _
And LCase(oFolder.Name) <> LCase("LocalService") _
And LCase(oFolder.Name) <> LCase ("NetworkService") _
And LCase(oFolder.Name) <> LCase("All Users") Then
oShell.Run "cmd /c reg load HKLM\TempHive " &Chr(34) &oFolder &"\NTUser.DAT" &Chr(34), ,1
'Put your registry hacks here...
'Either use oShell.RegWrite... eg below...
'oShell.RegWrite "HKLM\TempHive\Software\MySoftware\MyDword", 1, "REG_DWORD"
'OR
'Run "Regedit.exe /s REGHack.Reg" and import a premodified reg file - the key in the reg file start With
'HKEY_Local_Machine\TempHive\
'eg below...
'oShell.Run "Regedit.exe /s RegHack.reg"
oShell.Run "cmd /c reg unload HKLM\TempHive", 0, True
End If
Next Dim oShell : Set oShell = WScript.CreateObject("Wscript.Shell")
Dim oFS : Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
Dim strCUProfile : strCUProfile = strCUProfile = oShell.Environment("Process")("UserProfile")
Dim oFolder