இனி நாம் பார்க்கபோவது இந்த பிராபர்ட்டிஸ் செட்டிங்கிற்குள் சில மாற்றங்கள் செய்து நமது போட்டோ மற்றும் பெயர் அட்ரஸ் இன்னும் தேவையான தகவல்களை எப்படி கொண்டு வருவது என பார்க்கலாம்
-------------------------------------------------------------------------
[General]
Manufacturer=Your Name Here
[Support Information]
Line1=Name
Line2=Mobile Number
Line3=Website
Line4=City
Line5=Address
Line6=
Line7=
Line8=
Line9=
Line10=
------------------------------------------------------------------------
மேலே உள்ளதை அப்படியே காப்பி எடுத்து புதிதாக ஒரு நோட்பேட் திறந்து அதில் பேஸ்ட் செய்துவிடுங்கள்
அதில் உங்களுக்கு தேவையான தகவல்களை கீழே சொல்வது போல செய்யவும்
Line1=ஞானசேகர்(ஆங்கிலத்தில் எழுதவும்)
Line2=+91-xxxxxxxxxxx
Line3=http://gsr-gentle.blogspot.com
இப்படி வரிசையாக உங்களுக்கு எத்தனை Line வேண்டுமானாலும் சேர்த்துகொண்டு சேமிக்கும் போது oeminfo.ini இப்படி சேமிக்கவும், இதில் oeminfo எனபது பெயர் .ini என்பது அதன் எக்ஸ்டென்சன் ஆகும்
அடுத்து போட்டோஷாப்பில் புதியதாக width : 160 pixels , Height : 120 pixels , Resolution 300-க்குள் இருக்கட்டும் நான் சொல்கிற அளவுக்கு குறைந்தால் பிரச்சினை இல்லை அதற்கு மேலாக இருக்கும் போது பிரார்பர்ட்டிஸ் அளவிற்குள் பொருந்தாமல் இருக்கும், இனி இந்த அளவுக்குள் நீங்கள் விரும்புகிற மாதிரி உங்கள் பெயரையோ அல்லது உங்கள் போட்டோவையோ தயார் செய்து oemlogo.bmp என்று சேமிக்கவும் இதில் oemlogo எனபது பெயர் .bmp என்பது அதன் எக்ஸ்டென்சன் ஆகும்
இப்போது தாங்கள் ஒரு oeminfo.ini மற்றும் oemlogo.bmp சேமித்துவிட்டீர்கள் அடுத்ததாக இந்த இரண்டு பைல்களையும் C:\WINDOWS\system32 என்கிற போல்டரில் சேமித்துவிடவும் அவ்வளவுதான்.
இனி ஒன்று மட்டும் மீதம் இருக்கிறது இது அவசியமில்லை தேவைப்பட்டால் மட்டும் உபயோகிக்கவும்
------------------------------------------------------------------------
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, g, cn, cg
Dim itemtype
p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"
n = ws.RegRead(p1 & "RegisteredOwner")
g = ws.RegRead(p1 & "RegisteredOrganization")
t = "Change Owner and Organization Utility"
cn = InputBox("Type new Owner and click OK", t, n)
If cn <> "" Then
ws.RegWrite p1 & "RegisteredOwner", cn
End If
cg = InputBox("Type new Organization and click OK.", t, g)
If cg <> "" Then
ws.RegWrite p1 & "RegisteredOrganization", cg
End If
-------------------------------------------------------------------------
நோட்பேட் திறந்து மேலே கொடுத்துள்ள கோடிங்கை அப்படியே காப்பி எடுத்து பேஸ்ட் செய்து அதை சேமிக்கும் போது Register.vbs என சேமிக்கவும் இதில் Register என்பது பெயர் (உங்கள் விருப்ப பெயர் வைக்கலாம்) .vbs என்பது அதன் எக்ஸ்டென்சன் ஆகும், இனி சேமித்த Register.vbs என்பதை இருமுறை கிளிக்கி அதில் தேவைப்படுவதை பூர்த்திசெய்துவிடுங்கள் இனி கம்ப்யூட்டர் பிராப்பர்ட்டிஸ் திறந்து பாருங்கள் புதிய மாற்றங்களை அறிவீர்கள்
புதிய பிராப்பர்ட்டிஸ் இப்படி இருக்கும்
Post a Comment
உங்கள் கருத்துகளை இங்கே பகிரவும்