RE: számítógépnév registryban

[Rgazda]

-----Original Message-----
From: Bálint István [mailto:balintis at szistvan.hu] 
Sent: Monday, March 05, 2007 1:37 PM
To: Techinfo
Subject: Re: számítógépnév registryban

Registry Crawlert használtam és vigégnéztemn az összes bejegyzést. De 
bárhol állítottam át, újraindítás után mindig a régi név volt.
Igazából azt szerettem volna elérni, hogy távolról egy fájlt végrehajtva 
egy terem gépein ne nekem kelljen beállítani a gépnevet, hanem 
automatikusan állítsa be.
Mert a rendszergazda egy lusta emberfajta...
A ghostwalker pedig csak részben képes erre.
Köszönettel:
Bálint István

>   

_______________________________________________
Techinfo mailing list
Techinfo at lista.sulinet.hu
http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.1let.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.sulinet.hu/tart/cikk/sc/0/19789/1

http://www.kellys-korner-xp.com -ról való.

Még nem teszteltem.

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, cn, vbdefaultbutton
Dim itemtype

p1 = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"

n = ws.RegRead(p1 & "ComputerName")
t = "Change Computer Name"
cn = InputBox("Type new Name and click OK", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "ComputerName", cn
End If


Attila