Const RTF = 6
Const Text = 4
Const HTML = 8

strName = InputBox("Please Provide Your Name") 

strTitle = InputBox("Please Provide Your Job Title") 
strDepartment = InputBox("Please Provide Your Department") 
strCompany = InputBox("Please Provide Your Company") 
strPhone = InputBox("Please Provide Your Full Phone Number") 
strMail = InputBox("Please Provide Your e-Mail Address") 
strWeb = InputBox("Please Provide Your Web Address") 


set outlook = createobject("outlook.application")

If outlook.version = "9.0.0.2711" or  outlook.version = "9.0.0.3011" or outlook.version = "9.0.0.3821" or outlook.version = "9.0.0.4105" or outlook.version = "9.0.0.4201" or outlook.version = "9.0.0.4527" or outlook.version = "9.0.0.5414" Then

	'Wscript.Echo "Outlook 2000"
	olk2000 = True

End If

If olk2000 = True Then
	Set wshShell = WScript.CreateObject("WScript.Shell" )
	StrProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")+"\Application Data\Microsoft\Signatures\"
	
	
	Set objWord = CreateObject("Word.Application")
	objWord.Visible = False

	Set objDoc = objWord.Documents.Add()
	Set objSelection = objWord.Selection

	objSelection.Font.Name = "Arial"
	objSelection.Font.Size = "12"
	objSelection.Font.Bold = True
	objSelection.TypeText strName
	objSelection.TypeParagraph()

	objSelection.Font.Size = "11"
	objSelection.Font.Bold = False
	objSelection.TypeText strDepartment
	objSelection.TypeParagraph()

	objSelection.Font.Size = "11"
	objSelection.Font.Bold = False
	objSelection.TypeText strCompany
	objSelection.TypeParagraph()

	objSelection.Font.Size = "11"
	objSelection.Font.Bold = False
	objSelection.TypeText strPhone
	objSelection.TypeParagraph()

	objSelection.Font.Size = "11"
	objSelection.Font.Bold = False
	objSelection.TypeText strMail
	objSelection.TypeParagraph()

	objSelection.Font.Size = "11"
	objSelection.Font.Bold = False
	objSelection.TypeText strWeb

	objDoc.SaveAs strProfile & "Default.rtf", RTF
	objDoc.SaveAs strProfile & "Default.txt", Text
	objDoc.SaveAs strProfile & "Default.htm", HTML
	
	objWord.Quit
	
Else
	Set objWord = CreateObject("Word.Application") 
	Set objDoc = objWord.Documents.Add() 

	Set objSelection = objWord.Selection 
	Set objEmailOptions = objWord.EmailOptions 

	Set objSignatureObject = objEmailOptions.EmailSignature 
	Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 
	objSelection.TypeText strName & ", " & strTitle 

	objSelection.TypeParagraph() 
	objSelection.TypeText strDepartment 
	objSelection.TypeParagraph() 
	objSelection.TypeText strCompany 
	objSelection.TypeParagraph() 
	objSelection.TypeText strPhone 
	objSelection.TypeParagraph() 
	objSelection.TypeText strMail 
	objSelection.TypeParagraph() 
	objSelection.TypeText strWeb 
	Set objSelection = objDoc.Range() 
	objSignatureEntries.Add "MyDefaultSig", objSelection 

	objSignatureObject.NewMessageSignature = "MyDefaultSig" 
	objSignatureObject.ReplyMessageSignature = "MyDefaultSig" 
	objDoc.Saved = True 

	objWord.Quit
End if
Wscript.Echo "Script Completed"