Beiträge von Mike162

Würde also so das gewünschte Ziel erreicht?

• If $Modell == $Modell_1 Then
• ;Installation
• If $Modell == $Modell_2 Then
• ;Installation
• Else
• Endif

Hi,

super Danke.

Bin schon ein ganzes Stück weiter.

Hänge nur hier was.

Abhänge Installation der Modelle zugehörig funktioniert ja.
Wie bekomme ich den Abbruch hin?

Oder ist da in der If Abfrage schon ein Fehler?

If $Modell == $Modell_1 Then
;Installation
If $Modell == $Modell_2 Then
;Installation
Else
;Abbruch
Endif

Viele Grüße

Mike

Hi,

Super hab ja prima geklappt.

Ein dickes Danke

Funktioniert dies auch wenn sich das PC Modell sprich $Modell_1 ändert (verlängert /verkürtzt)?

Danke nochmals

Mike

Hi,

bekomme die Meldung, dass es nicht die gleichen Werte sind.

Sprich zeile 10.

Bei erfolg sollte zeile 8 augegeben werden,

Irgendwo ist da noch ein Fehler, den ich nicht finde.

Sofern ich $Modell mir in die zwischenablage speichere hinter zeile 5 habe ich noch immer die Leerzeichen drin.

Viele Grüße

Mike

Hallo zusammen,

leider wurde der Betreig gelöscht.

Hier der bisherige Code:

$Modell_1 = "ESPRIMO E7935"
$Modell = ObjGet("winmgmts:\\localhost\root\CIMV2").ExecQuery("SELECT Model FROM Win32_ComputerSystem", "WQL", 0).ItemIndex(0).Model

MsgBox(0, "Computermodell",$Modell )
MsgBox(0, "Computermodell",$Modell_1 )

$Modell_2 = StringStripWS($Modell, " ")

;$result = StringCompare($Modell, $Modell_1)
clipput ($Modell_2)
;MsgBox(0, "Ergebnis des Stringvergleichs (Modus 0):", $result)
If $Modell = $Modell_1 Then
Msgbox(0,"info", "Ist gleich")
Else
Msgbox(0,"info", "Ist nicht gleich")
EndIf

Es wird leider hinter dem Computermodell sehr viele Leerzeichen mit ausgegeben.

Wie kann ich das realisieren, dass nur das Computermodell ohne Zeichen dahinter ausgegeben wird?

Der Computername sprich $Modell_1 kann sich ändern.

Ich hoffe Ihr könnt mir helfen.

Vielen Dank

Mike

Hallo zusammen,

danke für die Unterstützung.

Ich bekomme es nicht in dieses Script eingebaut.

Wie müsste das Script lauten, damit die Leerzeichen entfernt werden hinter dem Wert?

Danke

Gruße

Mike

Hi,

das hat super funktioniert.

es wird hinter der Modellbezeichnung zuviele leerzeichen ausgelesen.

Wie kann ich den Fehler beheben

Hi,

danke für die Info.

Habe es mal anders versucht:

$Modell_1 = "ESPRIMO E7935"
$Modell = ObjGet("winmgmts:\\localhost\root\CIMV2").ExecQuery("SELECT Model FROM Win32_ComputerSystem", "WQL", 0).ItemIndex(0).Model


MsgBox(0, "Computermodell",$Modell )
MsgBox(0, "Computermodell",$Modell_1 )


$result = StringCompare($Modell, $Modell_1)
MsgBox(0, "Ergebnis des Stringvergleichs (Modus 0):", $result)
If $Modell == $Modell_1 Then
Msgbox(0,"info", "Ist gleich")
Else
Msgbox(0,"info", "Ist nicht gleich")
EndIf

Mir ist nur aufgefallen, dass die MSG Box schmaler ist Inhalt identisch.

Mfg

Mike

Hallo zusammen,

danke für den Ansatz.

Ich bin ein Stück weiter gekommen.
Leider stimmt hier noch immer etwas nicht.
Sofern ich die Ausgabe aus der Msg Box vor der IF Abfrage habe funktioniert die Ausgabe.

In der IF Abfrage wird nur der Fehler ausgegeben.

Kann mir nochmal jemand helfen ?

$Modell = ObjGet("winmgmts:\\localhost\root\CIMV2").ExecQuery("SELECT Model FROM Win32_ComputerSystem", "WQL", 0).ItemIndex(0).Model
 
   IF $Modell = "ESPRIMO E7935" Then
      MsgBox(0, "Computermodell", $Modell)
      Else
         MsgBox(0, "Fehler", "PC -Modell nicht erkannt")


EndIf

Vielen Dank

Mike

Hallo,

habe ein kleines Problem wo ich derzeit nicht weiter komme.

Ich muss ein PC Modell auslesen und dieses Vergleichen.

run(@ComSpec & " /c " & '"wmic.exe" computersystem get model >' & @ScriptDir & '\Model.txt')


;Datei einlesen
$f = FileOpen("C:\Users\admin\Desktop\Model.txt")


; 2. Zeile der Datei auslesen
$line = FileReadLine($f,2)


; Test
 ;Msgbox(64,"Info",$line)


;Abfrage
If $line = "ESPRIMO E7935" Then
   Run (@ComSpec & " /c " & 'mkdir C:\test', "", @SW_HIDE)
EndIf
;FileHandle schließen
FileClose($f)

Testweise hatte ich die Ausgabe einer MSg Box versucht fenster geht auf es steht aber nichts drin.

Die Datei wird auch nicht angelegt.

Kann mir hier vielleicht jemand helfen?

Vielen Dank

Mike