IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

VBS / if x contains "y"


Sujet :

VBScript

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Décembre 2008
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2008
    Messages : 5
    Par défaut VBS / if x contains "y"
    Hello,

    j'ai ce script:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colDiskPartitions = objWMIService.ExecQuery _
        ("Select * from Win32_DiskPartition")
    For each objPartition in colDiskPartitions
        Wscript.Echo "Device ID: " & objPartition.DeviceID       
    	Wscript.Echo "=============================================" & vbcr
        Wscript.Echo "  Number Of Blocks:  " & objPartition.NumberOfBlocks     
        Wscript.Echo "  Block Size:        " & objPartition.BlockSize & " KB"
        Wscript.Echo "  Total Volume Size: " & Round( (objPartition.Size/1024/1024/1024), 0) & " GB" 
        Wscript.Echo "  Type:              " & objPartition.Type 
        Wscript.Echo "  Starting Offset:   " & objPartition.StartingOffset & " (" & objPartition.StartingOffset/1024 & " KB)"
    	If ( (objPartition.StartingOffset Mod 1024) = 0) Then
    		Wscript.Echo "  Disk Alignment:    Aligned"
    		If ( (objPartition.StartingOffset / 1024) < 1024 ) Then
    			Wscript.Echo vbCrLf & "  * Please note, this is not necessarly a problem, however we noticed" & _
    			vbCrLf & "    your starting offset is less than the Microsoft recommended size" & _
    			vbCrLf & "    of 1024 KB.  Please see Microsoft's KB article 929491 for " & _
    			vbCrLf & "    additional details."
    		End If
    	Else
    		Wscript.Echo "  Disk Alignment:    NOT ALIGNED!!"
    	End If
     
    	Wscript.Echo ""
    Next

    ... ou j'ai besoin de n'afficher qu'un seul HD et non tous, j'aurais aimé
    inclure entre

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    For each objPartition in colDiskPartitions
        Wscript.Echo "Device ID: " & objPartition.DeviceID
    un genre de "if objPartition.DeviceID contains 'INTEL SSD' then"
    mais je ne sais pas le faire, des pistes ?

    j'ai essayé ce qui suit mais ca marche pas :-(
    D:\align.vbs(29, 11) Erreur de compilation Microsoft VBScript: Fin d'instruction
    attendue

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colDiskPartitions = objWMIService.ExecQuery _
        ("Select * from Win32_DiskPartition")
    For each objPartition in colDiskPartitions
    
      Dim str As String 
    >>>>>>>>>> la ligne 29 est celle au dessus ;)
      str = result.objPartition.DeviceID
      If str.Contains("INTEL SSD") = True Then
    
        Wscript.Echo "Device ID: " & objPartition.DeviceID       
    	Wscript.Echo "=============================================" & vbcr
        Wscript.Echo "  Number Of Blocks:  " & objPartition.NumberOfBlocks     
        Wscript.Echo "  Block Size:        " & objPartition.BlockSize & " KB"
        Wscript.Echo "  Total Volume Size: " & Round( (objPartition.Size/1024/1024/1024), 0) & " GB" 
        Wscript.Echo "  Type:              " & objPartition.Type 
        Wscript.Echo "  Starting Offset:   " & objPartition.StartingOffset & " (" & objPartition.StartingOffset/1024 & " KB)"
    	If ( (objPartition.StartingOffset Mod 1024) = 0) Then
    		Wscript.Echo "  Disk Alignment:    Aligned"
    		If ( (objPartition.StartingOffset / 1024) < 1024 ) Then
    			Wscript.Echo vbCrLf & "  * Please note, this is not necessarly a problem, however we noticed" & _
    			vbCrLf & "    your starting offset is less than the Microsoft recommended size" & _
    			vbCrLf & "    of 1024 KB.  Please see Microsoft's KB article 929491 for " & _
    			vbCrLf & "    additional details."
    		End If
    	Else
    		Wscript.Echo "  Disk Alignment:    NOT ALIGNED!!"
    	End If
    
    	Wscript.Echo ""
    
    
      End If
    
    
    
    Next
    ps: je n'y connais rien dans ce language

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    voir instr..

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo