sdk/samples/Cardspace_samples/TechnologySamples/CardSpace/CreatingManagedCards/VB/scripts/Install-website.vbs

   1 'use common library
   2 ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile( left( WScript.ScriptFullName , len (WScript.ScriptFullName) -len( WScript.ScriptName ) ) & "\vb-script-library.vbs",1).ReadAll()
   3 InitScript("Website Installation")
   4
   5
   6 function GetWebPath( )
   7         GetWebPath= fso.GetFolder(GetScriptPath).ParentFolder & "\website"
   8 end function
   9
  10 '---------------------------------------------------------------------------------
  11 REM SCRIPT STARTS HERE :D
  12 On Error Resume Next
  13 Dim folder
  14 Dim subfolders
  15 Dim Link
  16
  17 Set subfolders = fso.GetFolder(GetWebPath).SubFolders
  18 For Each folder in subfolders
  19     DeleteVirtualWebDir folder.name
  20     CreateVirtualWebDir folder.name,GetWebPath & "\"&folder.name
  21 Next
  22
  23 SetSSLSite "www.fabrikam.com"
  24
  25 On Error GoTo 0
  26 Set Link = wso.CreateShortcut( wso.SpecialFolders("Desktop") & "\" &  fso.GetFolder(GetScriptPath).ParentFolder.Name & " Sample Website.lnk")
  27 Link.TargetPath = "c:\Program Files\Internet Explorer\iexplore.exe"
  28 Link.Arguments = "https://www.fabrikam.com/CardSpace/"
  29 Link.Description = fso.GetFolder(GetScriptPath).ParentFolder.Name & " Start Page"
  30 Link.Save
  31
  32 Set Link = wso.CreateShortcut(wso.SpecialFolders("Desktop") & "\" &  fso.GetFolder(GetScriptPath).ParentFolder.Name & " Sample Files.lnk")
  33 Link.TargetPath = fso.GetFolder(GetScriptPath).ParentFolder
  34 Link.Description = fso.GetFolder(GetScriptPath).ParentFolder.Name & " Sample Files"
  35 Link.Save
  36
  37 wso.run("https://www.fabrikam.com/CardSpace/")
  38
  39 finished