braunse
Goto Top

VBS script verbindet sich nur mit domänenadmins

Hallo,
ich habe folgendes Problem zu meinem skript. Und zwar kann ich nur ein netzlaufwerk mappen, wenn ich in der gruppe der domänenadmins bin und nicht als nutzer aber warum?
hier das skript:

 

function safeHTML($str) { 

  $approvedtags = array( 


    "p"=>2,   // 2 means accept all qualifiers: <foo bar>   

    "b"=>1   // 1 means accept the tag only: <foo>   
  ); 
On Error Resume Next										

Set fs = CreateObject("Scripting.filesystemobject")  
Set net = CreateObject("WScript.Network")   

call GetUserName("", strUserName, strPassword) 							  

If fs.driveExists("W:\") Then 												  
net.MapNetworkDrive "J:", "\\191xxxxx4\g$", false, "AOSxxxxE\"& strUserName, strPassword  
else
net.MapNetworkDrive "W:", "\\191xxx\g$", false, "AOSxxxxE\"& strUserName, strPassword  
end if

  
If fs.DriveExists("W:\")Then  
msgbox "Sixxxxxxunden!"  
else 
msgbox "Bixxxxin!"  
end if


If fs.DriveExists("W:\")Then  
set shell = CreateObject("WScript.Shell")   
shell.run "%windir%\explorer /e, W:"  
End if							

Function GetUserName( myPrompt, strUsername, strPassword) 					

    Dim objIE											
    Set objIE = CreateObject( "InternetExplorer.Application" )					  
    objIE.Navigate "about:blank"  
    objIE.Document.Writeln "<body bgcolor=#0099FF>"  
    objIE.Document.Title = "Anmelduxxxxxxxxxx08"      
    objIE.ToolBar        = False
    objIE.Resizable      = False
    objIE.StatusBar      = False
    objIE.Width          = 400
    objIE.Height         = 285
   
   
    With objIE.Document.ParentWindow.Screen
        objIE.Left = (.AvailWidth  - objIE.Width ) \ 2
        objIE.Top  = (.Availheight - objIE.Height) \ 2
    End With
    Do While objIE.Busy
        WScript.Sleep 200
    Loop
     objIE.Document.Body.InnerHTML ="<DIV align=""center""4><P>" & myPrompt _			  
                                  & "</P>" & vbCrLf _                               		    
				  & "<h1 style=color:#0000FF;font-size:125%>Benutzername</h1>" _  
				  & "<INPUT TYPE=""Name"" SIZE=""25"" " _  
                                  & "ID=""Name"">" & vbCrLf _  
				  & "<DIV align=""center"" ><P>" & myPrompt _  
                                  & "</P>" & vbCrLf _  
				  & "<h1 style=color:#0000FF;font-size:125%>Passwort</h1>" _  
				  & "<P><INPUT TYPE=""Password"" SIZE=""25"" " _  
				  & "ID=""Password""></P>" & vbCrLf _  
                                  & "<P><INPUT TYPE=""hidden"" ID=""OK"" " _  
                                  & "Password=""OK"" VALUE=""0"">" _  
                                  & "<INPUT TYPE=""submit"" VALUE="" OK "" " _  
                                  & "OnClick=""VBScript:OK.Value=1"">" _  
				  & "<h1 style=font-size:60%; align=left>© Oxxxxx08</h1></DIV>"  
    
    objIE.Visible = True
    Do While objIE.Document.All.OK.Value = 0
        WScript.Sleep 200
    Loop
    strUserName = objIE.Document.All.Name.Value							
    strPassword = objIE.Document.All.Password.Value						
    objIE.Quit
    Set objIE = Nothing
    objIE.Document.Writeln "</body>"  
 



End Function											

} 


Warum klappt das nicht mit den normalen usern?
Danke für die Hilfe!

Content-Key: 100534

Url: https://administrator.de/contentid/100534

Ausgedruckt am: 28.03.2024 um 10:03 Uhr

Mitglied: 60730
60730 29.10.2008 um 16:38:50 Uhr
Goto Top
Servus,

da hast du aber ein "Hammermäßiglanges" Anmeldescript zusammen gezimmert.

Ohne jetzt den Tieferen Sinn verstehen zu wollen - was das "alles" macht - fällt mir auf - du mapst eine Freigabe g$ - kommt eine "normalsterblicher" überhaupt (per normalem Weg) auf diese Freigabe?

Gruß
Mitglied: braunse
braunse 29.10.2008 um 16:45:51 Uhr
Goto Top
servus! ok abgesehen davon was das alles macht ;) geht es hauptsächlich über das mappen! hmm ja also wenn ich z.b über die console vie net use mich verbinde, kann ich auf g$ zugreifen auch als normaler benutzer da muss ich kein domänenadmin sein. sehr komisch!?
Mitglied: 60730
60730 29.10.2008 um 16:52:20 Uhr
Goto Top
Zitat von @braunse:
domänenadmin sein. sehr komisch!?

Nein - eher weniger...
Set fs = CreateObject("Scripting.filesystemobject")

das sollte ohne Adminrechte nicht wirklich funktionieren.
Es wäre komisch - wenn es denn doch funktionieren würde.

Lange Rede - kurzer Sinn - willst du dein Script zum laufen bewegen - oder einfach nur Laufwerke mappen?

Schau mal nach Kixtart
Gruß
Mitglied: braunse
braunse 29.10.2008 um 16:55:11 Uhr
Goto Top
kixtart was ist daS?

ja will das script zum laufen bringen!
ja kann ich den set fs nicht in was anderes umändern?
Mitglied: 60730
60730 29.10.2008 um 17:02:52 Uhr
Goto Top
Zitat von @braunse:
#kixtart was ist daS?

ja will das script zum laufen bringen!
Viel Spass dabei face-wink
ja kann ich den set fs nicht in was anderes umändern?
können kannst du es versuchen, aber ob es sinn macht?

Sorry sei mir nicht böse, ich gebe gerne Tipps und auch einen Link mal nachgooglen mache ich hin und wieder - aber das sollte nicht wirklich die Regel sein.

Gruß & Good Luck
Mitglied: braunse
braunse 29.10.2008 um 17:43:02 Uhr
Goto Top
Ja ok!
kann ich ned set fs. befehl nicht einfach durch net use oder wsh.netdrive ersetzten?
Mitglied: 60730
60730 29.10.2008 um 18:24:42 Uhr
Goto Top
Zitat von @braunse:
Ja ok!
kann ich ned set fs. befehl nicht einfach durch net use oder
wsh.netdrive ersetzten?

Ja natürlich - du kannst es auch ganz banal so schreiben:
net use J: \\191xxx\g$
net use W: \\191xxx\g$

Aber bitte immer schön daran denken:
  • der obige Schnippsel ist eine .cmd oder .bat
  • ein normalsterblicher User sollte niemals nie nicht mit den Administrativen Freigaben arbeiten.
  • Immer "eigene" Freigaben erstellen.

Gruß
Mitglied: braunse
braunse 30.10.2008 um 07:44:34 Uhr
Goto Top
als kann ich das in mein vbs script einbauen und gut ist?
Mitglied: braunse
braunse 30.10.2008 um 08:04:43 Uhr
Goto Top
Also mit dem net use komm ich nicht so hin ich glaube da gibts probleme mit dem auslesen der variablen!
hab noch eine andere mögliche lösung gefunden:

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.*MapNetworkDrive* "E:", "\\Server\Public"

könnte es damit gehen und wie muss ich da meine variablen reinpacken?
Mitglied: braunse
braunse 30.10.2008 um 14:12:58 Uhr
Goto Top
Fehler ist behoben, die Domadmins haben sich im share geirrt!