Software-Management » Variable übergeben

DX-Union Community � Client & Server Automation � Software-Management � Variable übergeben

Themen-Einstellungen

Bereich wechseln

Allgemein News FAQ Client & Server Automation OS-Installation Software-Management Patch-Management Inventory Mobile-Device-Management Allgemein User & Workplace Automation User-Management Printer-Management Share-Management Device-Management Allgemein Service & Support Service Desk Allgemein

#1 | Variable übergeben datum

22.11.2016 11:03

Kilian Schäfer

Informationen anzeigen

Beitr�ge:	15
Registriert seit:	21.11.2016
Wohnort:	Greven

Hallo,

weiß jemand, wie ich die Variable "sBiosKey" an den Befehl in Zeile 6 übergeben kann?

1
2
3
4
5
6
7
8
 
'Variable sBiosKey definieren
Dim sBiosKey As Long
'Key aus BIOS auslesen und in die Variable "sBiosKey" schreiben
sBiosKey = wexec32("""C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe""", "(Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey", SW_NORMAL)
'Produktkey aus der Variable "sBiosKey" installieren 
wexec32("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe", "slmgr.vbs -ipk sBiosKey", SW_NORMAL)
'Windows aktivieren
wexec32("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe", "slmgr.vbs -ato", SW_NORMAL)
 

Danke und Gruß
Kilian Schäfer

Antworten

#2 | RE: Variable übergeben datum

22.11.2016 13:37

Hallo Herr Schäfer,

zunächst mal glaube ich dass Ihr Powershellaufruf nicht das gewünschte Ergebnis liefert. Was genau soll der Aufruf denn wiedergeben?
Dann wäre es sinnvoller, diesen Wert direkt per SaxBasic zu ermitteln. (Registry auslesen oder per WMI Object)
Und ein VBS Script aus einem Powershell Kommando über ein Wexec32 zu starten, erscheint auch etwas 'seltsam'. Das könnte man, wenn man denn unbedingt Powershell nutzen muss, auch alles hintereinander in einer Zeile pipen.
Wenn Sie mir etwas genauer darlegen was Sie erreichen möchten, kann ich Ihnen da evtl. einen Codesschnipsel für zur Verfügung stellen.

Mit freundlichen Grüßen

Andreas
Senior Support Specialist
Product Development & Support
Business Line IT-Factory
________________________________________________
MATERNA GmbH
Information & Communications

Telefon: +49 231 5599-111
E-Mail: dxu2nd@materna.de
_______________________________________________
Hauptsitz der MATERNA GmbH: Voßkuhle 37, 44141 Dortmund
Geschäftsführer: Helmut Binder, Ralph Hartwig
Amtsgericht Dortmund HRB 5839

Antworten

#3 | RE: Variable übergeben datum

22.11.2016 15:03

Kilian Schäfer

Informationen anzeigen

Beitr�ge:	15
Registriert seit:	21.11.2016
Wohnort:	Greven

Hallo Andreas,

danke für die schnelle Rückmeldung. Der Powershellaufruf

1
 
Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey

gibt den Produktkey im Format XXXXX-XXXXX-XXXXX-XXXXX-XXXXX aus, aber nur, wenn ein Key im Bios vorhanden ist. Andernfalls ist die Rückgabe leer. Powershell muss ich nicht nutzen, von daher nehme ich Ihr Angebot gerne an.
Erreichen möchte ich folgendes:
Wir bekommen unsere Notebooks mit OEM Lizenzen und der Lizenzschlüssel ist im BIOS verankert. Im Windows 10 Image wird der generische Schlüssel W269N-WFGWX-YVC9B-4J6C9-T83GX per Parameter mitgegeben. Um das Windows 10 Image auf dem Notebook zu aktivieren, muss ich zuerst den generischen Schlüssel löschen, dann den Key aus dem BIOS auslesen und "eingeben" und abschließend Windows aktivieren.

Vielen Dank im Voraus.

Mit freundlichen Grüßen
Kilian Schäfer

Antworten

#4 | RE: Variable übergeben datum

22.11.2016 16:37 (zuletzt bearbeitet: 22.11.2016 16:39)

Andreas

Informationen anzeigen

Beitr�ge:	591
Registriert seit:	12.07.2011
Wohnort:	Dortmund

Hallo Herr Schäfer,

mit dem folgenden ungetesteten Basic Scriptschnipsel ermitteln Sie den Produktkey in die Variable sBiosKey und führen damit eine Aktivierung durch:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Main
	On Error Resume Next	
	
	Dim sComputer, sBiosKey As String
	Dim oWMIService, oColItems As Object
	
	sComputer = "."
	Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
		
	Set oColItems = oWMIService.ExecQuery("SELECT OA3xOriginalProductKey FROM SoftwareLicensingService")	
	sBiosKey = oColItems.ItemIndex(0).OA3xOriginalProductKey
		
	If(sBiosKey <> "") Then
		'MsgBox sBiosKey
		'Produktkey aus der Variable "sBiosKey" installieren 
		wexec32("C:\Windows\System32\cscript.exe", "//nologo slmgr.vbs -ipk " & sBiosKey, SW_HIDE)
		'Windows aktivieren
		wexec32("C:\Windows\System32\cscript.exe", "//nologo slmgr.vbs -ato", SW_HIDE)			
	Else
		'MsgBox " Kein Key im Bios gefunden"
		' ..... Abbruch und Logeintrag setzen
	End If
	
End Sub
 

Antworten

#5 | RE: Variable übergeben datum

23.11.2016 14:39

Danke, hat auf Anhieb funktioniert :)

Antworten

DX-Union Updateinstallation � � Verfügbare Lizenzen für Softwarpakete