'Create mapped drive configuration file
'Get program location from Registry
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
'strKeyPath = "SOFTWARE\Quantum Tech, Inc.\Remote Backup\Settings"
strKeyPath = "SOFTWARE\Wow6432Node\Quantum Tech, Inc.\Remote Backup\Settings"
strEntryName = "ClientDB"
objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue
PreFile = strValue & "\" & "pre-rbs.bat"
'Wscript.Echo "pre-rbs.bat located at: = " & PreFile
'open pre-rbs file for writing. will overwrite what is already there!
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(PreFile, ForAppending)
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
DriveCount = 0
objFile.Write VbCrLf
objFile.Writeline "REM - Drive definitions update: " & Now() 
objFile.Writeline "Echo Perform drive mapping. >> pre-rbs.log"
MaxNest = 40
For i = 0 to oDrives.Count - 1 Step 2
  If Len(oDrives.Item(i)) > 0 Then
    Slashcount = 0
    For j = 1 to len(oDrives.Item(i+1))
      if mid(oDrives.item(i+1),j,1) = "\" then
        Slashcount = Slashcount + 1
      End If
    next
    If Slashcount < MaxNest Then
      objFile.Writeline "Net Use " & oDrives.Item(i) & " " & """" & oDrives.Item(i+1) & """" & " /persistent:yes" & " >> pre-rbs.log" 
      DriveCount = Drivecount + 1
    End If
  End If
Next
objFile.Writeline "Net Use >> pre-rbs.log"
objFile.Writeline "Echo Drive mappings completed. >> pre-rbs.log"
objFile.Close
Wscript.Echo "Added " & DriveCount & " Drive Mappings to " & PreFile
Wscript.Quit
'' SIG '' Begin signature block
'' SIG '' MIIOwAYJKoZIhvcNAQcCoIIOsTCCDq0CAQExCzAJBgUr
'' SIG '' DgMCGgUAMGcGCisGAQQBgjcCAQSgWTBXMDIGCisGAQQB
'' SIG '' gjcCAR4wJAIBAQQQTvApFpkntU2P5azhDxfrqwIBAAIB
'' SIG '' AAIBAAIBAAIBADAhMAkGBSsOAwIaBQAEFLPWF1VrENH+
'' SIG '' jMDy9eMiujJEZpSooIIJMzCCBFwwggNEoAMCAQICEE9j
'' SIG '' 0DD4FaOls0RpQAY9FokwDQYJKoZIhvcNAQEFBQAwgZUx
'' SIG '' CzAJBgNVBAYTAlVTMQswCQYDVQQIEwJVVDEXMBUGA1UE
'' SIG '' BxMOU2FsdCBMYWtlIENpdHkxHjAcBgNVBAoTFVRoZSBV
'' SIG '' U0VSVFJVU1QgTmV0d29yazEhMB8GA1UECxMYaHR0cDov
'' SIG '' L3d3dy51c2VydHJ1c3QuY29tMR0wGwYDVQQDExRVVE4t
'' SIG '' VVNFUkZpcnN0LU9iamVjdDAeFw0wNTA1MTcwMDAwMDBa
'' SIG '' Fw0xMDA1MTYyMzU5NTlaMH4xCzAJBgNVBAYTAkdCMRsw
'' SIG '' GQYDVQQIExJHcmVhdGVyIE1hbmNoZXN0ZXIxEDAOBgNV
'' SIG '' BAcTB1NhbGZvcmQxGjAYBgNVBAoTEUNvbW9kbyBDQSBM
'' SIG '' aW1pdGVkMSQwIgYDVQQDExtDb21vZG8gVGltZSBTdGFt
'' SIG '' cGluZyBTaWduZXIwggEiMA0GCSqGSIb3DQEBAQUAA4IB
'' SIG '' DwAwggEKAoIBAQC8NaA2cCKBEcOyg7nTKMY2zSVrqXuy
'' SIG '' HPabUZzvNfTtCI5eOAj4dzwKQuDzcNyj18r1TAvP/yKc
'' SIG '' Cn5o1gmiKoR7pp20qcEz4u8fF0jKOs1G5sWqd73jd5r6
'' SIG '' R1NAKFlDk/GkgervgLVPpwjOum68ynYMl2RZhiS7PYKQ
'' SIG '' qFWxktOgpwWsn1MlCBBHmc2Y3mjltFB4o68BzFlDWOR2
'' SIG '' bn6sx+KeH0+wRy3IDKNJJ4B1jLsGkWUPkJv0utGByFxq
'' SIG '' 7BTpJQm/Ixb0lUZAQCG7g5b9hh96yA0QjqL4GQdYf5+9
'' SIG '' NwJg8qTpnUQ/MAXkp3CZUZroF/FVyrJhiWVGp2ryWEZ+
'' SIG '' qqAHAgMBAAGjgb0wgbowHwYDVR0jBBgwFoAU2u1kdBSc
'' SIG '' FDyr3ZmpvVsoTYs8ydgwHQYDVR0OBBYEFC4tsApEStOH
'' SIG '' wAIHzpd9UGIg/Q+DMA4GA1UdDwEB/wQEAwIGwDAMBgNV
'' SIG '' HRMBAf8EAjAAMBYGA1UdJQEB/wQMMAoGCCsGAQUFBwMI
'' SIG '' MEIGA1UdHwQ7MDkwN6A1oDOGMWh0dHA6Ly9jcmwudXNl
'' SIG '' cnRydXN0LmNvbS9VVE4tVVNFUkZpcnN0LU9iamVjdC5j
'' SIG '' cmwwDQYJKoZIhvcNAQEFBQADggEBAEqP/B4wqDx16Efn
'' SIG '' c66waXqyTbxQ1pqPgbZgKvcCpUg6HhXHGGscGKTJ3/3x
'' SIG '' zve4KtZtp83lfSE9Hj90yKK4eZYoruH6c0Pyer6ALmcE
'' SIG '' 2hf6nlqW9Zxtfn6MbIEnUH9o2In6fQRZZw8tdOSZh9fB
'' SIG '' 4V0RSib3JhCAZ8LD9880G8R5IcxgNb+pYHeey7xSMiJs
'' SIG '' rdrfbd3zLjbNxadU4PSkzOP11GJPmQYM5W9ZbxHHz1gk
'' SIG '' v68lHUURd5llrjHUXUidjMNycimZ5QrxucxaPEjT/0DO
'' SIG '' zRADPb8znAjzECIqR7B3K+5bTmXg0yM8A8TPLkViaQ4b
'' SIG '' 0gv58yAPUxrQfHHxONAwggTPMIIDt6ADAgECAhEAsKG1
'' SIG '' /7kHRxvJ8J04Yo7eBjANBgkqhkiG9w0BAQUFADCBlTEL
'' SIG '' MAkGA1UEBhMCVVMxCzAJBgNVBAgTAlVUMRcwFQYDVQQH
'' SIG '' Ew5TYWx0IExha2UgQ2l0eTEeMBwGA1UEChMVVGhlIFVT
'' SIG '' RVJUUlVTVCBOZXR3b3JrMSEwHwYDVQQLExhodHRwOi8v
'' SIG '' d3d3LnVzZXJ0cnVzdC5jb20xHTAbBgNVBAMTFFVUTi1V
'' SIG '' U0VSRmlyc3QtT2JqZWN0MB4XDTA4MDUxMzAwMDAwMFoX
'' SIG '' DTA5MDUxMzIzNTk1OVowgZUxCzAJBgNVBAYTAlVTMQ4w
'' SIG '' DAYDVQQRDAUyMDcyMzELMAkGA1UECAwCTUQxDzANBgNV
'' SIG '' BAcMBkxhdXJlbDEeMBwGA1UECQwVODQwNSBDaGVycnkg
'' SIG '' TGF1cmVsIEN0MRswGQYDVQQKDBJEb2N0b3IgQmFja3Vw
'' SIG '' LCBMTEMxGzAZBgNVBAMMEkRvY3RvciBCYWNrdXAsIExM
'' SIG '' QzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEB
'' SIG '' ANUesW5plElQlUWrkQVxAnBimvzNBvkFGXOIhiWOLBym
'' SIG '' etXRA6FeVwy2n3R1vkcIb34nncgvgF908m+9vEkuzNN6
'' SIG '' l6Py1pu5ocP/DImKWuR/EH4ewSP8A9RMVU1IISzBs0TV
'' SIG '' wwYkRZmfRk/bS0tNPz75Scp/+OyglSVeb6pD299KXpgX
'' SIG '' VGmt22f1BbMUkNjUxfjwHRZy6Yq+OoeIH8OHoGp/vhPq
'' SIG '' MUg4H38x4yCH6bFr/Hrx5Uv2/qC9kYDmDWUPTK6j2GVc
'' SIG '' qhVyldtUPEN61WSLTPlCQCTKPqd9RXNuXT4JX+xTA3EL
'' SIG '' 5mupu20LLsXn/yH4UYLxoOlo5ORINXpVVZECAwEAAaOC
'' SIG '' ARYwggESMB8GA1UdIwQYMBaAFNrtZHQUnBQ8q92Zqb1b
'' SIG '' KE2LPMnYMB0GA1UdDgQWBBSi6EMt5OrxoiGvgE1rjI5+
'' SIG '' pZcgjDAOBgNVHQ8BAf8EBAMCB4AwDAYDVR0TAQH/BAIw
'' SIG '' ADATBgNVHSUEDDAKBggrBgEFBQcDAzARBglghkgBhvhC
'' SIG '' AQEEBAMCBBAwRgYDVR0gBD8wPTA7BgwrBgEEAbIxAQIB
'' SIG '' AwIwKzApBggrBgEFBQcCARYdaHR0cHM6Ly9zZWN1cmUu
'' SIG '' Y29tb2RvLm5ldC9DUFMwQgYDVR0fBDswOTA3oDWgM4Yx
'' SIG '' aHR0cDovL2NybC51c2VydHJ1c3QuY29tL1VUTi1VU0VS
'' SIG '' Rmlyc3QtT2JqZWN0LmNybDANBgkqhkiG9w0BAQUFAAOC
'' SIG '' AQEAQOexgrzp232z6iiZdozNo5uKWWRYevsPhGC+Tj5i
'' SIG '' TgQNHGlRY32gceRY2v1/KIOsJGXgEZGTK5ZF4e/CVJnZ
'' SIG '' zhUj9gRtx30/1zT2Aj9Cf4oHW1zuKeZ+w6ug5YfrL1sI
'' SIG '' ccZPX5Fjanh7pSaVKphUpTOxgYwIj3hbwxQkcBGeQ2Ut
'' SIG '' XqYQ9N/WeZKR/PYmtvdGlh1uOCbvPiEzm5koERUHy/zs
'' SIG '' Aq+f5PpLQdYBHkldYlM2r0er0lw2S2Zc3JkG7/eAMGeu
'' SIG '' EGhSRFJLPEMv/8KtfRc9jey/n4xSKjZLVNPPI41iWhru
'' SIG '' 32DAnTEo+2KQAHYBC0rUWtqYQQN6NSBUdkwkvDGCBPkw
'' SIG '' ggT1AgEBMIGrMIGVMQswCQYDVQQGEwJVUzELMAkGA1UE
'' SIG '' CBMCVVQxFzAVBgNVBAcTDlNhbHQgTGFrZSBDaXR5MR4w
'' SIG '' HAYDVQQKExVUaGUgVVNFUlRSVVNUIE5ldHdvcmsxITAf
'' SIG '' BgNVBAsTGGh0dHA6Ly93d3cudXNlcnRydXN0LmNvbTEd
'' SIG '' MBsGA1UEAxMUVVROLVVTRVJGaXJzdC1PYmplY3QCEQCw
'' SIG '' obX/uQdHG8nwnThijt4GMAkGBSsOAwIaBQCggdwwGQYJ
'' SIG '' KoZIhvcNAQkDMQwGCisGAQQBgjcCAQQwHAYKKwYBBAGC
'' SIG '' NwIBCzEOMAwGCisGAQQBgjcCARUwIwYJKoZIhvcNAQkE
'' SIG '' MRYEFGd4M8Z5MLyqj+L+I3QFMnxawzYtMHwGCisGAQQB
'' SIG '' gjcCAQwxbjBsoE6ATABTAGUAdAB1AHAAIABNAGEAcABw
'' SIG '' AGUAZAAgAEQAcgBpAHYAZQBzACAAZgBvAHIAIABUAGEA
'' SIG '' cwBrACAAUwBjAGgAZQBkAHUAbABlAHKhGoAYaHR0cDov
'' SIG '' L3d3dy5kcmJhY2t1cC5uZXQgMA0GCSqGSIb3DQEBAQUA
'' SIG '' BIIBAC7hy+7v8fAgopa1k1BpmLsRJA1273+JkEsuQkso
'' SIG '' QHDMxVCThSYotxaP11CDEQbdLdI5kq4HYE0msXsg+Nt1
'' SIG '' MYgWnlWoaDTm8i3Xr1SkVwJOzMOHmVZltfLgRdFOY+aC
'' SIG '' LMjBl40ad1g2jPJ+cFg5PelcREwg5S1/GL4mgGxcSIQ7
'' SIG '' Rv/tOjSnUS4jH8zG7D3LnYyc6rPNJRF6Md2jnoyQBmuu
'' SIG '' nw+OFU2kEC6pAYWUOIBqTDhICdOfHUr5k4fIzykjRDHH
'' SIG '' NfkMTA8YoP6xJEPoP+0Jz4ZYOfr3/VJEj9a1D2SmYEqs
'' SIG '' s4RFSfnj95pS7MrVgUsWUQrLrz5NfQMAhPzDe/2hggJD
'' SIG '' MIICPwYJKoZIhvcNAQkGMYICMDCCAiwCAQEwgaowgZUx
'' SIG '' CzAJBgNVBAYTAlVTMQswCQYDVQQIEwJVVDEXMBUGA1UE
'' SIG '' BxMOU2FsdCBMYWtlIENpdHkxHjAcBgNVBAoTFVRoZSBV
'' SIG '' U0VSVFJVU1QgTmV0d29yazEhMB8GA1UECxMYaHR0cDov
'' SIG '' L3d3dy51c2VydHJ1c3QuY29tMR0wGwYDVQQDExRVVE4t
'' SIG '' VVNFUkZpcnN0LU9iamVjdAIQT2PQMPgVo6WzRGlABj0W
'' SIG '' iTAMBggqhkiG9w0CBQUAoFkwGAYJKoZIhvcNAQkDMQsG
'' SIG '' CSqGSIb3DQEHATAcBgkqhkiG9w0BCQUxDxcNMDgwNTEz
'' SIG '' MTYxNDU4WjAfBgkqhkiG9w0BCQQxEgQQreMJ6xfNmRsm
'' SIG '' bgE9X+PydTANBgkqhkiG9w0BAQEFAASCAQAJu9BsOMlQ
'' SIG '' pZmm30FV0zxZVF8fpWGiPhkO3TibJE5nD88dUPxcqVpo
'' SIG '' 7K54S6Lrg/Sg58hnEohzNroi/Ow1xXPSjNpVxjU0ZqAG
'' SIG '' cEvNTx30CMXTzLNnFygl196HYZBdJwrClTOXJFAEtSH+
'' SIG '' P3lB/xV0VMauxUWTLt+YnGmTuUnGwi8TqZBkkxEHUDwm
'' SIG '' CI890i3wzuxB4ktKoQZlOrvGPqtnArrLuU1JUez3af9H
'' SIG '' EgwAfZMOs2paJkO0r4NMSBFLf5tp7QScK3fbQ12yraJq
'' SIG '' wydOZXlG6vo773IbvxHhJrbVkhhwJjwoGgKz6TqXMY0G
'' SIG '' +t8yej1bl8166OjAyM2CPrbr
'' SIG '' End signature block