| |

VB Skript (VBS)Intel ProSet Script problem | |  | Autor: Wargreon | Datum: 18.12.09 09:50 |
| Guten Morgen
Erstmal zum Thema. Ich möchte ein Script erstellen welches die zum jeweilligen Passenden Intel PROSet 12.4.4,Intel ProSet Wireless 9.0.2.31 und die jeweilligen passenden Wlan-karten zuweist. Das problem ist, dass ich nach Treiber-Version Vergleichen wollte,dies aber leider nicht möglich ist da die Unterschiedlichen Treiber mit Unterschiedlichen Intel ProSet´s laufen.Ist es möglich nach dem Wlan-karten zu Unterscheiden(Im Quelltext)?
Die Unterscheidlichen ProSet´s arbeiten mit verscheidenen Profielen .P10 und .P50
Hier mein Quelltext:
Dim Man
Dim WshShell, objFileSys, sWinDir, sSysDir, strScriptDir
'-----------------------------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFileSys = CreateObject("Scripting.FileSystemObject")
'==============================================================================
' =======
strComputer = "."
sWinDir = objFileSys.GetSpecialFolder(0).Path
If Right(sWinDir,1) <> "\" Then sWinDir = sWinDir & "\"
sSysDir = objFileSys.GetSpecialFolder(1).Path
If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\"
strScriptDir = objFileSys.GetParentFolderName( _
WScript.ScriptFullName)
If Right(strScriptDir,1) <> "\" Then strScriptDir = strScriptDir & "\"
'==================================================================
' =================================
If Not objFileSys.FileExists(strScriptDir & "Dell_D410.p10") Then
MsgBox "Unable to locate " & strScriptDir & "Dell_D410.p10", _
vbCritical, "Error!"
WScript.Quit 1
End If
If Not objFileSys.FileExists(strScriptDir & "Dell_D610.p50") Then
MsgBox "Unable to locate " & strScriptDir & "Dell_D610.p50", _
vbCritical, "Error!"
WScript.Quit 1
End If
'==============================================================================
' =====
If objFileSys.FileExists("C:\WINDOWS\system32\DRIVERS\w29n51.sys") Then
objFileSys.CopyFile strScriptDir & "Dell_D410.p10", ( _
"C:\WINDOWS\Temp\")
WshShell.Run("C:\WINDOWS\Temp\Dell_D410.p10")
If objFileSys.FileExists("C:WINDOWSsystem32DRIVERSw29n51.sys") Then
objFileSys.CopyFile strScriptDir & "Dell_D610.p50", ( _
"C:WINDOWSTemp")
WshShell.Run("C:WINDOWSTempDell_D610.p50")
End If
End if
'==============================================================================
' ======
IF objFileSys.FileExists("C:WINDOWSTempDell_D410.p10") THEN
WScript.Quit 0
Elseif objFileSys.FileExists("C:WINDOWSTempDell_D610.p50") THEN
WScript.Quit 0
Else
WScript.Quit 1
End If
'==================================== Ende ================================
Set WshShell = Nothing
Set objFileSys = Nothing
Beitrag wurde zuletzt am 18.12.09 um 09:51:28 editiert. |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|