' test.vbs ' ' 11/17/2006 - Initial write. ' Option Explicit Dim errReturn, strURL, strDomain ' ************************************************************************* ' Configurable Variables ' ************************************************************************* strURL = "https://abcdefghijk.com:2078/" ' This is the URL to the WebDAV share. strDomain = "abcdefghijk.com" ' 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("winmgmts:"_ & "{impersonationLevel=impersonate}!\\.\root\cimv2") ' We only care about one service, so the search is only for ' the WebClient service. Dim colServiceList Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name = 'WebClient'") ' 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 <> "Automatic" Then errReturn = objService.Change( , , , , "Automatic") End If ' Test to see if the service is currently running, if not, start it. If objService.State <> "Started" Then objService.StartService() End If Next Else WScript.Echo "Could not find WebClient service." 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("InternetExplorer.Application") objIE.Visible = false objIE.Navigate2 "about:blank" objIE.Document.write ""_ &""_ &""_ &""_ &"Click here to finish setting up your Web Folder" Dim links Set links = objIE.Document.links links(0).fireEvent("OnClick") 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 = "test.vbs" Const NETHOOD = &H13& Const MAXIMIZE_WINDOW = 3 strName = "test" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWshShell = CreateObject("WScript.Shell") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(NETHOOD) Set objFolderItem = objFolder.Self strNetHood = objFolderItem.Path 'Set objNewLinkFolder = objFSO.CreateFolder(strNetHood & "\" & strName) 'Set objDesktopIni = objFSO.CreateTextFile(strNetHood & "\" & strName & "\Desktop.ini") Set filesys = CreateObject("Scripting.FileSystemObject") path = filesys.GetAbsolutePathName(strNetHood & "\" & strDomain & "\target.lnk" ) If filesys.FileExists(path) Then strDesktop = objWshShell.SpecialFolders("Desktop") Set oMyShortCut = objWshShell.CreateShortcut(strDesktop & "\" & strName & ".lnk") oMyShortCut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,9" oMyShortCut.TargetPath = strNetHood & "\" & strDomain oMyShortCut.Description = strName oMyShortCut.Save objWshShell.Run chr(34) & strDesktop & "\" & strName & ".lnk" & chr(34), MAXIMIZE_WINDOW Else WScript.Echo "There was a problem connecting to the WebDisk service. Please make sure ports 2078 (SSL) and 2077 are not firewalled." 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