17
Open een Opdrachtregel met administratorrechten.
Typ: wmic printer list brief > "%userprofile%\desktop\printers.txt” & start notepad "%userprofile%\desktop\printers.txt"
Er verschijnt dan een log geopend in Kladblok (welk is opgeslagen op je bureaublad).
Typ: wmic printer list brief > "%userprofile%\desktop\printers.txt” & start notepad "%userprofile%\desktop\printers.txt"
Er verschijnt dan een log geopend in Kladblok (welk is opgeslagen op je bureaublad).
Laatst gewijzigd door dorado op 26 apr 2020 11:25, 2 keer totaal gewijzigd.
25
Stap1:
Door een registerwijziging wordt de update mogelijk gemaakt.
Combineer → notepad.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\AllowOSUpdate",1”,REG_DWORD"
Message = "De registerwijziging is doorgevoerd." & vbCrLf & "Om iets van deze wijziging te merken moet je herstarten.."
X = MsgBox(Message, vbInformation, "Windows Update mogelijk maken")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:update.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik update.vbs → Openen.
- Klik op de knop Start, typ regedit in het vak Zoeken & ENTER. Typ het wachtwoord of een bevestiging als hierom wordt gevraagd.
- Klik linksboven in de menubalk op bestand & vervolgens op exporteren.
- Kies bovenin het scherm bij "Opslaan in" de plek waar je uw backup van het register wilt opslaan.
- Let erop dat je links beneden bij exportbereik "alles" selecteert.
Geef het bestand een naam, bijvoorbeeld registerbackup.reg. - Bij "opslaan als" selecteer je Registerbestanden (*.reg)
- Klik tenslotte op opslaan.
Door een registerwijziging wordt de update mogelijk gemaakt.
Combineer → notepad.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\AllowOSUpdate",1”,REG_DWORD"
Message = "De registerwijziging is doorgevoerd." & vbCrLf & "Om iets van deze wijziging te merken moet je herstarten.."
X = MsgBox(Message, vbInformation, "Windows Update mogelijk maken")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:update.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik update.vbs → Openen.
Laatst gewijzigd door dorado op 05 apr 2020 13:07, 1 keer totaal gewijzigd.
27
Dank voor de terugkoppeling. Gelukkig is VBS zeer precies in het aangeven waar de fout zit. Bijgaand het gecorrigeerde script:
Stap1:
Door een registerwijziging wordt de update mogelijk gemaakt.
Combineer → notepad.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\AllowOSUpdate","1”,REG_DWORD"
Message = "De registerwijziging is doorgevoerd." & vbCrLf & "Om iets van deze wijziging te merken moet je herstarten.."
X = MsgBox(Message, vbInformation, "Windows Update mogelijk maken")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:update.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik update.vbs → Openen.
Stap1:
- Klik op de knop Start, typ regedit in het vak Zoeken & ENTER. Typ het wachtwoord of een bevestiging als hierom wordt gevraagd.
- Klik linksboven in de menubalk op bestand & vervolgens op exporteren.
- Kies bovenin het scherm bij "Opslaan in" de plek waar je uw backup van het register wilt opslaan.
- Let erop dat je links beneden bij exportbereik "alles" selecteert.
Geef het bestand een naam, bijvoorbeeld registerbackup.reg. - Bij "opslaan als" selecteer je Registerbestanden (*.reg)
- Klik tenslotte op opslaan.
Door een registerwijziging wordt de update mogelijk gemaakt.
Combineer → notepad.
Kopieer onderstaande code:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\OSUpgrade\AllowOSUpdate","1”,REG_DWORD"
Message = "De registerwijziging is doorgevoerd." & vbCrLf & "Om iets van deze wijziging te merken moet je herstarten.."
X = MsgBox(Message, vbInformation, "Windows Update mogelijk maken")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:update.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik update.vbs → Openen.
Laatst gewijzigd door dorado op 05 apr 2020 13:06, 1 keer totaal gewijzigd.
30
Printer opnieuw geïnstalleerd op 123.hp.com.
Alles goed verlopen.
Van zodra een testafdruk wordt gevraagd krijg ik een foutmelding bij printafdruk.
Wat ik eigenaardig vindt is dat ik 2 printers in mijn lijst heb:
HPD61941 (deze nummer kan ik terugvinden bij mijn netwerkstatus op de printer) maar deze laat alleen scan-only toe.
De andere Direct-42 heeft een code doorgestuurd naar de printer die ik moet ingeven op mijn laptop.
Maar geen één van beide werkt.
Alles goed verlopen.
Van zodra een testafdruk wordt gevraagd krijg ik een foutmelding bij printafdruk.
Wat ik eigenaardig vindt is dat ik 2 printers in mijn lijst heb:
HPD61941 (deze nummer kan ik terugvinden bij mijn netwerkstatus op de printer) maar deze laat alleen scan-only toe.
De andere Direct-42 heeft een code doorgestuurd naar de printer die ik moet ingeven op mijn laptop.
Maar geen één van beide werkt.
Als gast kunt u geen bijlagen bekijken. Registreer via deze link een (gratis) account om bijlagen te kunnen bekijken.