Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
liebe-eva
Anmeldungsdatum: 25.06.2011 Beiträge: 2
|
Verfasst am: 25.06.2011 13:14:49 Titel: HTA RemoveNetworkDrive Fehlermeldung |
|
|
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", , 4
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 |
|
|
liebe-eva
Anmeldungsdatum: 25.06.2011 Beiträge: 2
|
Verfasst am: 30.06.2011 06:06:39 Titel: Lösung gefunden |
|
|
Ich habe die Lösung gefunden - Codefehler, Problem damit behoben. |
|
Nach oben |
|
|
|
|
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.
|
|
|