'Establish a communication channel to prevent log in to the web server using different users and passwords, and the program will automatically establish a communication channel through the USE command and the username and password provided. ON Error ResMe next
Set objshell = creteObject ("shell.application") objshell.shellexecute "net", "use //10.164.223.6 gis / user: administrator",, 0 'Last parameter 0 represents NET's run window hidden and gets focus' (gis for password, administrator as username) IF err.Number <> 0 THEN MSGBOX "No connection" window.status = (") end if set objshell = nothing
