Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBScript beim Start von XP

Frage Entwicklung VB for Applications

Mitglied: Meister-Petz

Meister-Petz (Level 1) - Jetzt verbinden

18.04.2011, aktualisiert 18:30 Uhr, 3911 Aufrufe, 5 Kommentare

Hallo zusammen,

Hab mal wieder ein Problem bei dem ich auf eure Unterstützung hoffe.
Ich hab mich mal an VBS Skripte gewagt und bin deshalb ein Frischling auf dem Gebiet.
Der Computername sollte per vbs inputbox unbenannt werden.
Der Teil war kein Problem da hier im Forum schon mal danach gefragt wurde.
Also hab ich mir den Code beschnappt und ihn ein wenig verändert.
Bei mir sollte das Skript als Shell Start von XP ausgeführt werden.
Klappt auch wunderbar mit der Hilfe von cscript.exe.
Eintrag unter: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Shell
cscript.exe c:\test.vbs

Nun aber mein Problem das Script soll nachdem der Computername gesetzt wurde den Eintrag in der Registry wieder ändern.
z.B. wieder in explorer.exe
Hab das meine ich auch richtig gemacht.
Es funktioniert zumindest alles wenn XP "normal" mit der explorer.exe gestartet ist.
Es funktioniert aber nicht wenn in der Shell das VBScript eingetragen ist.

01.
Option Explicit  
02.
Dim ws, t, p2, p3, p4, p5, n, g, j, h, f, k, cn, cg, cj  
03.
Set ws = WScript.CreateObject("WScript.Shell")  
04.
Dim itemtype  
05.
p2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\"  
06.
p3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\"  
07.
p4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"  
08.
p5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"  
09.
j = ws.RegRead(p2 & "ComputerName")  
10.
h = ws.RegRead(p3 & "NV Hostname")  
11.
f = ws.RegRead(p4 & "ComputerName")  
12.
k = ws.RegRead(p5 & "NV Hostname")  
13.
t = "Change Utility"  
14.
 
15.
  cj = InputBox("Geben Sie den neuen Computernamen an und klicken auf OK." & vblf & "!! ACHTUNG !! Nach dem klicken auf OK wird der Computer SOFORT neugestartet!", t, j)  
16.
  
17.
If cj <> "" Then  
18.
  ws.RegWrite p2 & "ComputerName", cj  
19.
  ws.RegWrite p3 & "NV Hostname", cj  
20.
  ws.RegWrite p4 & "ComputerName", cj  
21.
  ws.RegWrite p5 & "NV Hostname", cj  
22.
  ws.Run "regedit /s test.reg" 
23.
  'Ws.Run "shutdown.exe -r -f -t 0 -c ""Windows XP wird neu gestartet""", 1, False  
24.
End If 
(Den Neustart hab ich mal zu testzwecken abgeklemmt)

Ich hoffe Ihr könnt mir helfen.
Jeder Vorschlag ist Willkommen.
Mitglied: cMaster
18.04.2011 um 18:44 Uhr
Hi,

und wenn du dann einfach noch vor dem Shutdown ein
  • ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "explorer.exe"
ausführst, dann trägt er da wieder die explorer.exe ein, und die startet dann wieder die, beim nächsten Start.

Viele Grüße
Bitte warten ..
Mitglied: Biber
18.04.2011 um 18:46 Uhr
Moin Meister-Petz,

kann es sein, dass die woher-auch-immer gefallene Zeile 22 ( ws.Run "regedit /s test.reg" ) dir die ganze Mühe immer zunichte & zuneffe macht?

Überschreib diese Zeile doch mal mit Hex(20) und/oder setz ein Apostroph davor.

Grüße
Biber
Bitte warten ..
Mitglied: 99045
18.04.2011 um 18:50 Uhr
Zitat von Meister-Petz:
Es funktioniert aber nicht wenn in der Shell das VBScript eingetragen ist.

Hi,

kann ja auch nicht funktionieren, denn weder cscript noch dein VBS-File ist eine Shell.
Oder meinst du, dass CSCRIPT Regedit starten kann?

Gruß
Bitte warten ..
Mitglied: 60730
18.04.2011 um 20:12 Uhr
moin,

so gern ich in der Registry rumfummel, aber da hört der Spass auf und der Ernst fängt an.
Außerdem sind einzeiler einfach schöner

netdom renamecomputer %computername% /newname:neuername /userD:meinedomäne\administrator /passwordd:* /usero:administrator /passwordo:* /force /reboot:60

Gruß
Bitte warten ..
Mitglied: Meister-Petz
20.04.2011 um 18:22 Uhr
Hallo Leute,

danke für eure Antworten.
Hab es mit dem Tipp von cMaster hinbekommen.
Zu Biber: genau diese Zeile hätte ja die Registry umgeschrieben was ja Sinn der Sache war. (test.reg ist der exportierte Registry-Eintrag)
Zu Kaputtnick: es kann alles gestartet werden, Win ist ja gestartet nur der Desktop und die Taskleiste sind nicht da du siehst einfach nur das Hintergrundbild.
Zu Timo: Hatte noch keine Zeit zu testen aber wenn das geht wäre das natürlich genial.

Gruß
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Mittels VbScript Datei verdeckt starten
gelöst Frage von Alme123VB for Applications4 Kommentare

Hallo zusammen, ich habe schon eine Teillösung für mein Problem gefunden, jedoch nur ein Teil: Ich möchte eine BatchDatei ...

Grafikkarten & Monitore
Wie kann ich das alte Word5 unter XP starten?
Frage von axalonGrafikkarten & Monitore16 Kommentare

Hallo liebe Gemeinde, ich trau mich einfach mal zu fragen: mein Vater arbeitet mit seinen 92 Jahren noch gerne ...

VB for Applications
VBScript und OR
gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 8 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 15 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 17 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 20 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...