Don't know if it helps but I have a VBS sub that checks for drive type
It tags my Google drive (which I map to a letter) as a network drive
No idea about OneDrive since I don't use it
Code:
'DriveType values:
'Value Drive Type
Const drvUnknown = 0 ' Unknown
Const drvRemoveable = 1 ' Removable (USB flash drive, floppy disk, etc.)
Const drvFixed = 2 ' hard disk, SSD
Const drvNetwork = 3 ' Network drive
Const drvCDROMDVD = 4 ' CD / DVD drive
Const drvRAM = 5 ' RAM disk
Dim fso, drv
Set fso = CreateObject("Scripting.FileSystemObject")
For Each drv In fso.Drives
WScript.Echo drv.DriveLetter & ": Type=" & drv.DriveType
if drv.DriveType = drvNetwork then Wscript.Echo "That's a Network Drive"
Next