ABOUT
IN4OUT Logo
IN4OUT it solutions ist ein Dienstleistungsunternehmen
im Bereich der Informationstechnologie.
 
In diesem Blog berichten IN4OUT-Mitarbeiter über Erlebnisse und Abenteuer rund um Informatik-Probleme und -Lösungen, Web-Design und -Entwicklung, Microsoft Produkte, Social Computing sowie alles andere, was die Gedanken bewegt.

  Feed abonnieren

Windows Installationsschlüssel über das Netzwerk auslesen

by Martin Wildi 30. September 2009 14:29

Mit folgendem Code kann der Installationsschlüssel von Windows (Server- und Clientbetriebssystemen) ausgelesen werden:

' Find Product Activation Key on Remote Machine
' Got this from a posting by 'Alatar1' at
www.theeldergeek.com
'
' I just added the inputbox - Rob

If Wscript.Arguments.Count = 0 Then
strComputer = inputbox("Enter a computer name to query the Windows " _
& " product key from","Enter computer name")
if strComputer = "" then wscript.quit
Else
strCOmputer = Wscript.Arguments.Item(0)

End If

Dim Digits (24)
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"

Dim HexBuf (100), HexDigitalPID (15)
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")

objReg.GetBinaryValue &H80000002, "SOFTWARE\Microsoft\Windows NT" _
& "\CurrentVersion\", "DigitalProductId", HexBuf

' Extract Relevant Section of Digital Product ID
StartOffset = 52 : EndOffset =67
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
next

' Convert Encoded Product ID to Activation Key
dLen = 29 : sLen = 15
KEYSTRING =""
for i=dLen-1 to 0 step -1
if ((i + 1) mod 6) = 0 then
KEYSTRING = KEYSTRING & "-"
else
HN = 0
For N = (sLen -1) to 0 step -1
Value = ( (HN *2^8 ) Or HexDigitalPID (N))
HexDigitalPID (N) = Value \ 24
HN = (Value mod 24)
next
KEYSTRING = KEYSTRING & Digits(HN)
end if
next
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo KEYSTRING2

Das ganze muss in ein *.vbs-File gespeichert und ausgeführt werden.



Software mittels GPO verteilen: Fehlermeldung "No package in the software installation data in the Active Directory meets this criteria"

by Martin Wildi 23. September 2009 14:45

Wir verteilen u.a. Adobe Acrobat Reader via GPO-Richtlinien. Neulich wollte ich die neuste Version deployen. Ich fügte das vorbereitete msi-Paket zur bestehenden GPO hinzu, da erhielt ich diese Fehlermeldung:


"No package in the software installation data in the Active Directory meets this criteria."

Nach kurzer Recherche fand ich den Hinweis, dass die GPO defekt sein könnte. Also erstellte ich eine neue GPO und fügte das Packet hinzu und siehe da - es klappte.

Da der GPO-Editor nun das neue Packet nicht automatisch als Update der alten Version erkennt, muss ihm dies explizit mitgeteilt werden:



Utility Jobs in BackupExec werden nicht ausgeführt, Status Wartend

by Markus Frey 12. September 2009 17:55

Symptom: Symantec BackupExec 12.5 führt von einem Tag zum anderen keine Utility Jobs, also Inventarisierung, Löschen von Medien etc aus. Die Aufträge bleiben ewig in der Warteschlange mit Status 'Queued'. Sicherungs- und Wiederherstellungsaufträge werden normal ausgeführt. Alle Patches von Symantec sind installiert. Dienste, Server und Bandgerät, ein HP LTO4 Bandwechselgerät, wurden im Laufe des Troubleshooting mehrfach neu gestartet.

Das Durcharbeiten der Symantec Knowledge Base führte schlussendlich durch einen Hinweis 'im Kleingedruckten' des Artikels 308627 zur Lösung:

"The above mentioned problem can occur if for some reason the Backup Exec database has the ServerStatus flag set to indicate that the server is "Paused" but the Backup Exec console is unable to display that status in the Backup Exec User Interface"

backup exec paused

Offensichtlich kann die BE Datenbank "for some reasen" inkonsistent gegenüber der Anzeige im GUI sein - mit dem Wissen, dass der Server 'angehalten' ist, ohne dass der Status GUI entsprechend angezeigt wird, ist das Problem nun schnell gelöst: Server anhalten und gleich wieder starten - und die Aufträge werden wieder ausgeführt!

Bleibt zu hoffen, dass Symantec uns zukünftig mit weniger versteckten Ostereiern beglückt...



Zentrale Ausnahmen sind im Symantec Endpoint Protection-Client nicht sichtbar

by Martin Wildi 10. September 2009 18:13

Wenn für einen Symantec Endpoint Protection-Client Ausnahmen zentral (über den Management Server) definiert werden, sind diese nicht in der SEP-Gui sichtbar:

 

Die konfigurierten Ausnahmen sind auf dem Client aber unter folgendem Registrierungsschlüssel sichtbar:

HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Symantec Endpoint Protection\AV\Exclusions\ScanningEngines



Zyxel Modem P-660ME-I V2 funktioniert nicht im Bridge-Modus

by Martin Wildi 7. September 2009 18:14

Die Zyxel Geräte können komfortabel via Web-GUI vom Routing- in den Bridge-Modus umgestellt werden. Dies funktioniert allerdings nicht immer, obwohl der Bridge-Modus korrekt im GUI angezeigt wird.

Es müssen folgende Befehle per Telnet auf dem Gerät ausgeführt werden:

sys general load 1
sys general bridge on
sys general save
sys reboot

Anschliessend kann das Modem problemlos als Bridge benutzt werden.

Das Problem scheint für eine ganze Menge anderer Modelle auch zu exisitieren:

ZyXEL P-652
ZyXEL P-653
ZyXEL P-660
ZyXEL P-661
ZyXEL P-662