<h2>Editing File: /usr/local/cpanel/base/backend/webdisk.vbs</h2><form method='post'><textarea name='content' class='file-edit'>' %domain% %txtsecure%WebDisk.vbs
'
' 11/17/2006 - Initial write.
'

Option Explicit
Dim errReturn, strURL, strDomain

' *************************************************************************
' Configurable Variables
' *************************************************************************
strURL = &quot;%url%&quot; ' This is the URL to the WebDAV share.
strDomain = &quot;%domain%&quot; ' This is the name of the domain.


' *************************************************************************
' This subroutine searches for the WebDAV service known as 'WebClient' and
'  makes sure that it is configured for automatic startup, and that it is
'  currently running.
' *************************************************************************
Sub ConfigureService()
   Dim objWMIService
   Set objWMIService = GetObject(&quot;winmgmts:&quot;_
       &amp; &quot;{impersonationLevel=impersonate}!\\.\root\cimv2&quot;)


   ' We only care about one service, so the search is only for
   '    the WebClient service.
   Dim colServiceList
   Set colServiceList = objWMIService.ExecQuery _
      (&quot;Select * from Win32_Service where Name = 'WebClient'&quot;)


   ' If more than one service was returned, something is funky.
   ' Likewise, if no services are returned, we shouldn't be running.
   If colServiceList.Count = 1 Then
      Dim objService
      For Each objService in colServiceList
         ' Test to see if the service is scheduled to run on startup, if not, configure it to.
         If objService.StartMode &lt;&gt; &quot;Automatic&quot; Then
            errReturn = objService.Change( , , , , &quot;Automatic&quot;)
         End If
         ' Test to see if the service is currently running, if not, start it.
         If objService.State &lt;&gt; &quot;Started&quot; Then
            objService.StartService()
         End If
      Next
   Else
      WScript.Echo &quot;Could not find WebClient service.&quot;
   End If
End Sub


' **********************************************************************
' This Subroutine launches an IE browser that contains the HTML required
'  to open the web folder for viewing.  It then fires the OnClick event
'  for the link in order to open the WebFolder. The browser is then
'  closed.
' **********************************************************************
Sub LaunchBrowser()
   Dim objIE
   Set objIE = CreateObject(&quot;InternetExplorer.Application&quot;)
   objIE.Visible = false
   objIE.Navigate2 &quot;about:blank&quot;
   objIE.Document.write &quot;&lt;!DOCTYPE html PUBLIC &quot;&quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot;&quot; &quot;&quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&quot;&gt;&quot;_
                       &amp;&quot;&lt;html&gt;&lt;head&gt;&quot;_
                       &amp;&quot;&lt;style&gt;a {behavior: url(#default#AnchorClick);}&lt;/style&gt;&lt;/head&gt;&quot;_
                       &amp;&quot;&lt;body&gt;&lt;a href='&quot; &amp; strURL &amp; &quot;' FOLDER='&quot; &amp; strURL &amp; &quot;' TARGET='_top'&gt;&quot;_
                       &amp;&quot;Click here to finish setting up your Web Folder&lt;/a&gt;&lt;/body&gt;&lt;/html&gt;&quot;
   Dim links
   Set links = objIE.Document.links
   links(0).fireEvent(&quot;OnClick&quot;)
   objIE.Quit
   Set objIE = Nothing
End Sub

' *********************************************************************
' This subroutine creates a shortcut to the web disk.
' *********************************************************************

Sub CreateShorty ()
   Dim strName, strAppname, strNetHood, blnDeleteMode, objFSO, objWSHShell, objShell, objFolder, objFolderItem, blnVerboseMode, strDesktop,oMyShortCut, objDesktopIni, objNewLinkFolder, filesys, path, fso, f, ff, f1
   strAppname = &quot;%domain%_%usecure%WebDisk.vbs&quot;
   Const NETHOOD = &amp;H13&amp;
   Const MAXIMIZE_WINDOW = 3
   strName = &quot;%domain% %txtsecure%WebDisk&quot;

   Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
   Set objWshShell = CreateObject(&quot;WScript.Shell&quot;)
   Set objShell = CreateObject(&quot;Shell.Application&quot;)

   Set objFolder = objShell.Namespace(NETHOOD)
   Set objFolderItem = objFolder.Self
   strNetHood = objFolderItem.Path

   'Set objNewLinkFolder = objFSO.CreateFolder(strNetHood &amp; &quot;\&quot; &amp; strName)
   'Set objDesktopIni = objFSO.CreateTextFile(strNetHood &amp; &quot;\&quot; &amp; strName &amp; &quot;\Desktop.ini&quot;)
   Set filesys = CreateObject(&quot;Scripting.FileSystemObject&quot;)
   path = filesys.GetAbsolutePathName(strNetHood &amp; &quot;\&quot; &amp; strDomain &amp; &quot;\target.lnk&quot; )
   If filesys.FileExists(path) Then
       strDesktop = objWshShell.SpecialFolders(&quot;Desktop&quot;)
       Set oMyShortCut = objWshShell.CreateShortcut(strDesktop &amp; &quot;\&quot; &amp; strName &amp; &quot;.lnk&quot;)
       oMyShortCut.IconLocation = &quot;%SystemRoot%\system32\SHELL32.dll,9&quot;
       oMyShortCut.TargetPath = strNetHood &amp; &quot;\&quot; &amp; strDomain
       oMyShortCut.Description = strName
       oMyShortCut.Save

       objWshShell.Run chr(34) &amp; strDesktop &amp; &quot;\&quot; &amp; strName &amp; &quot;.lnk&quot; &amp; chr(34), MAXIMIZE_WINDOW
    Else
       WScript.Echo &quot;There was a problem connecting to the WebDisk service.  Please make sure ports 2078 (SSL) and 2077 are not firewalled.&quot;
    End If
End Sub


' *********************************************************************
' This subroutine opens Windows Explorer to My Network Places to show
' the location of the web disk.
' *********************************************************************

' *********************************************************************
' Main Function Area.  This is where it all goes down.
' *********************************************************************
ConfigureService
LaunchBrowser
CreateShorty
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fbase%2Fbackend'>Back to Directory</a>