<h2>Editing File: /usr/local/cpanel/base/backend/webdisk-vista.vbs</h2><form method='post'><textarea name='content' class='file-edit'>' %fileName%
'
' 11/17/2006 - Initial write.
' 05/17/2012 - Update for Vista/Win7/Win8

Option Explicit
Dim errReturn, strURL, strDomainPort

' *************************************************************************
' Configurable Variables
' *************************************************************************
strURL = &quot;%uri%&quot; ' This is the URL to the WebDAV share.
strDomainPort = &quot;%domainPort%&quot;


' *************************************************************************
' 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;%webClientError%&quot;
   End If
End Sub

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

Sub CreateShorty ()
   Dim strName, blnDeleteMode, objWSHShell, strDesktop, oMyShortCut

   MsgBox &quot;%webdiskMessage%&quot;, 64, &quot;%webdiskTitle%&quot;

   strName = &quot;%shortCut%&quot;
   Set objWshShell = CreateObject(&quot;WScript.Shell&quot;)
   Const MAXIMIZE_WINDOW = 3

   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 = strURL
   oMyShortCut.Description = strName
   oMyShortCut.WorkingDirectory = strDomainPort
   oMyShortCut.Save

   objWshShell.Run chr(34) &amp; strDesktop &amp; &quot;\&quot; &amp; strName &amp; &quot;.lnk&quot; &amp; chr(34), MAXIMIZE_WINDOW

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
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>