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. |
Forenübersicht Suchen Forumsregeln
Vol.6
Sie sind aktuell nicht angemeldet.
