Latest ads

🔒 NordVPN Premium – 3 Months
- hrdilshan
- Updated: Thursday at 8:29 PM
🚀 Microsoft Office 365 Pro Plus – Lifetime Access! 🚀
- hrdilshan
- Updated: Thursday at 8:28 PM
Linkedin Premium Business / Careere /Sales Navigator - 1/2/3/6/9/12 Months - Reddem Link
- hrdilshan
- Updated: Thursday at 8:27 PM
Colombo YEYE 3 in 1 Instant Coffee Mix 50 Sachet
- Romeshka
- Updated: Wednesday at 12:16 AM
Colombo Red Hat Certified System Administrator (RHCSA) - RHEL 10
- Sanjeewani95
- Updated: Jul 3, 2026

Reply to thread

Message: <blockquote data-quote="romero2005" data-source="post: 4758850" data-attributes="member: 3944"><p><span style="font-family: 'Franklin Gothic Medium'"><span style="font-size: 15px"><span style="color: DimGray">Map a network drive to the User name</span></span></span></p><p></p><p><span style="font-size: 10px"><span style="color: DarkRed">Option Explicit</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">Dim objNetwork</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">Dim strDriveLetter, strRemotePath, strUserName</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">strDriveLetter = "J:"</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">strRemotePath = "\\Server\home"</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed"></span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">' Purpose of script to create a network object. (objNetwork)</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">' Then to apply the MapNetworkDrive method. Result J: drive</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">Set objNetwork = WScript.CreateObject("WScript.Network")</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">' Here is where we extract the UserName</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">strUserName = objNetwork.UserName</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">& "\" & strUserName</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed"></span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">' Extra code just to add a message box</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">WScript.Echo " Launch Abel Training, Welcome to ABEL Training Service check: "& strDriveLetter</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed">WScript.Quit</span></span></p><p><span style="font-size: 10px"><span style="color: DarkRed"></span></span></p><p><span style="color: DarkGreen"><span style="font-size: 15px"><span style="font-family: 'Franklin Gothic Medium'"></span></span></span></p><p><span style="color: DarkGreen"><span style="font-size: 15px"><span style="font-family: 'Franklin Gothic Medium'">Mage Server name eka "Server" Shared file eka "home" THis is for my final Project.</span></span></span></p></blockquote><p></p>

Verification: Haya warak paha keeyada? (haya wadi kireema paha)

Top Bottom