Appelez le script pour arrêter avec l'attribut dans wWWHomePage

Question

Je reçois un message d'erreur à la ligne 8 lorsque j'essaie d'appeler le script pour qu'il s'arrête lorsqu'il trouve l'attribut dans la page Web: champ dans AD.

 
Set objSysInfo = CreateObject("ADSystemInfo") 
strUserDN = objSysInfo.UserName 
Set objUser = GetObject("LDAP://" & strUserDN) 


strwWWHomePage = objItem.Get("wWWHomePage") 
If wWWHomePage 6 Then 
    wscript.quit 
Else 
    Set ppt = CreateObject("PowerPoint.Application") 
    ppt.Visible = True 
    ppt.Presentations.Open "\\abngan01\tracking\ppt.pptx" 
End If 

Answer 1

Vous avez:

Si wWWHomePage 6 Puis

Je suppose que vous voulez dire:

If wWWHomePage = 6 Then 

Depuis disparus "=" sera provoquer une erreur, mais puisque ce code ne fait vraiment rien, sinon que d'annuler le script, vous pourriez sim Plify votre code en ne prenant des mesures si cette valeur est pas définie, par exemple:

If objItem.Get("wWWHomePage") <> 6 Then 
    Set ppt = CreateObject("PowerPoint.Application") 
    ppt.Visible = True 
    ppt.Presentations.Open "\\abngan01\tracking\ppt.pptx" 
End If 

Je suis aussi en supposant que « 6 » est une sorte de drapeau que vous avez vous-même défini, vous pouvez utiliser quelque chose d'un un peu plus descriptif comme "PPTSTATUS006", ou quelque chose du genre.