Windows Script Host

Basics

E-Mail versenden

function SendMail (strSub, strText, strFrom, strTo)
	Dim TobjMail
	Set TobjMail = CreateObject("cdonts.newmail")
	TobjMail.To = strTo
	TobjMail.From = strFrom
	TobjMail.Subject = strSub
	TobjMail.Body = strText
	TobjMail.Send()
end Function

Datei kopieren

Function CopyFile (strSrc, strDest)
	Dim FSO, WshShell, TstrTemp
	Set WshShell = CreateObject("WScript.Shell")
	Set FSO = CreateObject("Scripting.FileSystemObject")
	if FSO.FileExists (strSrc) then
		FSO.CopyFile strSrc, strDest, True
	end if
	if Err.Number <> 0 Then
		TstrTemp = "Error number " & Err.Number & " occured: " _
		& Err.Description WshShell.LogEvent 1, TstrTemp
	End If
End Function

Datei löschen

Function DeleteFile (strSrc)
On Error Resume Next
	Dim FSO, WshShell, TstrTemp
	Set WshShell = CreateObject("WScript.Shell")
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	if FSO.FileExists (strSrc) then
		FSO.DeleteFile strSrc, True
  	end if
 	if Err.Number <> 0 Then
  		TstrTemp = "Error number " & Err.Number &_
		 " occured: " & Err.Description
		WshShell.LogEvent 1, TstrTemp
  	End If
End Function

COM-ADMIN Stuff

Exists the Lib ?

Function CheckCOM (LibName)
	Dim TobjCatalog
	Dim TobjComponent 
	Dim TobjApps
	Dim TblnRet
	
	Set TobjCatalog = CreateObject("COMAdmin.COMAdminCatalog")
	Set TobjApps = TobjCatalog.GetCollection("Applications")
	TobjApps.Populate
		
	Set TobjComponent = TobjApps.GetCollection("Components", LibName) 
	If Err.Number = 0 then
		TblnRet = true
	Else
		Err.Clear ()
		TblnRet = false
	End If

	CheckCOM = TblnRet

	Set TobjApps = Nothing
	Set TobjCatalog = Nothing
	Set TobjComponent = Nothing
End Function

Adds Application(Lib) to COM

Function AddCOMApp (AppName, Info)
	Dim TobjCatalog 
	Dim TobjApps 
	Dim TobjApp
	Dim TlngAppID
	
	Set TobjCatalog = CreateObject("COMAdmin.COMAdminCatalog")
	Set TobjApps = TobjCatalog.GetCollection("Applications")
	TobjApps.Populate
	 
	' Add Application 
	Set TobjApp = TobjApps.Add()
	TobjApp.Value("Name") = AppName
	TobjApp.Value("Activation") = "Inproc"
	TobjApp.Value("ApplicationAccessChecksEnabled") = False 
	TobjApp.Value("Description") = Info
	TobjApp.Value("RunForever") = True
	TobjApps.SaveChanges
	TlngAppID = TobjApp.key

	Set TobjApp = Nothing
	Set TobjApps = Nothing
	Set TobjCatalog = Nothing
	
	AddCOMApp = TlngAppID 
End Function

Adds Application (ServerApp) to COM

Function AddCOMAppS (AppName, Info, USR, PWD)
	Dim TobjCatalog 
	Dim TobjApps 
	Dim TobjApp
	Dim TlngAppID
	
	Set TobjCatalog = CreateObject("COMAdmin.COMAdminCatalog")
	Set TobjApps = TobjCatalog.GetCollection("Applications")
	TobjApps.Populate
	 
	' Add Application 
	Set TobjApp = TobjApps.Add()
	TobjApp.Value("Name") = AppName
	TobjApp.Value("Activation") = "Local" 
	TobjApp.Value("ApplicationAccessChecksEnabled") = False 
	TobjApp.Value("Description") = Info
	TobjApp.Value("RunForever") = True
	TobjApp.Value("Identity") = USR
	TobjApp.Value("Password") = PWD
	
	TobjApps.SaveChanges
	TlngAppID = TobjApp.key

	Set TobjApp = Nothing
	Set TobjApps = Nothing
	Set TobjCatalog = Nothing

	AddCOMAppS = TlngAppID 
End Function