svn commit: samba r15954 - in branches/SOC/bnh: .

[brad at samba.org]

Author: brad
Date: 2006-05-30 13:19:09 +0000 (Tue, 30 May 2006)
New Revision: 15954

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=15954

Log:
A script to remove a named file share and directory, and another to remove an ADS user account.
These scripts are intended to facilitate cleaning up after a RAW-QFILEINFO smbtorture test run.


Added:
   branches/SOC/bnh/ads_deluser.vbs
   branches/SOC/bnh/smb_delshare.vbs


Changeset:
Added: branches/SOC/bnh/ads_deluser.vbs
===================================================================
--- branches/SOC/bnh/ads_deluser.vbs	2006-05-30 05:57:43 UTC (rev 15953)
+++ branches/SOC/bnh/ads_deluser.vbs	2006-05-30 13:19:09 UTC (rev 15954)
@@ -0,0 +1,20 @@
+Set stdout = WScript.StdOut
+Set stdin = WScript.StdIn
+
+' Check passed in parameters.
+Set argv = WScript.Arguments.Named
+
+If Not argv.Exists("username") Then
+	stdout.Write "You must specify a username (/username:<username>)"
+	WScript.Quit
+Else        
+	username = argv.Item("username")
+End If
+
+' Bind to the DC.
+Set rootDSE = GetObject("LDAP://rootDSE")
+Set container = GetObject("LDAP://CN=Users," & _
+	rootDSE.Get("defaultNamingContext"))
+
+' Delete the user account.
+container.Delete "User", "CN=" & username

Added: branches/SOC/bnh/smb_delshare.vbs
===================================================================
--- branches/SOC/bnh/smb_delshare.vbs	2006-05-30 05:57:43 UTC (rev 15953)
+++ branches/SOC/bnh/smb_delshare.vbs	2006-05-30 13:19:09 UTC (rev 15954)
@@ -0,0 +1,36 @@
+Set stdout = WScript.StdOut
+Set stdin = WScript.StdIn
+
+' Check passed in parameters.
+Set argv = WScript.Arguments.Named
+
+if WScript.Arguments.Count = 2 Then
+	sharename = argv.Item("sharename")
+	pathname = argv.Item("sharepath")
+
+	If Not argv.Exists("sharename") Then
+		stdout.Write "You must specify a share name (/sharename:<share name>)"
+		WScript.Quit
+	ElseIf Not argv.Exists("sharepath") Then
+		stdout.Write "You must specify a share path (/sharepath:<share path>)"
+		WScript.Quit
+	End If
+Else
+	stdout.Write "Usage: cscript smb_addshare.vbs /sharename:<share name> /sharepath:<share path>"
+	WScript.Quit
+End If
+
+' Check if the directory exists, and exit if it does not.
+Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
+if Not fileSystemObject.FolderExists(pathname) Then
+	stdout.Write "Error: Directory " & pathname & " does not exist. Exiting." 
+	WScript.Quit
+End If
+
+' Delete the share.
+Set shell = WScript.CreateObject("WScript.Shell")
+netsharecmd = "net share " & sharename & " /DELETE"
+shell.Run netsharecmd, 7, True
+
+' Delete the directory.
+fileSystemObject.DeleteFolder(pathname)