End Sub
Sub CheckVars()
If sCollName = "" Then
WScript.Quit
Else
sCollName = Trim(sCollName)
End If
If sVirDir = "" Then
sVirDir = "vcmremote/ecmremotehttp.asp"
Else
sVirDir = Trim(sVirDir)
End If
If sInstallDir = "" Then
sInstallDir = "c:\vcm remote client"
Else
sInstallDir = Trim(sInstallDir)
End If
If sAddRemove <> 0 And sAddRemove <> 1 Then
sAddRemove = 1 'Set whether or not VCM Remote appears in the Add/Remove
programs list. 1=display, 0=do not display
End If
If sAddRemove = "" Then
sAddRemove = 1
End If
If IsNumeric(sAddRemove) = False Then
sAddRemove = 1
End If
sAddRemove = Trim(sAddRemove)
Getting Started with VCM Remote
VMware, Inc. 177
Commentaires sur ces manuels