Notifikationer

Markér alle som læst Log ud

dk-andersson Nybegynder

16. april 2009 - 13:20 Der er 3 kommentarer og
1 løsning

skift produkt nøgle på office 2003

Hej

Jeg skal ændre en produkt nøgle på min sviremors computer. Mit problem er bare at hun bor i den anden ende af Danmark.

Så mit spørgsmål er om man ikke kan lave et script som kan slette hindes produkt nøgle inde i regedit.??

Her er stien til produkt nøglen.
HKEY_LOCAL_MACHINE >>> SOFTWARE >>> Wow6432Node >>> Microsoft >>> Office >>> 11.0 >>> Registration

Min ide var så at den bare kunne slette alt hvad der ligger under denne mappe. Dette vil nemlig medfør at hun igen skal indskrive en produkt nølge.

Synes godt om

dk-andersson Nybegynder

16. april 2009 - 13:21 #1

sorry forkert sti.. det var til et 64 bit windows og hun har 32 bit.

men her er stien.
HKEY_LOCAL_MACHINE >>> Software >>> Microsoft >>> Office >>> 11.0 >>> Registration

Nogen som kan lave dette lille script eller hjælpe mig på vej.. ;-)

Synes godt om

CCodam Nybegynder

16. april 2009 - 13:38 #2

Here you go, kopier ind i notepad og gem det som filnavn.vbs

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strKeyPath = "Software\Microsoft\Office\11.0\Registration"

Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath

Sub DeleteSubkeys(HKEY_LOCAL_MACHINE, strKeyPath)
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeyPath & "\" & strSubkey
Next
End If

objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
End Sub

ADVARSEL: Dette script sletter Registration og alt derunder, undertegnede har ikke testet scriptet selv og eftervirkningerne heraf

Synes godt om

dk-andersson Nybegynder

16. april 2009 - 13:51 #3

tak men sletter det også mappen Registration?.. for det skal den helst ikke..;-)

Synes godt om

CCodam Nybegynder

16. april 2009 - 14:18 #4

#3 Ja det gør den, hvis du gerne vil have at Registration stadig skal være der, er det nemmeste at oprette denne key igen bagefter, brug i såfald dette script i stedet:

On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strKeyPath = "Software\Microsoft\Office\11.0\Registration"

Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

DeleteSubkeys HKEY_LOCAL_MACHINE, strKeypath
CreateKey HKEY_LOCAL_MACHINE, strKeypath

Sub DeleteSubkeys(HKEY_LOCAL_MACHINE, strKeyPath)
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_LOCAL_MACHINE, strKeyPath & "\" & strSubkey
Next
End If

objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
End Sub

Sub CreateKey(HKEY_LOCAL_MACHINE, strKeyPath)
objRegistry.CreateKey HKEY_LOCAL_MACHINE, strKeyPath
End Sub

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VBS Af bsn i VBscript	5	16/07/202614:01	18/07/202610:46
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS