[Iska]

Valek271183, перепишите.

Или на WSH:

читать дальше »

Код:

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strValue


With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default")
	With .Get("StdRegProv")
		If .GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", strValue) = 0 Then
			strValue = strValue & " bla-bla-bla"
			
			If Not .SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer", strValue) = 0 Then
				WScript.Echo "Can't write registry parameter"
			End If
		Else
			WScript.Echo "Can't read registry parameter"
		End If
	End With
End With

WScript.Quit 0