HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - HTA RemoveNetworkDrive Fehlermeldung

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

HTA RemoveNetworkDrive Fehlermeldung

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
liebe-eva



Anmeldungsdatum: 25.06.2011
Beiträge: 2

BeitragVerfasst am: 25.06.2011 13:14:49    Titel: HTA RemoveNetworkDrive Fehlermeldung Antworten mit Zitat

Hallo,

vielleicht kann mir einer von euch helfen. Ich habe ein kleines Script geschrieben, welches alle Netzlaufwerke ausliest. Ein ausgewähltes soll dann getrennt werden. Leider bekomme ich immer die Fehlermeldung: "Diese Netzverbindung ist nicht vorhanden."

HTA scheint folgendes nicht zu akzeptieren (bei VBS funktiniert es einwandfrei!):

Set net = CreateObject("WScript.Network")
net.RemoveNetworkDrive strDriveLetter,True,True

Hier das komplette Scrpit:

<HTML>
<HEAD>
<TITLE>Disconnect Network-Drive's</title>
<HTA:APPLICATION
ApplicationName="MappingWithCredentials.HTA"
SingleInstance="Yes"
WindowsState="Normal"
Scroll="No"
Navigable="Yes"
MaximizeButton="Yes"
SysMenu="Yes"
Caption="Yes"
>
</HEAD>

<SCRIPT LANGUAGE="VBScript">
Sub Window_Onload
'# Size Window
sHorizontal = 440
sVertical = 310
Window.resizeTo sHorizontal, sVertical
'# Get Monitor Details
Set objWMIService = GetObject("winmgmts:root\cimv2")
intHorizontal = sHorizontal *2
intVertical = sVertical *2
Set colItems = objWMIService.ExecQuery( "Select ScreenWidth, ScreenHeight from" & " Win32_DesktopMonitor", , 4Cool
For Each objItem In colItems
sWidth= objItem.ScreenWidth
sHeight = objItem.ScreenHeight
If sWidth > sHorizontal then intHorizontal = sWidth
If sHeight > sVertical then intVertical = sHeight
Next
Set objWMIService = Nothing
'# Center window on the screen
intLeft = (intHorizontal - sHorizontal) /2
intTop = (intVertical - sVertical) /2
Window.moveTo intLeft, intTop
'# default window content
window.location.href="#Top"
ViewMapDrive
End Sub

Sub ViewMapDrive
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set WshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
strMdrive = oDrives.Item(i) & oDrives.Item(i+1)
Set objOption = Document.createElement("OPTION")
objOption.Text = strMdrive
objOption.Value = strMdrive
AvailableMapDrives.Add(objOption)
Next
End Sub

Sub DMap
strNetDrive = AvailableMapDrives.Value
'msgbox strNetDrive
If strNetDrive = "" Then
Msgbox strNetDrive & "W" & chr(228) & "hlen Sie ein Netzlaufwerk aus:",vbinformation ,"Auswahl des Netzlaufwerk!"
Else
strArrayDrive = split(strNetDrive,":")
strDriveLetter = strArrayDrive(0)
strDrivePath = strArrayDrive(1)
msgbox strDriveLetter & vbtab & strDrivePath
Set net = CreateObject("WScript.Network")
net.RemoveNetworkDrive strDriveLetter,True,True
net.RemoveNetworkDrive strDrivePath,True,True
Set net = Nothing
MsgBox strNetDrive & " wurde entfernt." , ,"Achtung fehlt jetzt: " & strNetDrive & " !"
End If
End Sub

Sub WinClose
window.close
End Sub

Sub reloadHTA()
location.Reload True
End Sub

</SCRIPT>
<BODY STYLE="font:14 pt arial; color:blue; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#ffffff', EndColorStr='#d3d3d3')">
<a name="Top"></a><CENTER><br>
<p>Your Network Drive's</p>
<select size="6" name="AvailableMapDrives"></select><HR color="#0000FF">
<input type = "button" value = "Disconnect Drive" onClick="DMap">
<input type = "BUTTON" value = "Reload" onclick = "reloadHTA">
<input type = "button" value = "Ende" onClick="WinClose">
</CENTER>
</BODY>
</HTML>
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
liebe-eva



Anmeldungsdatum: 25.06.2011
Beiträge: 2

BeitragVerfasst am: 30.06.2011 06:06:39    Titel: Lösung gefunden Antworten mit Zitat

Ich habe die Lösung gefunden - Codefehler, Problem damit behoben.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.