if none of these conditions apply...

[gcue]

i have this for every letter of the alphabet

$Adrv = RegRead("\\" & GuiCtrlRead($asset) & "\HKEY_CURRENT_USER\Network\A", "RemotePath")

If NOT @ERROR Then

MsgBox(512, 'Locally Mapped Drives', 'PC: '& GuiCtrlRead($asset) &@crlf& _
        'User: ' & $user &@crlf& _
        'Drive: A'&@crlf& _
        'Path: ' & $Adrv )
EndIf

how can i put a condition which would be.. if none of these exist, then msgbox "no locally mapped drives"

thanks

[Monamo]

i have this for every letter of the alphabet

$Adrv = RegRead("\\" & GuiCtrlRead($asset) & "\HKEY_CURRENT_USER\Network\A", "RemotePath")

If NOT @ERROR Then

MsgBox(512, 'Locally Mapped Drives', 'PC: '& GuiCtrlRead($asset) &@crlf& _
        'User: ' & $user &@crlf& _
        'Drive: A'&@crlf& _
        'Path: ' & $Adrv )
EndIf

how can i put a condition which would be.. if none of these exist, then msgbox "no locally mapped drives"

thanks

Just threw in a counter to check for mapped drives. As for usage of the same block of code over and over for each letter of the alphabet, remember: Arrays are your friend!

(Not fully tested, but the basic concept is covered):

CODE

$iMappedDrives = Int(0)

Dim $aDriveList[27] = ["26", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]

For $i = 1 To $aDriveList[0]

$Adrv = RegRead("\\" & GUICtrlRead($asset) & "\HKEY_CURRENT_USER\Network\" & $aDriveList[$i], "RemotePath")

If Not @error Then

MsgBox(512, 'Locally Mapped Drives', 'PC: ' & GUICtrlRead($asset) & @CRLF & _

'User: ' & $user & @CRLF & _

'Drive: A' & @CRLF & _

'Path: ' & $Adrv)

$iMappedDrives += 1

EndIf

Next

If $iMappedDrives > Int(1) Then

MsgBox(64, "Mapped drives", $iMappedDrives & " mapped drives found on the target system.")

Else

MsgBox(64, "Mapped drives", "No mapped drives found on the target system.")

EndIf

Edit: Grammar Edited February 5, 2008 by Monamo

[gcue]

that worked great!

but how do i refer to the drive letter here:

'Drive: A' & @CRLF & _

so instead of "A" it shows the letter it's using..

i tried $aDriveList[$i] but that ddint work

thanks for your help!!

Just threw in a counter to check for mapped drives. As for usage of the same block of code over and over for each letter of the alphabet, remember: Arrays are your friend!

(Not fully tested, but the basic concept is covered):

CODE

$iMappedDrives = Int(0)

Dim $aDriveList[27] = ["26", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"]

For $i = 1 To $aDriveList[0]

$Adrv = RegRead("\\" & GUICtrlRead($asset) & "\HKEY_CURRENT_USER\Network\" & $aDriveList[$i], "RemotePath")

If Not @error Then

MsgBox(512, 'Locally Mapped Drives', 'PC: ' & GUICtrlRead($asset) & @CRLF & _

'User: ' & $user & @CRLF & _

'Drive: A' & @CRLF & _

'Path: ' & $Adrv)

$iMappedDrives += 1

EndIf

Next

If $iMappedDrives > Int(1) Then

MsgBox(64, "Mapped drives", $iMappedDrives & " mapped drives found on the target system.")

Else

MsgBox(64, "Mapped drives", "No mapped drives found on the target system.")

EndIf

Edit: Grammar

[gcue]

nevermid forgot an "&"

doh!