Vollständige Version anzeigen : Computername und Netbios bei jedem Systemstart ändern


B0B
26.09.2007, 17:07

Code:


Option Explicit

On Error GoTo 0
On Error Resume Next

set args = WScript;Arguments

Set ws = WScript;CreateObject("WScript;Shell")
Dim args, ws, t, p2, p3, p4, p5, p6, n, j, h, f, k, cf
Dim itemtype,num

num=args;count
if num<>0 then cf=args;Item(0)

p2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\"
p3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\"
p4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerNa me\"
p5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
p6 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"


j = ws;RegRead(p2 & "ComputerName")
h = ws;RegRead(p3 & "NV Hostname")
f = ws;RegRead(p4 & "ComputerName")
k = ws;RegRead(p5 & "NV Hostname")


t = "Compuer Name Change Utility"
if num=0 then
do
Randomize
cf = Rnd()
loop while cf=""
end if

If cf <> "" Then
ws;RegWrite p2 & "ComputerName", cf
ws;RegWrite p3 & "NV Hostname", cf
ws;RegWrite p4 & "ComputerName", cf
ws;RegWrite p5 & "NV Hostname", cf
ws;RegWrite p6 & "ChangeComputerName", "C:\Windows\computername;vbs"
End If


dim file, destfile, objFSO, i, strscript
set file = CreateObject ("Scripting;FileSystemObject")
set destfile = file;GetFile("computername;vbs")
destfile;Copy("C:\Windows\computername;vbs")



Was muss ich mit dem Code machen?
- Copy + Paste in eine Textdatei. Die Datei als "computername;vbs" abspeichern und ausführen. Fertig - die Datei kann gelöscht werden!

Was macht der Code?
- Er setzt sich in der Registry fest und kopiert sich in das Windows-Verzeichnis.

Was bringt er?
- Jedesmal wenn euer System neu gestartet wird, ändern sich automatisch euer Computername und die Netbois.

Wie kann ich das Ganze wieder rückgängig machen?
- Einfach aus der Registry + Windowsverzeichnis löschen! (HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ und C:\Windows)


MiNi-Tutorial von B0B :)
Wenn ihr es kopieren wollt, bitte einfach die letzten zwei Zeilen dran lassen und mir Bescheid geben, Danke :)

Hardware Preisvergleich | Amazon Blitzangebote!

Videos zum Thema
Video Loading...
Ähnliche Themen zu Computername und Netbios bei jedem Systemstart ändern
  • [C/C++] Speicheradressen ändern sich nach jedem Update...
    Hi - ich wollte mal fragen ob man das irgendwie im griff bekommen kann.... Undzwar geht es um ein Spiel, bei dem sich die Speicheradresse [z;B. 0x00A29817] der z;B. X-Koordinate bei jedem Update ändert. Gibt es ein verfahren wie man die adresse automatisch suchen lassen kann.;? MfG [...]

  • Proxyeinstellungen ändern sich bei jedem Neustart von Mozilla
    das dumme ist, dass es auch nach der deinstall von hide ip so ist... bräuchte dringend hilfe [...]

  • [Windows 7] MAC-Adresse ändert sich bei jedem Systemstart
    Heyho, der Titel beschreibt mein Problem schon sehr gut. Ich bin über einen "Belkin Basic Wireless USB Adapter" (F7D1101) mit dem Router verbunden. Nun wollte ich eigentlich einrichten, dass der DHCP des Routers meinem PC immer die gleiche IP gibt und dazu muss ich eben die MAC-Adresse des W-Lan [...]

  • Photoshop CS4 serial wird bei jedem systemstart unbrauchbar
    Hi Jungs Jedes mal wenn ich den pc aus und wieder an mache ist der serial für cs4 unbrauchbar... dh eben ging er noch und evtl geht er 5 minuten später schon nicht mehr... was soll ich tun.... crack is soweit ich weiss schon drinne... kann der vllt veraltet sein?! hab den updater extra inactive [...]



raid-rush.ws | Imprint & Contact pr